alias comget {
  var %com = cominfo, %com2 = cominfo2, %com3 = cominfo3
  if ($com(%com)) { .comclose %com }
  if ($com(%com2)) { .comclose %com2 }
  if ($com(%com3)) { .comclose %com3 }
  .comopen %com WbemScripting.SWbemLocator
  var %x = $com(%com,ConnectServer,3,dispatch* %com2), %x = $com(%com2,ExecQuery,3,bstr*,select $prop from $1,dispatch* %com3), %x = $comval(%com3,$iif($2,$2,1),$prop)
  if ($com(%com)) { .comclose %com }
  if ($com(%com2)) { .comclose %com2 }
  if ($com(%com3)) { .comclose %com3 }
  return %x
}
alias pcstats { 
  if ($1 == computer) { 
    say Computer: $comget(Win32_ComputerSystem).Manufacturer $comget(Win32_ComputerSystem).Model
  }
  if ($1 == os) {
    set %os OS: $comget(Win32_OperatingSystem).Caption ( $+ $comget(Win32_OperatingSystem).Version  $+ ) $in5 $+ Architecture: $comget(Win32_OperatingSystem).OSArchitecture $+ $out5 Installed on: $asctime($ctime($iif($comget(Win32_OperatingSystem).InstallDate,$+($mid($ifmatch,7,2),/,$mid($ifmatch,5,2),/,$mid($ifmatch,1,4)) $+($mid($ifmatch,9,2),:,$mid($ifmatch,11,2),:,$mid($ifmatch,13,2)))))  Uptime: %uptime Best Uptime: %best.uptime
    say $remove(%os,Â,â,„,¢)
  }
  if ($1 == cpu) && ($os != Vista) { 
    say $in5 $+ Number of Processes:  $comget(CIM_OperatingSystem).NumberOfProcesses $+ $out5 $in5 $+ CPU: $comget(Win32_Processor).Name $+($comget(Win32_Processor).CurrentClockSpeed,MHz) Number of logical processors: $comget(Win32_Processor).NumberOfLogicalProcessors Load: $comget(Win32_Processor).LoadPercentage $+ $chr(37) $+ $out5 
  }
  if ($1 == cpu) && ($os == Vista) { 
    say $in5 $+ Number of Processes:  $comget(CIM_OperatingSystem).NumberOfProcesses $+ $out5  $in5 $+ CPU: $comget(Win32_Processor).Name $+($comget(Win32_Processor).CurrentClockSpeed,MHz) Number of logical processors: $comget(Win32_Processor).NumberOfLogicalProcessors $+ $out5 
  }
  if ($1 == gfx) { say $in5 $+ Gfx: $comget(Win32_VideoController).AdapterCompatibility $comget(Win32_VideoController).VideoProcessor  ( $+ $bytes($comget(Win32_VideoController).AdapterRam,3).suf $+ ) $+ $out5
  }
  if ($1 == ram) && ($os != Vista) { 
    say $in5 $+ Ram: $round($calc($comget(Win32_OperatingSystem).FreePhysicalMemory / 1024), 1) $+ MB $+ $chr(47) $+ $round($calc($comget(win32_logicalmemoryconfiguration).TotalPhysicalMemory / 1024),1) $+ MB free) $+ $out5 
  }
  if ($1 == ram) && ($os == Vista) { 
    say $in5 $+ Ram: $round($calc($comget(Win32_OperatingSystem).FreePhysicalMemory / 1024), 1) $+ MB $+ $chr(47) $+ $round($calc($comget(Win32_OperatingSystem).TotalVisibleMemorySize / 1024),1) $+ MB free) $+ $out5 
  }
  if ($1 == network) && ($os != Vista) {
    say $in5 $+ Network: $comget(Win32_PerfRawData_Tcpip_NetworkInterface).Name $calc($comget(Win32_PerfRawData_Tcpip_NetworkInterface).CurrentBandwidth / 1000000) $+ MB/s  In $+ $chr(47) $+ Out: $bytes($comget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesReceivedPersec).suf  $+ $chr(47) $+ $bytes($comget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesSentPersec).suf $+ $out5
  }
  if ($1 == network) && ($os == Vista) {
    say $in5 $+ Network: $comget(Win32_NetworkAdapter).Name $calc($comget(Win32_PerfRawData_Tcpip_NetworkInterface).CurrentBandwidth / 1000000) $+ MB/s  In $+ $chr(47) $+ Out: $bytes($comget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesReceivedPersec).suf  $+ $chr(47) $+ $bytes($comget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesSentPersec).suf $+ $out5 
  }
  if ($1 == hdd) {
    var %i 1 
    while (%i <= $disk(0)) {
      if ($disk(%i).type == fixed) var %var %var $disk(%i).path $+($bytes($disk(%i).free).suf,/,$bytes($disk(%i).size).suf) 
      inc %i
    } 
    say $in5 $+ Diskspace: %var $+ $out5
  }
  if ($1 == sound) {
    say $in5 $+ Sound: $comget(Win32_SoundDevice).Name $+ $out5 
  }
  if ($1 == mobo) {
    say $in5 $+ Motherboard: $comget(Win32_BaseBoard).Manufacturer $comget(Win32_BaseBoard).Product $+ $out5 
  }        
  if ($1 == monitor) {
    say $in5 $+ Monitor: (Resolution: $+ $+($comget(Win32_VideoController).currenthorizontalresolution,x,$comget(Win32_VideoController).currentverticalresolution) $+ ) (Refresh Rate:  $comget(Win32_VideoController).currentrefreshrate $+ Hz) (Bits Per Pixel: $comget(Win32_VideoController).currentbitsperpixel $+ ) $+ $out5 
  }
  if ($1 == dcc) { 
    say $in5 $+  (DCC) Active Downloads: $get(0) Active Uploads: $send(0) Bytes Received: $get(0).rcvd  Bytes Sent: $send(0).rcvd $+ $out5 
  }
  if ($1 == status) { 
    say $in5 $+ Status: $comget(Win32_OperatingSystem).Status $+ $out5
  }
  if ($1 == all) { all }
}
alias all {
  if ($os != Vista) { set %ram $in5 $+ Ram:  ( $+ $round($calc($comget(Win32_OperatingSystem).FreePhysicalMemory / 1024), 1) $+ MB $+ $chr(47) $+ $round($calc($comget(Win32_LogicalMemoryConfiguration).TotalPhysicalMemory / 1024),1) $+ MB free) $+ $out5  }
  if ($os == Vista) { set %ram $in5 $+ Ram: $round($calc($comget(Win32_OperatingSystem).FreePhysicalMemory / 1024), 1) $+ MB $+ $chr(47) $+ $round($calc($comget(Win32_OperatingSystem).TotalVisibleMemorySize / 1024),1) $+ MB free) $+ $out5 }
  set %os OS: $comget(Win32_OperatingSystem).Caption ( $+ $comget(Win32_OperatingSystem).Version  $+ ) $in5 $+ Architecture: $comget(Win32_OperatingSystem).OSArchitecture $+ $out5 Installed on: $asctime($ctime($iif($comget(Win32_OperatingSystem).InstallDate,$+($mid($ifmatch,7,2),/,$mid($ifmatch,5,2),/,$mid($ifmatch,1,4)) $+($mid($ifmatch,9,2),:,$mid($ifmatch,11,2),:,$mid($ifmatch,13,2)))))  Uptime: %uptime Best Uptime: %best.uptime
  set %cpu $in5 $+ Computer: $comget(Win32_ComputerSystem).Manufacturer $comget(Win32_ComputerSystem).Model  CPU: $comget(Win32_Processor).Name $+($comget(Win32_Processor).CurrentClockSpeed,MHz) Number of logical processors: $comget(Win32_Processor).NumberOfLogicalProcessors Load: $comget(Win32_Processor).LoadPercentage $+ $chr(37) $+ $out5 
  set %gfx $in5 $+ Gfx: $comget(Win32_VideoController).AdapterCompatibility $comget(Win32_VideoController).VideoProcessor  ( $+ $bytes($comget(Win32_VideoController).AdapterRam,3).suf $+ ) $+ $out5
  set %network $in5 $+ Network: $comget(Win32_PerfRawData_Tcpip_NetworkInterface).Name $calc($comget(Win32_PerfRawData_Tcpip_NetworkInterface).CurrentBandwidth / 1000000) $+ MB/s  In $+ $chr(47) $+ Out: $bytes($comget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesReceivedPersec).suf  $+ $chr(47) $+ $bytes($comget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesSentPersec).suf $+ $out5 
  var %i 1 
  while (%i <= $disk(0)) {
    if ($disk(%i).type == fixed) var %var %var $disk(%i).path $+($bytes($disk(%i).free).suf,/,$bytes($disk(%i).size).suf) 
    inc %i
  } 
  set %diskspace $in5 $+ Diskspace: %var $+ $out5
  set %sound $in5 $+ Sound: $comget(Win32_SoundDevice).Name $+ $out5 
  set %mobo $in5 $+ Motherboard: $comget(Win32_BaseBoard).Manufacturer $comget(Win32_BaseBoard).Product $+ $out5        
  set %monitor $in5 $+ Monitor: (Resolution: $+ $+($comget(Win32_VideoController).currenthorizontalresolution,x,$comget(Win32_VideoController).currentverticalresolution) $+ ) (Refresh Rate:  $comget(Win32_VideoController).currentrefreshrate $+ Hz) (Bits Per Pixel: $comget(Win32_VideoController).currentbitsperpixel $+ bit $+ ) $+ $out5 
  set %dcc $in5 $+ (DCC) Active Downloads: $get(0) Active Uploads: $send(0) Bytes Received: $get(0).rcvd  Bytes Sent: $send(0).rcvd $+ $out5
  set %status $in5 $+ Status: $comget(Win32_OperatingSystem).Status $+ $out5 
  say mIRC $version running %lockoutver $remove(%os,Â,â,„,¢) %cpu %gfx %ram
  say %network %hdd %sound %mobo %monitor %dcc %status 
  uptime 
}
alias butimer { .timerbu 0 0 bu }
alias cutimer { .timercu 0 0 cu }
alias bu {
  if (%uptime2 > %best.uptime2) { 
    set %best.uptime $uptime(system,1)
    set %uptime $uptime(system,1)
  set %best.uptime2 $uptime(system,3) }
  else { set %uptime $uptime(system,1)
set %uptime2 $uptime(system,3) } }
alias cu {
  set %uptime $uptime(system,1)
set %uptime2 $uptime(system,3) }
alias bestuptime {
  if (%best.uptime2 == $null) {
    set %best.uptime2 $uptime(system,3)
    butimer
    cutimer
  }
  else { 
    butimer 
    cutimer
  } 
}
on *:start:{ bestuptime }
alias uptime { if (%uptime2 > %best.uptime2) {
    .timerbu off 
    .timercu off 
    .bestuptime 
  }
  elseif (%uptime != %best.uptime) { 
    say $in5 $+ Current System Uptime: %uptime Best System Uptime: %best.uptime mIRC Uptime: $uptime(mirc,1) Connection to $net Uptime: $uptime(server,1) $+ $out5 
  }
  else { say $in5 $+ Current System Uptime: %uptime Best  System Uptime: %best.uptime mIRC Uptime: $uptime(mirc,1) Connection to $net Uptime: $uptime(server,1) $+ $out5
  }
}