/ScriptServ

[script]
n0=;System Info by Ford_Lawnmower irc.mindforge.org #USA-Chat
n1=menu channel,status {
n2=  System Info
n3=  .$iif(!$chan,$style(2)) Public
n4=  ..All: allinfo say
n5=  ..OS-Memory: say $osinfo  
n6=  ..MotherBoard-CPU: say $cpuinfo $moboinfo
n7=  ..Network: say $netinfo
n8=  ..Video: say $videoinfo
n9=  ..Disk Drives: say $diskinfo
n10=  .Private
n11=  ..All: allinfo echo
n12=  ..OS-Memory:  $osinfo
n13=  ..MotherBoard-CPU:  $cpuinfo $moboinfo
n14=  ..Network:  $netinfo
n15=  ..Video:  $videoinfo
n16=  ..Disk Drives:  $diskinfo
n17=}
n18=alias -l allinfo {
n19=  $1- 12S14ystem 12I14nfo: $cpuinfo  $osinfo 
n20=  $1- 12S14ystem 12I14nfo: $videoinfo $moboinfo
n21=  $1- 12S14ystem 12I14nfo: $netinfo 
n22=  $1- 12S14ystem 12I14nfo: $diskinfo
n23=}
n24=alias -l cpuinfo {
n25=  .comopen Processor WbemScripting.SWbemLocator
n26=  if (!$comerr) {
n27=    if ($com(Processor, ConnectServer, 3, dispatch* Specs)) {
n28=      if ($com(Specs, Get, 3, string, Win32_Processor.DeviceID='CPU0', dispatch* Results)) {
n29=        var %manufacturer, %name, %caption, %clockspeed, %load, %architecture
n30=        if ($com(Results, Manufacturer, 3)) { %manufacturer = $com(Results).result }
n31=        if ($com(Results, Name, 3)) { %name = $com(Results).result }
n32=        if ($com(Results, Caption, 3)) { %caption = $com(Results).result }
n33=        if ($com(Results, CurrentClockSpeed, 3)) { %clockspeed = $com(Results).result }
n34=        if ($com(Results, LoadPercentage, 3)) { %load = $com(Results).result }
n35=        if ($com(Results, Architecture, 3)) { %architecture = $com(Results).result }
n36=        .comclose Results
n37=      }
n38=      .comclose Specs
n39=    }
n40=    .comclose Processor
n41=    $iif($isid,return,$iif(# ischan,say,)) 12C14PU:12 %manufacturer %name  %caption $+(%load,%) Load
n42=  }
n43=  else { echo -st Com Error $nopath($script) | .comclose Processor | return }
n44=}
n45=alias -l osinfo {
n46=  if (!$com(Wbem.2)) { WbemOpen }
n47=  var %TotalMemory 12T14otal 12M14emory:12 $round($calc($WbemGet(Win32_OperatingSystem,TotalVisibleMemorySize,1)/1024),2)
n48=  var %FreeMemory 12A14vailable 12M14emory:12 $round($calc($WbemGet(Win32_OperatingSystem,FreePhysicalMemory,1)/1024),2)
n49=  var %OSCaption 12O14S:12 $WbemGet(Win32_OperatingSystem,Caption,1)
n50=  var %OSVersion $WbemGet(Win32_OperatingSystem,Version,1)
n51=  var %OSArchitecture $WbemGet(Win32_OperatingSystem,OSArchitecture,1)
n52=  if ($com(Wbem.2)) { .comclose Wbem.2 }
n53=  $iif($isid,return,$iif(# ischan,say,)) %OSCaption %OSVersion %OSArchitecture 12U14ptime:12 $uptime(system,1) $+(%TotalMemory,MB) $+(%FreeMemory,MB)
n54=}
n55=alias -l moboinfo {
n56=  if (!$com(Wbem.2)) { WbemOpen }
n57=  var %Aname 12A14udio:12 $WbemGet(Win32_SoundDevice,Name,1)  
n58=  var %Description $WbemGet(Win32_BaseBoard,Description,1)
n59=  var %Manufacturer $WbemGet(Win32_BaseBoard,Manufacturer,1)
n60=  if ($com(Wbem.2)) { .comclose Wbem.2 }
n61=  $iif($isid,return,$iif(# ischan,say,)) 12M14other 12B14oard:12 %Manufacturer %Description %Aname 
n62=}
n63=alias -l netinfo {
n64=  if (!$com(Wbem.2)) { WbemOpen }
n65=  var %BytesReceived $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,1)
n66=  %BytesReceived = 12R14eceived:12 $bytes($calc(%BytesReceived + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,2))).suf
n67=  var %BytesSent $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,1)
n68=  %BytesSent = 12S14ent:12 $bytes($calc(%BytesSent + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,2))).suf
n69=  var %BytesTotal $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,1)
n70=  %BytesTotal = 12T14otal:12 $bytes($calc(%BytesTotal + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,2))).suf
n71=  var %Bandwidth $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,1)
n72=  %Bandwidth = 12B14andwidth:12 $calc(%Bandwidth + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,2)/100000)
n73=  var %Name $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,1)
n74=  %Name = $+(%Name,14/12,$WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,2))
n75=  if ($com(Wbem.2)) { .comclose Wbem.2 }
n76=  $iif($isid,return,$iif(# ischan,say,)) 12N14etwork:12 %Name $+(%Bandwidth,KBps) %BytesReceived %BytesSent %BytesTotal 
n77=}
n78=alias -l videoinfo {
n79=  if (!$com(Wbem.2)) { WbemOpen }
n80=  var %Compatibility $WbemGet(Win32_VideoController,AdapterCompatibility,1)
n81=  var %VideoProcessor $WbemGet(Win32_VideoController,VideoProcessor,1)
n82=  var %AdapterRam $WbemGet(Win32_VideoController,AdapterRam,1)
n83=  var %Horizontal $WbemGet(Win32_VideoController,currenthorizontalresolution,1)
n84=  var %Vertical $WbemGet(Win32_VideoController,currentverticalresolution,1)
n85=  var %Bits $WbemGet(Win32_VideoController,currentbitsperpixel,1)
n86=  var %Refresh $WbemGet(Win32_VideoController,currentrefreshrate,1)
n87=  if ($com(Wbem.2)) { .comclose Wbem.2 }  
n88=  $iif($isid,return,$iif(# ischan,say,)) 12V14ideo:12 %Compatibility %VideoProcessor $+($bytes(%AdapterRam,3),MB) $+(%Horizontal,x,%Vertical) $+(%Bits,bit) $+(%Refresh,Hz)
n89=}
n90=alias -l DiskInfo {
n91=  var %d $disk(0),%total 0,%free 0,%result
n92=  while (%d) {
n93=    if ($disk(%d).size) {
n94=      %total = $calc(%total + $disk(%d).size)
n95=      %free = $calc(%free + $disk(%d).free)
n96=      %result = %result 12I14D:12 $disk(%d).label $disk(%d).path 12T14ype:12 $disk(%d).type 12S14ize:12 $bytes($disk(%d).size,g3).suf 12F14ree:12 $bytes($disk(%d).free,g3).suf 
n97=    }
n98=    dec %d 
n99=  }
n100=  $iif($isid,return,$iif(# ischan,say,)) %Result 12T14otal 12D14isk 12S14pace:12 $bytes(%Total,g3).suf 12T14otal 12S14pace 12F14ree:12 $bytes(%free,g3).suf 
n101=}  
n102=alias -l WbemOpen {
n103=  .comopen Wbem.1 WbemScripting.SWbemLocator
n104=  .comclose Wbem.1 $com(Wbem.1,ConnectServer,3,dispatch* Wbem.2)
n105=}
n106=alias -l WbemGet {
n107=  if ($com(Wbem.3)) { .comclose Wbem.3 }
n108=  if ($com(Wbem.2,ExecQuery,3,bstr*,select $2 from $1,dispatch* Wbem.3)) { var %Result $comval(Wbem.3,$3,$2) }
n109=  .comclose Wbem.3 
n110=  return %Result
n111=}