WISDOMBAY

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

5.A Windows Script For Listing a Computer System's Information

Posted on WisdomBay @ 11:14 PM 2/28/2006 | Post by Pramod S Nair

This Windows Script coded in VBScript displays a lot of information about the machine on which it is executed. The info displayed includes, AdminPasswordStatus,Role of a machine on the Domain, Wakeup type etc.

'A Windows Script For Listing a Computer System's Information 'Compiled by Pramod S Nair 'http://www.wisdombay.com 'Written 2:08 PM 02/28/2006 'Create a WMI Object Set ow = GetObject("winmgmts:\\.\root\cimv2") strOut = "" 'Query the Win32_ComputerSystem class for getting a machines' Information Set S = ow.ExecQuery ("Select * from Win32_ComputerSystem") strOut = "Info about the current machine" & vbnewline & vbnewline For Each obj in S 'Find Ino on Administrative Password tmp = obj.AdminPasswordStatus select case tmp case 1 t = "Disabled" case 2 t = "Enabled" case 3 t = "Not Implemented" case 4 t = "Unknown" end select strOut = strOut & "AdminPasswordStatus : " & t & vbnewline 'Find Info on AutomaticResetBootOption tmp = obj.AdminPasswordStatus if tmp = True then t = "Enabled" else t = "Disabled" end if strOut = strOut & "AutomaticResetBootOption : " & t & vbnewline 'Find Info on BootOptionOnLimit tmp = obj.BootOptionOnLimit select case tmp case 1 t = "Reserved" case 2 t = "Operating System" case 3 t = "System Utilities" case 4 t = "Do Not Reboot" end select strOut = strOut & "BootOptionOnLimit : " & t & vbnewline 'Find Info on BootOptionOnWatchDog - What to do when watchdog timer is elapsed tmp = obj.BootOptionOnWatchDog select case tmp case 1 t = "Reserved" case 2 t = "Operating System" case 3 t = "System Utilities" case 4 t = "Do Not Reboot" end select strOut = strOut & "BootOptionOnWatchDog : " & t & vbnewline 'Find Info on BootROMSupported tmp = obj.BootROMSupported if tmp = True then t = "Enabled" else t = "Disabled" end if strOut = strOut & "BootROMSupported : " & t & vbnewline 'Find Info on BootupState strOut = strOut & "BootupState : " & obj.BootupState & vbnewline 'Find the caption strOut = strOut & "Caption : " & obj.Caption & vbnewline 'Find Info on ChassisBootupState tmp = obj.ChassisBootupState select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Safes" case 4 t = "Warning" case 5 t = "Critical" case 6 t = "Non-recoverable" end select strOut = strOut & "ChassisBootupState : " & t & vbnewline 'Find Info on CurrentTimeZone strOut = strOut & "CurrentTimeZone : " & obj.CurrentTimeZone & vbnewline 'Find if DaylightInEffect is on or off tmp =obj.DaylightInEffect if tmp = True then t = "ON" else t = "OFF" end if strOut = strOut & "DaylightInEffect : " & t & vbnewline strOut = strOut & "Description : " & obj.Description & vbnewline strOut = strOut & "Domain : " & obj.Domain & vbnewline 'Find Info on DomainRole tmp = obj.DomainRole select case tmp case 0 t = "Standalone Workstation" case 1 t = "Member Workstation" case 2 t = "Standalone Server" case 3 t = "Member Server" case 4 t = "Backup Domain Controller" case 5 t = "Primary Domain Controller" end select strOut = strOut & "DomainRole : " & t & vbnewline 'Find if EnableDaylightSavingsTime is on or off tmp =obj.EnableDaylightSavingsTime if tmp = True then t = "ON" else t = "OFF" end if strOut = strOut & "EnableDaylightSavingsTime : " & t & vbnewline 'Find Info on FrontPanelResetStatus tmp = obj.FrontPanelResetStatus select case tmp case 0 t = "Disabled" case 1 t = "Enabled" case 2 t = "Not Implemented" case 3 t = "Unknown" end select strOut = strOut & "FrontPanelResetStatus : " & t & vbnewline 'Find if Infrared Support is available tmp =obj.InfraredSupported if tmp = True then t = "Available" else t = "Not Available" end if strOut = strOut & "InfraredSupported : " & t & vbnewline strOut = strOut & "InitialLoadInfo : " & obj.InitialLoadInfo & vbnewline 'Find Info on KeyboardPasswordStatus tmp = obj.KeyboardPasswordStatus select case tmp case 0 t = "Disabled" case 1 t = "Enabled" case 2 t = "Not Implemented" case 3 t = "Unknown" end select strOut = strOut & "KeyboardPasswordStatus : " & t & vbnewline strOut = strOut & "Manufacturer : " & obj.Manufacturer & vbnewline strOut = strOut & "Model : " & obj.Model & vbnewline strOut = strOut & "Name : " & obj.Name & vbnewline 'Find if NetworkServerModeEnabled is true tmp =obj.NetworkServerModeEnabled if tmp = True then t = "YES" else t = "NO" end if strOut = strOut & "NetworkServerModeEnabled : " & t & vbnewline strOut = strOut & "Number Of Processors : " & obj.NumberOfProcessors & vbnewline strOut = strOut & "Time delay before initializing a reboot : " & obj.PauseAfterReset & " Ms" & vbnewline 'Find if PowerManagementSupported is true tmp =obj.PowerManagementSupported if tmp = True then t = "YES" else t = "NO" end if strOut = strOut & "PowerManagementSupported : " & t & vbnewline 'Find Info on PowerOnPasswordStatus tmp = obj.PowerOnPasswordStatus select case tmp case 0 t = "Disabled" case 1 t = "Enabled" case 2 t = "Not Implemented" case 3 t = "Unknown" end select strOut = strOut & "PowerOnPasswordStatus : " & t & vbnewline 'Find Info on PowerState tmp = obj.PowerState select case tmp case 0 t = "Unknown" case 1 t = "Full Power" case 2 t = "Power Save - Low Power Mode" case 3 t = "Power Save - Standby" case 4 t = "Power Save - Unknown" case 5 t = "Power Cycle" case 6 t = "Power Off" case 7 t = "Power Save - Warning" end select strOut = strOut & "PowerState : " & t & vbnewline 'Find Info on PowerSupplyState tmp = obj.PowerSupplyState select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Safe" case 4 t = "Warning" case 5 t = "Critical" case 6 t = "Non-recoverable" end select strOut = strOut & "PowerSupplyState : " & t & vbnewline strOut = strOut & "Total Physical Memory : "& round(obj.TotalPhysicalMemory/(1024*1024)) & " MB" & vbnewline strOut = strOut & "User Name : " & obj.UserName & vbnewline 'Find Info on WakeUpType tmp = obj.WakeUpType select case tmp case 0 t = "Reserved" case 1 t = "Other" case 2 t = "Unknown" case 3 t = "APM Timer" case 4 t = "Modem Ring" case 5 t = "LAN Remote" case 6 t = "Power Switch" case 7 t = "PCI PME#" case 8 t = "AC Power Restored" end select strOut = strOut & "WakeUpType : " & t & vbnewline strOut = strOut & "WorkGroup : " & obj.WorkGroup & vbnewline strout = strout & vbnewline & vbnewline & vbnewline Next Set S = Nothing Set ow = Nothing 'Alert the User with the info Wscript.Echo strOut 'End of Script

How to use :
1. Copy the code given above to clipboard.
2. Create a new file and name it as you like with a '.vbs' extension.
3. Now double clicking on the file will display a whole array of information about the current machine.