- Code: Select all
import win32com.client
def WMIDateStringToDate(dtmDate):
strDateTime = ""
if (dtmDate[4] == 0):
strDateTime = dtmDate[5] + '/'
else:
strDateTime = dtmDate[4] + dtmDate[5] + '/'
if (dtmDate[6] == 0):
strDateTime = strDateTime + dtmDate[7] + '/'
else:
strDateTime = strDateTime + dtmDate[6] + dtmDate[7] + '/'
strDateTime = strDateTime + dtmDate[0] + dtmDate[1] + dtmDate[2] + dtmDate[3] + " " + dtmDate[8] + dtmDate[9] + ":" + dtmDate[10] + dtmDate[11] +':' + dtmDate[12] + dtmDate[13]
return strDateTime
strComputer = "."
objWMIService = win32com.client.Dispatch("WbemScripting.SWbemLocator")
objSWbemServices = objWMIService.ConnectServer(strComputer,"root\cimv2")
colItems = objSWbemServices.ExecQuery("SELECT * FROM Win32_ComputerSystem")
for objItem in colItems:
if objItem.AdminPasswordStatus != None:
print "AdminPasswordStatus:" + ` objItem.AdminPasswordStatus`
if objItem.AutomaticResetBootOption != None:
print "AutomaticResetBootOption:" + ` objItem.AutomaticResetBootOption`
if objItem.AutomaticResetCapability != None:
print "AutomaticResetCapability:" + ` objItem.AutomaticResetCapability`
if objItem.BootOptionOnLimit != None:
print "BootOptionOnLimit:" + ` objItem.BootOptionOnLimit`
if objItem.BootOptionOnWatchDog != None:
print "BootOptionOnWatchDog:" + ` objItem.BootOptionOnWatchDog`
if objItem.BootROMSupported != None:
print "BootROMSupported:" + ` objItem.BootROMSupported`
if objItem.BootupState != None:
print "BootupState:" + ` objItem.BootupState`
if objItem.Caption != None:
print "Caption:" + ` objItem.Caption`
if objItem.ChassisBootupState != None:
print "ChassisBootupState:" + ` objItem.ChassisBootupState`
if objItem.CreationClassName != None:
print "CreationClassName:" + ` objItem.CreationClassName`
if objItem.CurrentTimeZone != None:
print "CurrentTimeZone:" + ` objItem.CurrentTimeZone`
if objItem.DaylightInEffect != None:
print "DaylightInEffect:" + ` objItem.DaylightInEffect`
if objItem.Description != None:
print "Description:" + ` objItem.Description`
if objItem.Domain != None:
print "Domain:" + ` objItem.Domain`
if objItem.DomainRole != None:
print "DomainRole:" + ` objItem.DomainRole`
if objItem.EnableDaylightSavingsTime != None:
print "EnableDaylightSavingsTime:" + ` objItem.EnableDaylightSavingsTime`
if objItem.FrontPanelResetStatus != None:
print "FrontPanelResetStatus:" + ` objItem.FrontPanelResetStatus`
if objItem.InfraredSupported != None:
print "InfraredSupported:" + ` objItem.InfraredSupported`
print "InitialLoadInfo:"
strList = " "
try :
for objElem in objItem.InitialLoadInfo :
strList = strList + `objElem` + ","
except:
strList = strList + 'null'
print strList
if objItem.InstallDate != None:
print "InstallDate:" + WMIDateStringToDate(objItem.InstallDate)
if objItem.KeyboardPasswordStatus != None:
print "KeyboardPasswordStatus:" + ` objItem.KeyboardPasswordStatus`
if objItem.LastLoadInfo != None:
print "LastLoadInfo:" + ` objItem.LastLoadInfo`
if objItem.Manufacturer != None:
print "Manufacturer:" + ` objItem.Manufacturer`
if objItem.Model != None:
print "Model:" + ` objItem.Model`
if objItem.Name != None:
print "Name:" + ` objItem.Name`
if objItem.NameFormat != None:
print "NameFormat:" + ` objItem.NameFormat`
if objItem.NetworkServerModeEnabled != None:
print "NetworkServerModeEnabled:" + ` objItem.NetworkServerModeEnabled`
if objItem.NumberOfProcessors != None:
print "NumberOfProcessors:" + ` objItem.NumberOfProcessors`
print "OEMLogoBitmap:"
strList = " "
try :
for objElem in objItem.OEMLogoBitmap :
strList = strList + `objElem` + ","
except:
strList = strList + 'null'
print strList
print "OEMStringArray:"
strList = " "
try :
for objElem in objItem.OEMStringArray :
strList = strList + `objElem` + ","
except:
strList = strList + 'null'
print strList
if objItem.PartOfDomain != None:
print "PartOfDomain:" + ` objItem.PartOfDomain`
if objItem.PauseAfterReset != None:
print "PauseAfterReset:" + ` objItem.PauseAfterReset`
print "PowerManagementCapabilities:"
strList = " "
try :
for objElem in objItem.PowerManagementCapabilities :
strList = strList + `objElem` + ","
except:
strList = strList + 'null'
print strList
if objItem.PowerManagementSupported != None:
print "PowerManagementSupported:" + ` objItem.PowerManagementSupported`
if objItem.PowerOnPasswordStatus != None:
print "PowerOnPasswordStatus:" + ` objItem.PowerOnPasswordStatus`
if objItem.PowerState != None:
print "PowerState:" + ` objItem.PowerState`
if objItem.PowerSupplyState != None:
print "PowerSupplyState:" + ` objItem.PowerSupplyState`
if objItem.PrimaryOwnerContact != None:
print "PrimaryOwnerContact:" + ` objItem.PrimaryOwnerContact`
if objItem.PrimaryOwnerName != None:
print "PrimaryOwnerName:" + ` objItem.PrimaryOwnerName`
if objItem.ResetCapability != None:
print "ResetCapability:" + ` objItem.ResetCapability`
if objItem.ResetCount != None:
print "ResetCount:" + ` objItem.ResetCount`
if objItem.ResetLimit != None:
print "ResetLimit:" + ` objItem.ResetLimit`
print "Roles:"
strList = " "
try :
for objElem in objItem.Roles :
strList = strList + `objElem` + ","
except:
strList = strList + 'null'
print strList
if objItem.Status != None:
print "Status:" + ` objItem.Status`
print "SupportContactDescription:"
strList = " "
try :
for objElem in objItem.SupportContactDescription :
strList = strList + `objElem` + ","
except:
strList = strList + 'null'
print strList
if objItem.SystemStartupDelay != None:
print "SystemStartupDelay:" + ` objItem.SystemStartupDelay`
print "SystemStartupOptions:"
strList = " "
try :
for objElem in objItem.SystemStartupOptions :
strList = strList + `objElem` + ","
except:
strList = strList + 'null'
print strList
if objItem.SystemStartupSetting != None:
print "SystemStartupSetting:" + ` objItem.SystemStartupSetting`
if objItem.SystemType != None:
print "SystemType:" + ` objItem.SystemType`
if objItem.ThermalState != None:
print "ThermalState:" + ` objItem.ThermalState`
if objItem.TotalPhysicalMemory != None:
print "TotalPhysicalMemory:" + ` objItem.TotalPhysicalMemory`
if objItem.UserName != None:
print "UserName:" + ` objItem.UserName`
if objItem.WakeUpType != None:
print "WakeUpType:" + ` objItem.WakeUpType`
if objItem.Workgroup != None:
print "Workgroup:" + ` objItem.Workgroup`
Video Settings
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoSettings", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Element: " & objItem.Element
WScript.Echo "Setting: " & objItem.Setting
WScript.Echo
Next
Next
Video Controller
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
strAcceleratorCapabilities = Join(objItem.AcceleratorCapabilities, ",")
WScript.Echo "AcceleratorCapabilities: " & strAcceleratorCapabilities
WScript.Echo "AdapterCompatibility: " & objItem.AdapterCompatibility
WScript.Echo "AdapterDACType: " & objItem.AdapterDACType
WScript.Echo "AdapterRAM: " & objItem.AdapterRAM
WScript.Echo "Availability: " & objItem.Availability
strCapabilityDescriptions = Join(objItem.CapabilityDescriptions, ",")
WScript.Echo "CapabilityDescriptions: " & strCapabilityDescriptions
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ColorTableEntries: " & objItem.ColorTableEntries
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "CurrentBitsPerPixel: " & objItem.CurrentBitsPerPixel
WScript.Echo "CurrentHorizontalResolution: " & objItem.CurrentHorizontalResolution
WScript.Echo "CurrentNumberOfColors: " & objItem.CurrentNumberOfColors
WScript.Echo "CurrentNumberOfColumns: " & objItem.CurrentNumberOfColumns
WScript.Echo "CurrentNumberOfRows: " & objItem.CurrentNumberOfRows
WScript.Echo "CurrentRefreshRate: " & objItem.CurrentRefreshRate
WScript.Echo "CurrentScanMode: " & objItem.CurrentScanMode
WScript.Echo "CurrentVerticalResolution: " & objItem.CurrentVerticalResolution
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "DeviceSpecificPens: " & objItem.DeviceSpecificPens
WScript.Echo "DitherType: " & objItem.DitherType
WScript.Echo "DriverDate: " & WMIDateStringToDate(objItem.DriverDate)
WScript.Echo "DriverVersion: " & objItem.DriverVersion
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
WScript.Echo "ICMIntent: " & objItem.ICMIntent
WScript.Echo "ICMMethod: " & objItem.ICMMethod
WScript.Echo "InfFilename: " & objItem.InfFilename
WScript.Echo "InfSection: " & objItem.InfSection
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "InstalledDisplayDrivers: " & objItem.InstalledDisplayDrivers
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "MaxMemorySupported: " & objItem.MaxMemorySupported
WScript.Echo "MaxNumberControlled: " & objItem.MaxNumberControlled
WScript.Echo "MaxRefreshRate: " & objItem.MaxRefreshRate
WScript.Echo "MinRefreshRate: " & objItem.MinRefreshRate
WScript.Echo "Monochrome: " & objItem.Monochrome
WScript.Echo "Name: " & objItem.Name
WScript.Echo "NumberOfColorPlanes: " & objItem.NumberOfColorPlanes
WScript.Echo "NumberOfVideoPages: " & objItem.NumberOfVideoPages
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
WScript.Echo "ProtocolSupported: " & objItem.ProtocolSupported
WScript.Echo "ReservedSystemPaletteEntries: " & objItem.ReservedSystemPaletteEntries
WScript.Echo "SpecificationVersion: " & objItem.SpecificationVersion
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "SystemPaletteEntries: " & objItem.SystemPaletteEntries
WScript.Echo "TimeOfLastReset: " & WMIDateStringToDate(objItem.TimeOfLastReset)
WScript.Echo "VideoArchitecture: " & objItem.VideoArchitecture
WScript.Echo "VideoMemoryType: " & objItem.VideoMemoryType
WScript.Echo "VideoMode: " & objItem.VideoMode
WScript.Echo "VideoModeDescription: " & objItem.VideoModeDescription
WScript.Echo "VideoProcessor: " & objItem.VideoProcessor
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
Service
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "AcceptPause: " & objItem.AcceptPause
WScript.Echo "AcceptStop: " & objItem.AcceptStop
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "CheckPoint: " & objItem.CheckPoint
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DesktopInteract: " & objItem.DesktopInteract
WScript.Echo "DisplayName: " & objItem.DisplayName
WScript.Echo "ErrorControl: " & objItem.ErrorControl
WScript.Echo "ExitCode: " & objItem.ExitCode
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "Name: " & objItem.Name
WScript.Echo "PathName: " & objItem.PathName
WScript.Echo "ProcessId: " & objItem.ProcessId
WScript.Echo "ServiceSpecificExitCode: " & objItem.ServiceSpecificExitCode
WScript.Echo "ServiceType: " & objItem.ServiceType
WScript.Echo "Started: " & objItem.Started
WScript.Echo "StartMode: " & objItem.StartMode
WScript.Echo "StartName: " & objItem.StartName
WScript.Echo "State: " & objItem.State
WScript.Echo "Status: " & objItem.Status
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "TagId: " & objItem.TagId
WScript.Echo "WaitHint: " & objItem.WaitHint
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
Battery
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Battery", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "BatteryRechargeTime: " & objItem.BatteryRechargeTime
WScript.Echo "BatteryStatus: " & objItem.BatteryStatus
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Chemistry: " & objItem.Chemistry
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DesignCapacity: " & objItem.DesignCapacity
WScript.Echo "DesignVoltage: " & objItem.DesignVoltage
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
WScript.Echo "EstimatedChargeRemaining: " & objItem.EstimatedChargeRemaining
WScript.Echo "EstimatedRunTime: " & objItem.EstimatedRunTime
WScript.Echo "ExpectedBatteryLife: " & objItem.ExpectedBatteryLife
WScript.Echo "ExpectedLife: " & objItem.ExpectedLife
WScript.Echo "FullChargeCapacity: " & objItem.FullChargeCapacity
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "MaxRechargeTime: " & objItem.MaxRechargeTime
WScript.Echo "Name: " & objItem.Name
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
WScript.Echo "SmartBatteryVersion: " & objItem.SmartBatteryVersion
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "TimeOnBattery: " & objItem.TimeOnBattery
WScript.Echo "TimeToFullCharge: " & objItem.TimeToFullCharge
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
FAN
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Fan", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "ActiveCooling: " & objItem.ActiveCooling
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DesiredSpeed: " & objItem.DesiredSpeed
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "Name: " & objItem.Name
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "VariableSpeed: " & objItem.VariableSpeed
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
Infrared Device
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_InfraredDevice", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "MaxNumberControlled: " & objItem.MaxNumberControlled
WScript.Echo "Name: " & objItem.Name
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
WScript.Echo "ProtocolSupported: " & objItem.ProtocolSupported
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "TimeOfLastReset: " & WMIDateStringToDate(objItem.TimeOfLastReset)
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
Keyboard
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Keyboard", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "IsLocked: " & objItem.IsLocked
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "Layout: " & objItem.Layout
WScript.Echo "Name: " & objItem.Name
WScript.Echo "NumberOfFunctionKeys: " & objItem.NumberOfFunctionKeys
WScript.Echo "Password: " & objItem.Password
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
Network Adapter
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "AdapterType: " & objItem.AdapterType
WScript.Echo "AdapterTypeId: " & objItem.AdapterTypeId
WScript.Echo "AutoSense: " & objItem.AutoSense
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
WScript.Echo "Index: " & objItem.Index
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "Installed: " & objItem.Installed
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "MACAddress: " & objItem.MACAddress
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "MaxNumberControlled: " & objItem.MaxNumberControlled
WScript.Echo "MaxSpeed: " & objItem.MaxSpeed
WScript.Echo "Name: " & objItem.Name
WScript.Echo "NetConnectionID: " & objItem.NetConnectionID
WScript.Echo "NetConnectionStatus: " & objItem.NetConnectionStatus
strNetworkAddresses = Join(objItem.NetworkAddresses, ",")
WScript.Echo "NetworkAddresses: " & strNetworkAddresses
WScript.Echo "PermanentAddress: " & objItem.PermanentAddress
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
WScript.Echo "ProductName: " & objItem.ProductName
WScript.Echo "ServiceName: " & objItem.ServiceName
WScript.Echo "Speed: " & objItem.Speed
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "TimeOfLastReset: " & WMIDateStringToDate(objItem.TimeOfLastReset)
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
OnBoardDevice
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OnBoardDevice", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceType: " & objItem.DeviceType
WScript.Echo "Enabled: " & objItem.Enabled
WScript.Echo "HotSwappable: " & objItem.HotSwappable
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "Model: " & objItem.Model
WScript.Echo "Name: " & objItem.Name
WScript.Echo "OtherIdentifyingInfo: " & objItem.OtherIdentifyingInfo
WScript.Echo "PartNumber: " & objItem.PartNumber
WScript.Echo "PoweredOn: " & objItem.PoweredOn
WScript.Echo "Removable: " & objItem.Removable
WScript.Echo "Replaceable: " & objItem.Replaceable
WScript.Echo "SerialNumber: " & objItem.SerialNumber
WScript.Echo "SKU: " & objItem.SKU
WScript.Echo "Status: " & objItem.Status
WScript.Echo "Tag: " & objItem.Tag
WScript.Echo "Version: " & objItem.Version
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
PageFile
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PageFile", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "AccessMask: " & objItem.AccessMask
WScript.Echo "Archive: " & objItem.Archive
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Compressed: " & objItem.Compressed
WScript.Echo "CompressionMethod: " & objItem.CompressionMethod
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "CreationDate: " & WMIDateStringToDate(objItem.CreationDate)
WScript.Echo "CSCreationClassName: " & objItem.CSCreationClassName
WScript.Echo "CSName: " & objItem.CSName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "Drive: " & objItem.Drive
WScript.Echo "EightDotThreeFileName: " & objItem.EightDotThreeFileName
WScript.Echo "Encrypted: " & objItem.Encrypted
WScript.Echo "EncryptionMethod: " & objItem.EncryptionMethod
WScript.Echo "Extension: " & objItem.Extension
WScript.Echo "FileName: " & objItem.FileName
WScript.Echo "FileSize: " & objItem.FileSize
WScript.Echo "FileType: " & objItem.FileType
WScript.Echo "FreeSpace: " & objItem.FreeSpace
WScript.Echo "FSCreationClassName: " & objItem.FSCreationClassName
WScript.Echo "FSName: " & objItem.FSName
WScript.Echo "Hidden: " & objItem.Hidden
WScript.Echo "InitialSize: " & objItem.InitialSize
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "InUseCount: " & objItem.InUseCount
WScript.Echo "LastAccessed: " & WMIDateStringToDate(objItem.LastAccessed)
WScript.Echo "LastModified: " & WMIDateStringToDate(objItem.LastModified)
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "MaximumSize: " & objItem.MaximumSize
WScript.Echo "Name: " & objItem.Name
WScript.Echo "Path: " & objItem.Path
WScript.Echo "Readable: " & objItem.Readable
WScript.Echo "Status: " & objItem.Status
WScript.Echo "System: " & objItem.System
WScript.Echo "Version: " & objItem.Version
WScript.Echo "Writeable: " & objItem.Writeable
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
PCMCIAController
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PCMCIAController", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "MaxNumberControlled: " & objItem.MaxNumberControlled
WScript.Echo "Name: " & objItem.Name
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
WScript.Echo "ProtocolSupported: " & objItem.ProtocolSupported
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "TimeOfLastReset: " & WMIDateStringToDate(objItem.TimeOfLastReset)
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
PortConnector
- Code: Select all
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("NBNET02")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PortConnector", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConnectorPinout: " & objItem.ConnectorPinout
strConnectorType = Join(objItem.ConnectorType, ",")
WScript.Echo "ConnectorType: " & strConnectorType
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "ExternalReferenceDesignator: " & objItem.ExternalReferenceDesignator
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "InternalReferenceDesignator: " & objItem.InternalReferenceDesignator
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "Model: " & objItem.Model
WScript.Echo "Name: " & objItem.Name
WScript.Echo "OtherIdentifyingInfo: " & objItem.OtherIdentifyingInfo
WScript.Echo "PartNumber: " & objItem.PartNumber
WScript.Echo "PortType: " & objItem.PortType
WScript.Echo "PoweredOn: " & objItem.PoweredOn
WScript.Echo "SerialNumber: " & objItem.SerialNumber
WScript.Echo "SKU: " & objItem.SKU
WScript.Echo "Status: " & objItem.Status
WScript.Echo "Tag: " & objItem.Tag
WScript.Echo "Version: " & objItem.Version
WScript.Echo
Next
Next
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
