Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
2004A and Older
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Win32_ComputerSystem
Keywords: Win32_ComputerSystem WMI_Scripter WMI
Code generated for the Win32_ComputerSystem Class using the WMI_scripter
objLocator = ObjectOpen("WbemScripting.SWbemLocator")
objService = objLocator.ConnectServer()
objSecurity = objService.Security_
objSecurity.ImpersonationLevel = 3
class = "Win32_ComputerSystem"
; query instances
query = "SELECT * FROM Win32_ComputerSystem"
objInstances = objService.ExecQuery(query)
; loop once for each instance
hEnum = ObjectCollectionOpen(objInstances)
While @TRUE
obj = ObjectCollectionNext(hEnum)
If obj == 0 Then Break
; obtain properties
varAdminPasswordStatus = obj.AdminPasswordStatus
varAutomaticResetBootOption = obj.AutomaticResetBootOption
varAutomaticResetCapability = obj.AutomaticResetCapability
varBootOptionOnLimit = obj.BootOptionOnLimit
varBootOptionOnWatcDog = obj.BootOptionOnWatchDog
varBootROMSupported = obj.BootROMSupported
varBootupState = obj.BootupState
varCaption = obj.Caption
varCassisBootupState = obj.ChassisBootupState
varCreationClassName = obj.CreationClassName
varCurrentTimeZone = obj.CurrentTimeZone
varDayligtInEffect = obj.DaylightInEffect
varDescription = obj.Description
varDomain = obj.Domain
varDomainRole = obj.DomainRole
varEnableDayligtSavingsTime = obj.EnableDaylightSavingsTime
varFrontPanelResetStatus = obj.FrontPanelResetStatus
varInfraredSupported = obj.InfraredSupported
varInitialLoadInfo = obj.InitialLoadInfo
varInstallDate = obj.InstallDate
varKeyboardPasswordStatus = obj.KeyboardPasswordStatus
varLastLoadInfo = obj.LastLoadInfo
varManufacturer = obj.Manufacturer
varModel = obj.Model
varName = obj.Name
varNameFormat = obj.NameFormat
varNetworkServerModeEnabled = obj.NetworkServerModeEnabled
varNumberOfProcessors = obj.NumberOfProcessors
varOEMLogoBitmap = obj.OEMLogoBitmap
varOEMStringArray = obj.OEMStringArray
varPartOfDomain = obj.PartOfDomain
varPauseAfterReset = obj.PauseAfterReset
varPowerManagementCapabilities = obj.PowerManagementCapabilities
varPowerManagementSupported = obj.PowerManagementSupported
varPowerOnPasswordStatus = obj.PowerOnPasswordStatus
varPowerState = obj.PowerState
varPowerSupplyState = obj.PowerSupplyState
varPrimaryOwnerContact = obj.PrimaryOwnerContact
varPrimaryOwnerName = obj.PrimaryOwnerName
varResetCapability = obj.ResetCapability
varResetCount = obj.ResetCount
varResetLimit = obj.ResetLimit
varRoles = obj.Roles
varStatus = obj.Status
varSupportContactDescription = obj.SupportContactDescription
varSystemStartupDelay = obj.SystemStartupDelay
varSystemStartupOptions = obj.SystemStartupOptions
varSystemStartupSetting = obj.SystemStartupSetting
varSystemType = obj.SystemType
varTermalState = obj.ThermalState
varTotalPysicalMemory = obj.TotalPhysicalMemory
varUserName = obj.UserName
varWakeUpType = obj.WakeUpType
varWorkgroup = obj.Workgroup
EndWhile
ObjectCollectionClose(hEnum)
; close object handles
ObjectClose(objInstances)
ObjectClose(objSecurity)
ObjectClose(objService)
ObjectClose(objLocator)
;*************************************
;* Display results
;*************************************
#DefineSubRoutine udfFormat4Display(vname)
value = %vname%
If VarType(value)==256 ; Value is an array
;if array then create pipe delimited list
arraylist=""
For item = 0 To ArrInfo(value,1)-1
arraylist = StrCat(arraylist,"|",value[item])
Next
;remove leading pipe
value=StrSub(arraylist,2,-1)
EndIf
Return(value)
#EndSubRoutine
; build display list
displaylist = ""
displaylist=StrCat(displaylist,@LF, "AdminPasswordStatus = ", UDFFormat4Display("varAdminPasswordStatus"))
displaylist=StrCat(displaylist,@LF, "AutomaticResetBootOption = ", UDFFormat4Display("varAutomaticResetBootOption"))
displaylist=StrCat(displaylist,@LF, "AutomaticResetCapability = ", UDFFormat4Display("varAutomaticResetCapability"))
displaylist=StrCat(displaylist,@LF, "BootOptionOnLimit = ", UDFFormat4Display("varBootOptionOnLimit"))
displaylist=StrCat(displaylist,@LF, "BootOptionOnWatchDog = ", UDFFormat4Display("varBootOptionOnWatcDog"))
displaylist=StrCat(displaylist,@LF, "BootROMSupported = ", UDFFormat4Display("varBootROMSupported"))
displaylist=StrCat(displaylist,@LF, "BootupState = ", UDFFormat4Display("varBootupState"))
displaylist=StrCat(displaylist,@LF, "Caption = ", UDFFormat4Display("varCaption"))
displaylist=StrCat(displaylist,@LF, "ChassisBootupState = ", UDFFormat4Display("varCassisBootupState"))
displaylist=StrCat(displaylist,@LF, "CreationClassName = ", UDFFormat4Display("varCreationClassName"))
displaylist=StrCat(displaylist,@LF, "CurrentTimeZone = ", UDFFormat4Display("varCurrentTimeZone"))
displaylist=StrCat(displaylist,@LF, "DaylightInEffect = ", UDFFormat4Display("varDayligtInEffect"))
displaylist=StrCat(displaylist,@LF, "Description = ", UDFFormat4Display("varDescription"))
displaylist=StrCat(displaylist,@LF, "Domain = ", UDFFormat4Display("varDomain"))
displaylist=StrCat(displaylist,@LF, "DomainRole = ", UDFFormat4Display("varDomainRole"))
displaylist=StrCat(displaylist,@LF, "EnableDaylightSavingsTime = ", UDFFormat4Display("varEnableDayligtSavingsTime"))
displaylist=StrCat(displaylist,@LF, "FrontPanelResetStatus = ", UDFFormat4Display("varFrontPanelResetStatus"))
displaylist=StrCat(displaylist,@LF, "InfraredSupported = ", UDFFormat4Display("varInfraredSupported"))
displaylist=StrCat(displaylist,@LF, "InitialLoadInfo = ", UDFFormat4Display("varInitialLoadInfo"))
displaylist=StrCat(displaylist,@LF, "InstallDate = ", UDFFormat4Display("varInstallDate"))
displaylist=StrCat(displaylist,@LF, "KeyboardPasswordStatus = ", UDFFormat4Display("varKeyboardPasswordStatus"))
displaylist=StrCat(displaylist,@LF, "LastLoadInfo = ", UDFFormat4Display("varLastLoadInfo"))
displaylist=StrCat(displaylist,@LF, "Manufacturer = ", UDFFormat4Display("varManufacturer"))
displaylist=StrCat(displaylist,@LF, "Model = ", UDFFormat4Display("varModel"))
displaylist=StrCat(displaylist,@LF, "Name = ", UDFFormat4Display("varName"))
displaylist=StrCat(displaylist,@LF, "NameFormat = ", UDFFormat4Display("varNameFormat"))
displaylist=StrCat(displaylist,@LF, "NetworkServerModeEnabled = ", UDFFormat4Display("varNetworkServerModeEnabled"))
displaylist=StrCat(displaylist,@LF, "NumberOfProcessors = ", UDFFormat4Display("varNumberOfProcessors"))
displaylist=StrCat(displaylist,@LF, "OEMLogoBitmap = ", UDFFormat4Display("varOEMLogoBitmap"))
displaylist=StrCat(displaylist,@LF, "OEMStringArray = ", UDFFormat4Display("varOEMStringArray"))
displaylist=StrCat(displaylist,@LF, "PartOfDomain = ", UDFFormat4Display("varPartOfDomain"))
displaylist=StrCat(displaylist,@LF, "PauseAfterReset = ", UDFFormat4Display("varPauseAfterReset"))
displaylist=StrCat(displaylist,@LF, "PowerManagementCapabilities = ", UDFFormat4Display("varPowerManagementCapabilities"))
displaylist=StrCat(displaylist,@LF, "PowerManagementSupported = ", UDFFormat4Display("varPowerManagementSupported"))
displaylist=StrCat(displaylist,@LF, "PowerOnPasswordStatus = ", UDFFormat4Display("varPowerOnPasswordStatus"))
displaylist=StrCat(displaylist,@LF, "PowerState = ", UDFFormat4Display("varPowerState"))
displaylist=StrCat(displaylist,@LF, "PowerSupplyState = ", UDFFormat4Display("varPowerSupplyState"))
displaylist=StrCat(displaylist,@LF, "PrimaryOwnerContact = ", UDFFormat4Display("varPrimaryOwnerContact"))
displaylist=StrCat(displaylist,@LF, "PrimaryOwnerName = ", UDFFormat4Display("varPrimaryOwnerName"))
displaylist=StrCat(displaylist,@LF, "ResetCapability = ", UDFFormat4Display("varResetCapability"))
displaylist=StrCat(displaylist,@LF, "ResetCount = ", UDFFormat4Display("varResetCount"))
displaylist=StrCat(displaylist,@LF, "ResetLimit = ", UDFFormat4Display("varResetLimit"))
displaylist=StrCat(displaylist,@LF, "Roles = ", UDFFormat4Display("varRoles"))
displaylist=StrCat(displaylist,@LF, "Status = ", UDFFormat4Display("varStatus"))
displaylist=StrCat(displaylist,@LF, "SupportContactDescription = ", UDFFormat4Display("varSupportContactDescription"))
displaylist=StrCat(displaylist,@LF, "SystemStartupDelay = ", UDFFormat4Display("varSystemStartupDelay"))
displaylist=StrCat(displaylist,@LF, "SystemStartupOptions = ", UDFFormat4Display("varSystemStartupOptions"))
displaylist=StrCat(displaylist,@LF, "SystemStartupSetting = ", UDFFormat4Display("varSystemStartupSetting"))
displaylist=StrCat(displaylist,@LF, "SystemType = ", UDFFormat4Display("varSystemType"))
displaylist=StrCat(displaylist,@LF, "ThermalState = ", UDFFormat4Display("varTermalState"))
displaylist=StrCat(displaylist,@LF, "TotalPhysicalMemory = ", UDFFormat4Display("varTotalPysicalMemory"))
displaylist=StrCat(displaylist,@LF, "UserName = ", UDFFormat4Display("varUserName"))
displaylist=StrCat(displaylist,@LF, "WakeUpType = ", UDFFormat4Display("varWakeUpType"))
displaylist=StrCat(displaylist,@LF, "Workgroup = ", UDFFormat4Display("varWorkgroup"))
displaylist = StrSub(displaylist,2,-1)
; use fixed pitch font
IntControl(28,1,0,0,0)
; define coordinates for AskItemList
IntControl(63,200,200,800,800)
AskItemlist(class,displaylist,@LF,@UNSORTED,@SINGLE)
Exit
Article ID: W16282
File Created: 2004:03:30:15:43:44
Last Updated: 2004:03:30:15:43:44