Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;System Info by Ford_Lawnmower irc.mindforge.org #USA-Chat
- menu channel,status {
- System Info
- .$iif(!$chan,$style(2)) Public
- ..All: allinfo say
- ..OS-Memory: say $osinfo
- ..MotherBoard-CPU: say $cpuinfo $moboinfo
- ..Network: say $netinfo
- ..Video: say $videoinfo
- ..Disk Drives: say $diskinfo
- .Private
- ..All: allinfo echo
- ..OS-Memory: echo -a $osinfo
- ..MotherBoard-CPU: echo -a $cpuinfo $moboinfo
- ..Network: echo -a $netinfo
- ..Video: echo -a $videoinfo
- ..Disk Drives: echo -a $diskinfo
- }
- alias qnfo {
- allinfo echo
- }
- alias nfo {
- allinfo me
- }
- alias allinfo {
- ;$1- 04S14ystem 04I14nfo: $cpuinfo $osinfo $videoinfo $moboinfo
- ;$1- 04S14ystem 04I14nfo: $netinfo $diskinfo
- $1- $osinfo $cpuinfo $diskinfo
- }
- alias -l cpuinfo {
- .comopen Processor WbemScripting.SWbemLocator
- if (!$comerr) {
- if ($com(Processor, ConnectServer, 3, dispatch* Specs)) {
- if ($com(Specs, Get, 3, string, Win32_Processor.DeviceID='CPU0', dispatch* Results)) {
- var %manufacturer, %name, %caption, %clockspeed, %load, %architecture
- ;if ($com(Results, Manufacturer, 3)) { %manufacturer = $com(Results).result }
- if ($com(Results, Name, 3)) { %name = $com(Results).result }
- ;if ($com(Results, Caption, 3)) { %caption = $com(Results).result }
- ;if ($com(Results, CurrentClockSpeed, 3)) { %clockspeed = $com(Results).result }
- if ($com(Results, LoadPercentage, 3)) { %load = $com(Results).result }
- ;if ($com(Results, Architecture, 3)) { %architecture = $com(Results).result }
- .comclose Results
- }
- .comclose Specs
- }
- .comclose Processor
- $iif($isid,return,$iif(# ischan,say,echo -a)) 7Processor:13 %name $+(%load,% Load)
- }
- else { echo -st Com Error $nopath($script) | .comclose Processor | return }
- }
- alias -l osinfo {
- if (!$com(Wbem.2)) { WbemOpen }
- var %TotalMemory $round($calc($WbemGet(Win32_OperatingSystem,TotalVisibleMemorySize,1)/1024),2)
- var %FreeMemory $round($calc($WbemGet(Win32_OperatingSystem,FreePhysicalMemory,1)/1024),2)
- var %OSCaption $WbemGet(Win32_OperatingSystem,Caption,1)
- ;var %OSVersion $WbemGet(Win32_OperatingSystem,Version,1)
- var %OSArchitecture $WbemGet(Win32_OperatingSystem,OSArchitecture,1)
- if ($com(Wbem.2)) { .comclose Wbem.2 }
- $iif($isid,return,$iif(# ischan,say,echo -a)) $+(13,%OSCaption %OSArchitecture) 7has been running for13 $uptime(system,1) 7Memory Usage:13 $+(%FreeMemory,MB/,%TotalMemory,MB)
- }
- alias -l moboinfo {
- if (!$com(Wbem.2)) { WbemOpen }
- var %Aname 04A14udio:04 $WbemGet(Win32_SoundDevice,Name,1)
- var %Description $WbemGet(Win32_BaseBoard,Description,1)
- var %Manufacturer $WbemGet(Win32_BaseBoard,Manufacturer,1)
- if ($com(Wbem.2)) { .comclose Wbem.2 }
- $iif($isid,return,$iif(# ischan,say,echo -a)) 04M14OBO:04 %Manufacturer %Description %Aname
- }
- alias -l netinfo {
- if (!$com(Wbem.2)) { WbemOpen }
- var %BytesReceived $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,1)
- %BytesReceived = 04R14eceived:04 $bytes($calc(%BytesReceived + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,2))).suf
- var %BytesSent $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,1)
- %BytesSent = 04S14ent:04 $bytes($calc(%BytesSent + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,2))).suf
- var %BytesTotal $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,1)
- %BytesTotal = 04T14otal:04 $bytes($calc(%BytesTotal + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,2))).suf
- var %Bandwidth $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,1)
- %Bandwidth = 04B14andwidth:04 $calc(%Bandwidth + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,2)/100000)
- var %Name $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,1)
- %Name = $+(%Name,14/04,$WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,2))
- if ($com(Wbem.2)) { .comclose Wbem.2 }
- $iif($isid,return,$iif(# ischan,say,echo -a)) 04N14etwork:04 %Name $+(%Bandwidth,KBps) %BytesReceived %BytesSent %BytesTotal
- }
- alias -l videoinfo {
- if (!$com(Wbem.2)) { WbemOpen }
- var %Compatibility $WbemGet(Win32_VideoController,AdapterCompatibility,1)
- var %VideoProcessor $WbemGet(Win32_VideoController,VideoProcessor,1)
- var %AdapterRam $WbemGet(Win32_VideoController,AdapterRam,1)
- var %Horizontal $WbemGet(Win32_VideoController,currenthorizontalresolution,1)
- var %Vertical $WbemGet(Win32_VideoController,currentverticalresolution,1)
- var %Bits $WbemGet(Win32_VideoController,currentbitsperpixel,1)
- var %Refresh $WbemGet(Win32_VideoController,currentrefreshrate,1)
- if ($com(Wbem.2)) { .comclose Wbem.2 }
- $iif($isid,return,$iif(# ischan,say,echo -a)) 04V14ideo:04 %Compatibility %VideoProcessor $+($bytes(%AdapterRam,3),MB) $+(%Horizontal,x,%Vertical) $+(%Bits,bit) $+(%Refresh,Hz)
- }
- alias -l DiskInfo {
- var %d $disk(0),%total 0,%free 0,%result
- while (%d) {
- if ($disk(%d).size) {
- %total = $calc(%total + $disk(%d).size)
- %free = $calc(%free + $disk(%d).free)
- %result = %result $+(7,$chr(40),13,$disk(%d).path, ,$bytes($disk(%d).free,g3).suf,7/13,$bytes($disk(%d).size,g3).suf,7,$chr(41))
- }
- dec %d
- }
- $iif($isid,return,$iif(# ischan,say,echo -a)) 7HDD Free Space:13 %Result
- }
- alias -l WbemOpen {
- .comopen Wbem.1 WbemScripting.SWbemLocator
- .comclose Wbem.1 $com(Wbem.1,ConnectServer,3,dispatch* Wbem.2)
- }
- alias -l WbemGet {
- if ($com(Wbem.3)) { .comclose Wbem.3 }
- if ($com(Wbem.2,ExecQuery,3,bstr*,select $2 from $1,dispatch* Wbem.3)) { var %Result $comval(Wbem.3,$3,$2) }
- .comclose Wbem.3
- return %Result
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement