WMI - все доступные классы с примерами

[Sebas]

http://www.wbem.dk/

Обновляем закладки, а можно и целиком сайт выкачать)))

[kif]

а описание sProperty есть?

[Sebas]

Непонял...

[kif]

не работает

что там подключить нужно

[kif]

я перенес код в vb6
не работает, в смысле не выдает результат.

[Sebas]

Хм, клёва постишь... понятно - самое главное. Там около 1000 листингов и какой у тя не пашет?

[kif]

Dim sServer
sServer = "."

DoWin32_ComputerSystem

Sub DoWin32_ComputerSystem
On Error Resume Next

Dim SWbemLocator
Set SWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Dim SWbemServices
Set SWbemServices = SWbemLocator.ConnectServer(sServer,"root\CIMV2")

Dim objWbemObjectSet
Set objWbemObjectSet = SWbemServices.ExecQuery("Select * From Win32_ComputerSystem", "WQL")

Dim sProperty

For Each sProperty in objWbemObjectSet
DoWrite "AdminPasswordStatus", DoCheckIfEmpty(sProperty.AdminPasswordStatus)
DoWrite "AutomaticResetBootOption", DoCheckIfEmpty(sProperty.AutomaticResetBootOption)
DoWrite "AutomaticResetCapability", DoCheckIfEmpty(sProperty.AutomaticResetCapability)
DoWrite "BootOptionOnLimit", DoCheckIfEmpty(sProperty.BootOptionOnLimit)
DoWrite "BootOptionOnWatchDog", DoCheckIfEmpty(sProperty.BootOptionOnWatchDog)
DoWrite "BootROMSupported", DoCheckIfEmpty(sProperty.BootROMSupported)
DoWrite "BootupState", DoCheckIfEmpty(sProperty.BootupState)
DoWrite "Caption", DoCheckIfEmpty(sProperty.Caption)
DoWrite "ChassisBootupState", DoCheckIfEmpty(sProperty.ChassisBootupState)
DoWrite "CreationClassName", DoCheckIfEmpty(sProperty.CreationClassName)
DoWrite "CurrentTimeZone", DoCheckIfEmpty(sProperty.CurrentTimeZone)
DoWrite "DaylightInEffect", DoCheckIfEmpty(sProperty.DaylightInEffect)
DoWrite "Description", DoCheckIfEmpty(sProperty.Description)
DoWrite "Domain", DoCheckIfEmpty(sProperty.Domain)
DoWrite "DomainRole", DoCheckIfEmpty(sProperty.DomainRole)
DoWrite "EnableDaylightSavingsTime", DoCheckIfEmpty(sProperty.EnableDaylightSavingsTime)
DoWrite "FrontPanelResetStatus", DoCheckIfEmpty(sProperty.FrontPanelResetStatus)
DoWrite "InfraredSupported", DoCheckIfEmpty(sProperty.InfraredSupported)
For aWMI = LBound(sProperty.InitialLoadInfo) To UBound(sProperty.InitialLoadInfo)
DoWrite "InitialLoadInfo", DoCheckIfEmpty(sProperty.InitialLoadInfo(aWMI))
Next
DoWrite "InstallDate", DoCheckIfEmpty(sProperty.InstallDate)
DoWrite "KeyboardPasswordStatus", DoCheckIfEmpty(sProperty.KeyboardPasswordStatus)
DoWrite "LastLoadInfo", DoCheckIfEmpty(sProperty.LastLoadInfo)
DoWrite "Manufacturer", DoCheckIfEmpty(sProperty.Manufacturer)
DoWrite "Model", DoCheckIfEmpty(sProperty.Model)
DoWrite "Name", DoCheckIfEmpty(sProperty.Name)
DoWrite "NameFormat", DoCheckIfEmpty(sProperty.NameFormat)
DoWrite "NetworkServerModeEnabled", DoCheckIfEmpty(sProperty.NetworkServerModeEnabled)
DoWrite "NumberOfProcessors", DoCheckIfEmpty(sProperty.NumberOfProcessors)
For aWMI = LBound(sProperty.OEMLogoBitmap) To UBound(sProperty.OEMLogoBitmap)
DoWrite "OEMLogoBitmap", DoCheckIfEmpty(sProperty.OEMLogoBitmap(aWMI))
Next
For aWMI = LBound(sProperty.OEMStringArray) To UBound(sProperty.OEMStringArray)
DoWrite "OEMStringArray", DoCheckIfEmpty(sProperty.OEMStringArray(aWMI))
Next
DoWrite "PartOfDomain", DoCheckIfEmpty(sProperty.PartOfDomain)
DoWrite "PauseAfterReset", DoCheckIfEmpty(sProperty.PauseAfterReset)
For aWMI = LBound(sProperty.PowerManagementCapabilities) To UBound(sProperty.PowerManagementCapabilities)
DoWrite "PowerManagementCapabilities", DoCheckIfEmpty(sProperty.PowerManagementCapabilities(aWMI))
Next
DoWrite "PowerManagementSupported", DoCheckIfEmpty(sProperty.PowerManagementSupported)
DoWrite "PowerOnPasswordStatus", DoCheckIfEmpty(sProperty.PowerOnPasswordStatus)
DoWrite "PowerState", DoCheckIfEmpty(sProperty.PowerState)
DoWrite "PowerSupplyState", DoCheckIfEmpty(sProperty.PowerSupplyState)
DoWrite "PrimaryOwnerContact", DoCheckIfEmpty(sProperty.PrimaryOwnerContact)
DoWrite "PrimaryOwnerName", DoCheckIfEmpty(sProperty.PrimaryOwnerName)
DoWrite "ResetCapability", DoCheckIfEmpty(sProperty.ResetCapability)
DoWrite "ResetCount", DoCheckIfEmpty(sProperty.ResetCount)
DoWrite "ResetLimit", DoCheckIfEmpty(sProperty.ResetLimit)
For aWMI = LBound(sProperty.Roles) To UBound(sProperty.Roles)
DoWrite "Roles", DoCheckIfEmpty(sProperty.Roles(aWMI))
Next
DoWrite "Status", DoCheckIfEmpty(sProperty.Status)
For aWMI = LBound(sProperty.SupportContactDescription) To UBound(sProperty.SupportContactDescription)
DoWrite "SupportContactDescription", DoCheckIfEmpty(sProperty.SupportContactDescription(aWMI))
Next
DoWrite "SystemStartupDelay", DoCheckIfEmpty(sProperty.SystemStartupDelay)
For aWMI = LBound(sProperty.SystemStartupOptions) To UBound(sProperty.SystemStartupOptions)
DoWrite "SystemStartupOptions", DoCheckIfEmpty(sProperty.SystemStartupOptions(aWMI))
Next
DoWrite "SystemStartupSetting", DoCheckIfEmpty(sProperty.SystemStartupSetting)
DoWrite "SystemType", DoCheckIfEmpty(sProperty.SystemType)
DoWrite "ThermalState", DoCheckIfEmpty(sProperty.ThermalState)
DoWrite "TotalPhysicalMemory", DoCheckIfEmpty(sProperty.TotalPhysicalMemory)
DoWrite "UserName", DoCheckIfEmpty(sProperty.UserName)
DoWrite "WakeUpType", DoCheckIfEmpty(sProperty.WakeUpType)
DoWrite "Workgroup", DoCheckIfEmpty(sProperty.Workgroup)
Wscript.Echo
Next
End Sub

Function DoCheckIfEmpty(sValue)
If IsNull(sValue) Then
DoCheckIfEmpty = "Empty"
Else
DoCheckIfEmpty = sValue
End If
End Function

Sub DoWrite(sText, sValue)
WScript.Echo sText & DoFormat(sText), sValue
End Sub

Function DoFormat(sText)
DoFormat = Space(28 - Len(sText)) & " = "
End Function

[kif]

Переделал на:


Dim sServer

Private Sub Form_Load()

sServer = "."

DoWin32_ComputerSystem
End Sub

Sub DoWin32_ComputerSystem()
Dim aWMI
On Error Resume Next

Dim SWbemLocator
Set SWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Dim SWbemServices
Set SWbemServices = SWbemLocator.ConnectServer(sServer, "root\CIMV2")

Dim objWbemObjectSet
Set objWbemObjectSet = SWbemServices.ExecQuery("Select * From Win32_ComputerSystem", "WQL")

Dim sProperty

For Each sProperty In objWbemObjectSet
Add "AdminPasswordStatus", DoCheckIfEmpty(sProperty.AdminPasswordStatus)
Add "AutomaticResetBootOption", DoCheckIfEmpty(sProperty.AutomaticResetBootOption)
Add "AutomaticResetCapability", DoCheckIfEmpty(sProperty.AutomaticResetCapability)
Add "BootOptionOnLimit", DoCheckIfEmpty(sProperty.BootOptionOnLimit)
Add "BootOptionOnWatchDog", DoCheckIfEmpty(sProperty.BootOptionOnWatchDog)
Add "BootROMSupported", DoCheckIfEmpty(sProperty.BootROMSupported)
Add "BootupState", DoCheckIfEmpty(sProperty.BootupState)
Add "Caption", DoCheckIfEmpty(sProperty.Caption)
Add "ChassisBootupState", DoCheckIfEmpty(sProperty.ChassisBootupState)
Add "CreationClassName", DoCheckIfEmpty(sProperty.CreationClassName)
Add "CurrentTimeZone", DoCheckIfEmpty(sProperty.CurrentTimeZone)
Add "DaylightInEffect", DoCheckIfEmpty(sProperty.DaylightInEffect)
Add "Description", DoCheckIfEmpty(sProperty.Description)
Add "Domain", DoCheckIfEmpty(sProperty.Domain)
Add "DomainRole", DoCheckIfEmpty(sProperty.DomainRole)
Add "EnableDaylightSavingsTime", DoCheckIfEmpty(sProperty.EnableDaylightSavingsTime)
Add "FrontPanelResetStatus", DoCheckIfEmpty(sProperty.FrontPanelResetStatus)
Add "InfraredSupported", DoCheckIfEmpty(sProperty.InfraredSupported)
For aWMI = LBound(sProperty.InitialLoadInfo) To UBound(sProperty.InitialLoadInfo)
Add "InitialLoadInfo", DoCheckIfEmpty(sProperty.InitialLoadInfo(aWMI))
Next
Add "InstallDate", DoCheckIfEmpty(sProperty.InstallDate)
Add "KeyboardPasswordStatus", DoCheckIfEmpty(sProperty.KeyboardPasswordStatus)
Add "LastLoadInfo", DoCheckIfEmpty(sProperty.LastLoadInfo)
Add "Manufacturer", DoCheckIfEmpty(sProperty.Manufacturer)
Add "Model", DoCheckIfEmpty(sProperty.Model)
Add "Name", DoCheckIfEmpty(sProperty.Name)
Add "NameFormat", DoCheckIfEmpty(sProperty.NameFormat)
Add "NetworkServerModeEnabled", DoCheckIfEmpty(sProperty.NetworkServerModeEnabled)
Add "NumberOfProcessors", DoCheckIfEmpty(sProperty.NumberOfProcessors)
For aWMI = LBound(sProperty.OEMLogoBitmap) To UBound(sProperty.OEMLogoBitmap)
Add "OEMLogoBitmap", DoCheckIfEmpty(sProperty.OEMLogoBitmap(aWMI))
Next
For aWMI = LBound(sProperty.OEMStringArray) To UBound(sProperty.OEMStringArray)
Add "OEMStringArray", DoCheckIfEmpty(sProperty.OEMStringArray(aWMI))
Next
Add "PartOfDomain", DoCheckIfEmpty(sProperty.PartOfDomain)
Add "PauseAfterReset", DoCheckIfEmpty(sProperty.PauseAfterReset)
For aWMI = LBound(sProperty.PowerManagementCapabilities) To UBound(sProperty.PowerManagementCapabilities)
Add "PowerManagementCapabilities", DoCheckIfEmpty(sProperty.PowerManagementCapabilities(aWMI))
Next
Add "PowerManagementSupported", DoCheckIfEmpty(sProperty.PowerManagementSupported)
Add "PowerOnPasswordStatus", DoCheckIfEmpty(sProperty.PowerOnPasswordStatus)
Add "PowerState", DoCheckIfEmpty(sProperty.PowerState)
Add "PowerSupplyState", DoCheckIfEmpty(sProperty.PowerSupplyState)
Add "PrimaryOwnerContact", DoCheckIfEmpty(sProperty.PrimaryOwnerContact)
Add "PrimaryOwnerName", DoCheckIfEmpty(sProperty.PrimaryOwnerName)
Add "ResetCapability", DoCheckIfEmpty(sProperty.ResetCapability)
Add "ResetCount", DoCheckIfEmpty(sProperty.ResetCount)
Add "ResetLimit", DoCheckIfEmpty(sProperty.ResetLimit)
For aWMI = LBound(sProperty.Roles) To UBound(sProperty.Roles)
Add "Roles", DoCheckIfEmpty(sProperty.Roles(aWMI))
Next
Add "Status", DoCheckIfEmpty(sProperty.Status)
For aWMI = LBound(sProperty.SupportContactDescription) To UBound(sProperty.SupportContactDescription)
Add "SupportContactDescription", DoCheckIfEmpty(sProperty.SupportContactDescription(aWMI))
Next
Add "SystemStartupDelay", DoCheckIfEmpty(sProperty.SystemStartupDelay)
For aWMI = LBound(sProperty.SystemStartupOptions) To UBound(sProperty.SystemStartupOptions)
Add "SystemStartupOptions", DoCheckIfEmpty(sProperty.SystemStartupOptions(aWMI))
Next
Add "SystemStartupSetting", DoCheckIfEmpty(sProperty.SystemStartupSetting)
Add "SystemType", DoCheckIfEmpty(sProperty.SystemType)
Add "ThermalState", DoCheckIfEmpty(sProperty.ThermalState)
Add "TotalPhysicalMemory", DoCheckIfEmpty(sProperty.TotalPhysicalMemory)
Add "UserName", DoCheckIfEmpty(sProperty.UserName)
Add "WakeUpType", DoCheckIfEmpty(sProperty.WakeUpType)
Add "Workgroup", DoCheckIfEmpty(sProperty.Workgroup)

Next
End Sub

Function DoCheckIfEmpty(sValue)
If IsNull(sValue) Then
DoCheckIfEmpty = "Empty"
Else
DoCheckIfEmpty = sValue
End If
End Function

Sub Add(sText, sValue)
List1.AddItem sText & DoFormat(sText), sValue
End Sub

Function DoFormat(sText)
DoFormat = Space(28 - Len(sText)) & " = "
End Function

[Sebas]

Продолжаем разговор))))...

И где ошибка?

[kif]

дело не в ошибке, а в том что после названия класса нет данных:

пишет
AdminPasswordStatus : а тут болт

вроде все проверил - нормально.