<html>
<head><title>WMI信息获取——请将本站点加入到可信站点</title>
</head>
<body>
<p align=center>List: <input type=button value="NetworkAdapter" onclick="vbscript:DoListNetworkAdapter">
<input type=button value="NetworkAdapterCfg" onclick="vbscript:DoListNetworkAdapterCfg">
<input type=button value="Computer" onclick="vbscript:DoListComputer">
<input type=button value="Disk" onclick="vbscript:DoListDisk">
<input type=button value="System" onclick="vbscript:DoListSystem">
<input type=button value="CPU" onclick="vbscript:DoListCPU">
<input type=button value="Memory" onclick="vbscript:DoListMemory">
<input type=button value="SoundDevice" onclick="vbscript:DoListSoundDevice">
<input type=button value="VideoController" onclick="vbscript:DoListVideoController"></p>
<a id=mylist>MyList :)<br>为了让脚本能够成功的执行，请将本站点加入到可信站点，并在弹出的ActiveX交互对话框中点击“是”。</a>
<script language="VBScript">
DIM MyCrLf
MyCrLf=" <br> "
Set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objWMILocator.ConnectServer
function DoListNetworkAdapter
'On Error Resume Next
mylist.innerHTML="Listing
"
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
mylist.innerHTML=""
For Each objItem in colItems
WITH objItem
if .MACAddress<>"" then
mylist.innerHTML = mylist.innerHTML & "<br>AdapterType: " & .AdapterType & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "AutoSense: " & .AutoSense & MyCrLf
mylist.innerHTML = mylist.innerHTML & "Availability: " & .Availability & MyCrLf
mylist.innerHTML = mylist.innerHTML & "Caption: " & .Caption & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "ConfigManagerErrorCode: " & .ConfigManagerErrorCode & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "ConfigManagerUserConfig: " & .ConfigManagerUserConfig & MyCrLf
mylist.innerHTML = mylist.innerHTML & "CreationClassName: " & .CreationClassName & MyCrLf
mylist.innerHTML = mylist.innerHTML & "Description: " & .Description & MyCrLf
mylist.innerHTML = mylist.innerHTML & "DeviceID: " & .DeviceID & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "ErrorCleared: " & .ErrorCleared & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "ErrorDescription: " & .ErrorDescription & MyCrLf
mylist.innerHTML = mylist.innerHTML & "Index: " & .Index & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "InstallDate: " & .InstallDate & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "Installed: " & .Installed & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "LastErrorCode: " & .LastErrorCode & MyCrLf
mylist.innerHTML = mylist.innerHTML & "MACAddress: " & .MACAddress & MyCrLf
mylist.innerHTML = mylist.innerHTML & "Manufacturer: " & .Manufacturer & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "MaxNumberControlled: " & .MaxNumberControlled & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "MaxSpeed: " & .MaxSpeed & MyCrLf
mylist.innerHTML = mylist.innerHTML & "Name: " & .Name & MyCrLf
if not IsNull(.NetworkAddresses) then
For Each strAddress in .NetworkAddresses
mylist.innerHTML = mylist.innerHTML & "NetworkAddresses: " & strAddress & MyCrLf
Next
end if
mylist.innerHTML = mylist.innerHTML & "PermanentAddress: " & .PermanentAddress & MyCrLf
mylist.innerHTML = mylist.innerHTML & "PNPDeviceID: " & .PNPDeviceID & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
mylist.innerHTML = mylist.innerHTML & "ProductName: " & .ProductName & MyCrLf
mylist.innerHTML = mylist.innerHTML & "ServiceName: " & .ServiceName & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "Speed: " & .Speed & MyCrLf
mylist.innerHTML = mylist.innerHTML & "Status: " & .Status & MyCrLf
mylist.innerHTML = mylist.innerHTML & "StatusInfo: " & .StatusInfo & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "SystemCreationClassName: " & .SystemCreationClassName & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "SystemName: " & .SystemName & MyCrLf
'mylist.innerHTML = mylist.innerHTML & "TimeOfLastReset: " & .TimeOfLastReset & MyCrLf
end if
END WITH
Next
end function
function DoListNetworkAdapterCfg
On Error Resume Next
Win32_NetworkAdapterConfiguration=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=true",,48)
For Each objItem in colItems
WITH objItem
if .MACAddress<>"" then
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "<br>Caption: " & .Caption & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DatabasePath: " & .DatabasePath & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DeadGWDetectEnabled: " & .DeadGWDetectEnabled & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DefaultIPGateway: " & .DefaultIPGateway(0) & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DefaultTOS: " & .DefaultTOS & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DefaultTTL: " & .DefaultTTL & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "Description: " & .Description & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DHCPEnabled: " & .DHCPEnabled & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DHCPLeaseExpires: " & .DHCPLeaseExpires & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DHCPLeaseObtained: " & .DHCPLeaseObtained & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DHCPServer: " & .DHCPServer & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DNSDomain: " & .DNSDomain & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DNSDomainSuffixSearchOrder: " & .DNSDomainSuffixSearchOrder & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DNSEnabledForWINSResolution: " & .DNSEnabledForWINSResolution & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DNSHostName: " & .DNSHostName & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DNSServerSearchOrder: " & .DNSServerSearchOrder & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "DomainDNSRegistrationEnabled: " & .DomainDNSRegistrationEnabled & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "ForwardBufferMemory: " & .ForwardBufferMemory & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "FullDNSRegistrationEnabled: " & .FullDNSRegistrationEnabled & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "GatewayCostMetric: " & .GatewayCostMetric & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IGMPLevel: " & .IGMPLevel & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "Index: " & CStr(.Index) & MyCrLf
if not IsNull(.IPAddress) then
For Each IPItem in .IPAddress
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPAddress: " & IPItem & MyCrLf
Next
end if
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPConnectionMetric: " & .IPConnectionMetric & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPEnabled: " & .IPEnabled & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPFilterSecurityEnabled: " & .IPFilterSecurityEnabled & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPPortSecurityEnabled: " & .IPPortSecurityEnabled & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPSecPermitIPProtocols: " & .IPSecPermitIPProtocols & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPSecPermitTCPPorts: " & .IPSecPermitTCPPorts & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPSecPermitUDPPorts: " & .IPSecPermitUDPPorts & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPSubnet: " & .IPSubnet(0) & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPUseZeroBroadcast: " & .IPUseZeroBroadcast & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPXAddress: " & .IPXAddress & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPXEnabled: " & .IPXEnabled & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPXFrameType: " & .IPXFrameType & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPXMediaType: " & .IPXMediaType & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPXNetworkNumber: " & .IPXNetworkNumber & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "IPXVirtualNetNumber: " & .IPXVirtualNetNumber & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "KeepAliveInterval: " & .KeepAliveInterval & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "KeepAliveTime: " & .KeepAliveTime & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "MACAddress: " & .MACAddress & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "WINSPrimaryServer: " & .WINSPrimaryServer & MyCrLf
'Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "WINSScopeID: " & .WINSScopeID & MyCrLf
Win32_NetworkAdapterConfiguration = Win32_NetworkAdapterConfiguration & "WINSSecondaryServer: " & .WINSSecondaryServer & MyCrLf
end if
END WITH
Next
mylist.innerHTML=Win32_NetworkAdapterConfiguration
end function
function DoListComputer
On Error Resume Next
Win32_ComputerSystem=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
WITH objItem
Win32_ComputerSystem = Win32_ComputerSystem & "<br>Caption: " & .Caption & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "ChassisBootupState: " & .ChassisBootupState & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "CreationClassName: " & .CreationClassName & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "CurrentTimeZone: " & .CurrentTimeZone & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "DaylightInEffect: " & .DaylightInEffect & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "Description: " & .Description & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "Domain: " & .Domain & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "DomainRole: " & .DomainRole & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "FrontPanelResetStatus: " & .FrontPanelResetStatus & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "InfraredSupported: " & .InfraredSupported & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "InitialLoadInfo: " & .InitialLoadInfo & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "InstallDate: " & .InstallDate & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "KeyboardPasswordStatus: " & .KeyboardPasswordStatus & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "LastLoadInfo: " & .LastLoadInfo & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "Manufacturer: " & .Manufacturer & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "Model: " & .Model & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "Name: " & .Name & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "NameFormat: " & .NameFormat & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "NetworkServerModeEnabled: " & .NetworkServerModeEnabled & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "NumberOfProcessors: " & .NumberOfProcessors & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "OEMLogoBitmap: " & .OEMLogoBitmap & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "OEMStringArray: " & .OEMStringArray & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "PauseAfterReset: " & .PauseAfterReset & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "PowerOnPasswordStatus: " & .PowerOnPasswordStatus & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "PowerState: " & .PowerState & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "PowerSupplyState: " & .PowerSupplyState & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "PrimaryOwnerContact: " & .PrimaryOwnerContact & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "PrimaryOwnerName: " & .PrimaryOwnerName & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "ResetCapability: " & .ResetCapability & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "ResetCount: " & .ResetCount & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "ResetLimit: " & .ResetLimit & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "Roles: " & .Roles & MyCrLf
'Win32_ComputerSystem = Win32_ComputerSystem & "Status: " & .Status & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "SupportContactDescription: " & .SupportContactDescription & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "SystemStartupDelay: " & .SystemStartupDelay & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "SystemStartupOptions: " & .SystemStartupOptions & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "SystemStartupSetting: " & .SystemStartupSetting & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "SystemType: " & .SystemType & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "ThermalState: " & .ThermalState & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "TotalPhysicalMemory: " & .TotalPhysicalMemory & MyCrLf
Win32_ComputerSystem = Win32_ComputerSystem & "UserName: " & .UserName & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_ComputerSystem
Win32_ComputerSystemProduct=""
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)
For Each objItem in colItems
WITH objItem
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "<br>Caption: " & .Caption & MyCrLf
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "Description: " & .Description & MyCrLf
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "IdentifyingNumber: " & .IdentifyingNumber & MyCrLf
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "Name: " & .Name & MyCrLf
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "SKUNumber: " & .SKUNumber & MyCrLf
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "UUID: " & .UUID & MyCrLf
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "Vendor: " & .Vendor & MyCrLf
Win32_ComputerSystemProduct = Win32_ComputerSystemProduct & "Version: " & .Version & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_ComputerSystem+MyCrLf+Win32_ComputerSystemProduct
end function
function DoListDisk
On Error Resume Next
Win32_DiskDrive=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
For Each objItem in colItems
WITH objItem
Win32_DiskDrive = Win32_DiskDrive & "<br>Availability: " & .Availability & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "BytesPerSector: " & .BytesPerSector & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Capabilities: " & .Capabilities & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "CapabilityDescriptions: " & .CapabilityDescriptions & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Caption: " & .Caption & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "CompressionMethod: " & .CompressionMethod & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "ConfigManagerErrorCode: " & .ConfigManagerErrorCode & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "ConfigManagerUserConfig: " & .ConfigManagerUserConfig & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "DefaultBlockSize: " & .DefaultBlockSize & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Description: " & .Description & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "DeviceID: " & .DeviceID & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "ErrorCleared: " & .ErrorCleared & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "ErrorDescription: " & .ErrorDescription & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "ErrorMethodology: " & .ErrorMethodology & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Index: " & .Index & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "InstallDate: " & .InstallDate & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "InterfaceType: " & .InterfaceType & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "LastErrorCode: " & .LastErrorCode & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Manufacturer: " & .Manufacturer & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "MaxBlockSize: " & .MaxBlockSize & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "MaxMediaSize: " & .MaxMediaSize & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "MediaLoaded: " & .MediaLoaded & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "MediaType: " & .MediaType & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "MinBlockSize: " & .MinBlockSize & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Model: " & .Model & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Name: " & .Name & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "NeedsCleaning: " & .NeedsCleaning & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "NumberOfMediaSupported: " & .NumberOfMediaSupported & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Partitions: " & .Partitions & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "PNPDeviceID: " & .PNPDeviceID & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "SectorsPerTrack: " & .SectorsPerTrack & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Size: " & .Size & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "Status: " & .Status & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "StatusInfo: " & .StatusInfo & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "SystemCreationClassName: " & .SystemCreationClassName & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "SystemName: " & .SystemName & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "TotalCylinders: " & .TotalCylinders & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "TotalHeads: " & .TotalHeads & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "TotalSectors: " & .TotalSectors & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "TotalTracks: " & .TotalTracks & MyCrLf
Win32_DiskDrive = Win32_DiskDrive & "TracksPerCylinder: " & .TracksPerCylinder & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_DiskDrive
Win32_DiskPartition=""
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskPartition",,48)
For Each objItem in colItems
WITH objItem
'Win32_DiskPartition = Win32_DiskPartition & "Access: " & .Access & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "<br>Availability: " & .Availability & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "BlockSize: " & .BlockSize & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "Bootable: " & .Bootable & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "BootPartition: " & .BootPartition & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "Caption: " & .Caption & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "ConfigManagerErrorCode: " & .ConfigManagerErrorCode & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "ConfigManagerUserConfig: " & .ConfigManagerUserConfig & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "Description: " & .Description & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "DeviceID: " & .DeviceID & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "DiskIndex: " & .DiskIndex & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "ErrorCleared: " & .ErrorCleared & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "ErrorDescription: " & .ErrorDescription & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "ErrorMethodology: " & .ErrorMethodology & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "HiddenSectors: " & .HiddenSectors & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "Index: " & .Index & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "InstallDate: " & .InstallDate & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "LastErrorCode: " & .LastErrorCode & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "Name: " & .Name & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "NumberOfBlocks: " & .NumberOfBlocks & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "PNPDeviceID: " & .PNPDeviceID & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "PrimaryPartition: " & .PrimaryPartition & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "Purpose: " & .Purpose & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "RewritePartition: " & .RewritePartition & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "Size: " & .Size & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "StartingOffset: " & .StartingOffset & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "Status: " & .Status & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "StatusInfo: " & .StatusInfo & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "SystemCreationClassName: " & .SystemCreationClassName & MyCrLf
'Win32_DiskPartition = Win32_DiskPartition & "SystemName: " & .SystemName & MyCrLf
Win32_DiskPartition = Win32_DiskPartition & "Type: " & .Type & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_DiskDrive+MyCrLf+Win32_DiskPartition
Win32_LogicalDisk=""
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
For Each objItem in colItems
WITH objItem
'Win32_LogicalDisk = Win32_LogicalDisk & "Access: " & .Access & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "Availability: " & .Availability & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "BlockSize: " & .BlockSize & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "<br>Caption: " & .Caption & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "Compressed: " & .Compressed & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "ConfigManagerErrorCode: " & .ConfigManagerErrorCode & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "ConfigManagerUserConfig: " & .ConfigManagerUserConfig & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "Description: " & .Description & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "DeviceID: " & .DeviceID & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "DriveType: " & .DriveType & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "ErrorCleared: " & .ErrorCleared & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "ErrorDescription: " & .ErrorDescription & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "ErrorMethodology: " & .ErrorMethodology & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "FileSystem: " & .FileSystem & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "FreeSpace: " & .FreeSpace & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "InstallDate: " & .InstallDate & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "LastErrorCode: " & .LastErrorCode & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "MaximumComponentLength: " & .MaximumComponentLength & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "MediaType: " & .MediaType & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "Name: " & .Name & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "NumberOfBlocks: " & .NumberOfBlocks & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "PNPDeviceID: " & .PNPDeviceID & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "ProviderName: " & .ProviderName & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "Purpose: " & .Purpose & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "Size: " & .Size & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "Status: " & .Status & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "StatusInfo: " & .StatusInfo & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "SupportsFileBasedCompression: " & .SupportsFileBasedCompression & MyCrLf
'Win32_LogicalDisk = Win32_LogicalDisk & "SystemCreationClassName: " & .SystemCreationClassName & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "SystemName: " & .SystemName & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "VolumeName: " & .VolumeName & MyCrLf
Win32_LogicalDisk = Win32_LogicalDisk & "VolumeSerialNumber: " & .VolumeSerialNumber & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_DiskDrive+MyCrLf+Win32_DiskPartition+MyCrLf+Win32_LogicalDisk
end function
function DoListSystem
On Error Resume Next
Win32_OperatingSystem=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
WITH objItem
Win32_OperatingSystem = Win32_OperatingSystem & "BootDevice: " & .BootDevice & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "BuildNumber: " & .BuildNumber & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "BuildType: " & .BuildType & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Caption: " & .Caption & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "CodeSet: " & .CodeSet & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "CountryCode: " & .CountryCode & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "CSCreationClassName: " & .CSCreationClassName & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "CSDVersion: " & .CSDVersion & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "CSName: " & .CSName & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "CurrentTimeZone: " & .CurrentTimeZone & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "Debug: " & .Debug & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Description: " & .Description & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Distributed: " & .Distributed & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "ForegroundApplicationBoost: " & .ForegroundApplicationBoost & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "FreePhysicalMemory: " & .FreePhysicalMemory & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "FreeSpaceInPagingFiles: " & .FreeSpaceInPagingFiles & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "FreeVirtualMemory: " & .FreeVirtualMemory & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "InstallDate: " & .InstallDate & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "LastBootUpTime: " & .LastBootUpTime & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "LocalDateTime: " & .LocalDateTime & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Locale: " & .Locale & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Manufacturer: " & .Manufacturer & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "MaxNumberOfProcesses: " & .MaxNumberOfProcesses & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "MaxProcessMemorySize: " & .MaxProcessMemorySize & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Name: " & .Name & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "NumberOfLicensedUsers: " & .NumberOfLicensedUsers & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "NumberOfProcesses: " & .NumberOfProcesses & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "NumberOfUsers: " & .NumberOfUsers & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Organization: " & .Organization & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "OSLanguage: " & .OSLanguage & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "OSProductSuite: " & .OSProductSuite & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "OSType: " & .OSType & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "OtherTypeDescription: " & .OtherTypeDescription & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "PlusProductID: " & .PlusProductID & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "PlusVersionNumber: " & .PlusVersionNumber & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Primary: " & .Primary & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "QuantumLength: " & .QuantumLength & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "QuantumType: " & .QuantumType & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "RegisteredUser: " & .RegisteredUser & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "SerialNumber: " & .SerialNumber & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "ServicePackMajorVersion: " & .ServicePackMajorVersion & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "ServicePackMinorVersion: " & .ServicePackMinorVersion & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "SizeStoredInPagingFiles: " & .SizeStoredInPagingFiles & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "Status: " & .Status & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "SystemDevice: " & .SystemDevice & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "SystemDirectory: " & .SystemDirectory & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "TotalSwapSpaceSize: " & .TotalSwapSpaceSize & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "TotalVirtualMemorySize: " & .TotalVirtualMemorySize & MyCrLf
'Win32_OperatingSystem = Win32_OperatingSystem & "TotalVisibleMemorySize: " & .TotalVisibleMemorySize & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "Version: " & .Version & MyCrLf
Win32_OperatingSystem = Win32_OperatingSystem & "WindowsDirectory: " & .WindowsDirectory & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_OperatingSystem
end function
function DoListCPU
On Error Resume Next
Win32_Processor=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
For Each objItem in colItems
WITH objItem
Win32_Processor = Win32_Processor & "<br>AddressWidth: " & .AddressWidth & MyCrLf
Win32_Processor = Win32_Processor & "Architecture: " & .Architecture & MyCrLf
Win32_Processor = Win32_Processor & "Availability: " & .Availability & MyCrLf
Win32_Processor = Win32_Processor & "Caption: " & .Caption & MyCrLf
'Win32_Processor = Win32_Processor & "ConfigManagerErrorCode: " & .ConfigManagerErrorCode & MyCrLf
'Win32_Processor = Win32_Processor & "ConfigManagerUserConfig: " & .ConfigManagerUserConfig & MyCrLf
Win32_Processor = Win32_Processor & "CpuStatus: " & .CpuStatus & MyCrLf
'Win32_Processor = Win32_Processor & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_Processor = Win32_Processor & "CurrentClockSpeed: " & .CurrentClockSpeed & MyCrLf
Win32_Processor = Win32_Processor & "CurrentVoltage: " & .CurrentVoltage & MyCrLf
Win32_Processor = Win32_Processor & "DataWidth: " & .DataWidth & MyCrLf
Win32_Processor = Win32_Processor & "Description: " & .Description & MyCrLf
Win32_Processor = Win32_Processor & "DeviceID: " & .DeviceID & MyCrLf
'Win32_Processor = Win32_Processor & "ErrorCleared: " & .ErrorCleared & MyCrLf
'Win32_Processor = Win32_Processor & "ErrorDescription: " & .ErrorDescription & MyCrLf
Win32_Processor = Win32_Processor & "ExtClock: " & .ExtClock & MyCrLf
Win32_Processor = Win32_Processor & "Family: " & .Family & MyCrLf
Win32_Processor = Win32_Processor & "InstallDate: " & .InstallDate & MyCrLf
Win32_Processor = Win32_Processor & "L2CacheSize: " & .L2CacheSize & MyCrLf
Win32_Processor = Win32_Processor & "L2CacheSpeed: " & .L2CacheSpeed & MyCrLf
'Win32_Processor = Win32_Processor & "LastErrorCode: " & .LastErrorCode & MyCrLf
Win32_Processor = Win32_Processor & "Level: " & .Level & MyCrLf
Win32_Processor = Win32_Processor & "LoadPercentage: " & .LoadPercentage & MyCrLf
Win32_Processor = Win32_Processor & "Manufacturer: " & .Manufacturer & MyCrLf
Win32_Processor = Win32_Processor & "MaxClockSpeed: " & .MaxClockSpeed & MyCrLf
Win32_Processor = Win32_Processor & "Name: " & .Name & MyCrLf
Win32_Processor = Win32_Processor & "OtherFamilyDescription: " & .OtherFamilyDescription & MyCrLf
Win32_Processor = Win32_Processor & "PNPDeviceID: " & .PNPDeviceID & MyCrLf
Win32_Processor = Win32_Processor & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
Win32_Processor = Win32_Processor & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
Win32_Processor = Win32_Processor & "ProcessorId: " & .ProcessorId & MyCrLf
Win32_Processor = Win32_Processor & "ProcessorType: " & .ProcessorType & MyCrLf
Win32_Processor = Win32_Processor & "Revision: " & .Revision & MyCrLf
Win32_Processor = Win32_Processor & "Role: " & .Role & MyCrLf
Win32_Processor = Win32_Processor & "SocketDesignation: " & .SocketDesignation & MyCrLf
Win32_Processor = Win32_Processor & "Status: " & .Status & MyCrLf
Win32_Processor = Win32_Processor & "StatusInfo: " & .StatusInfo & MyCrLf
Win32_Processor = Win32_Processor & "Stepping: " & .Stepping & MyCrLf
'Win32_Processor = Win32_Processor & "SystemCreationClassName: " & .SystemCreationClassName & MyCrLf
'Win32_Processor = Win32_Processor & "SystemName: " & .SystemName & MyCrLf
Win32_Processor = Win32_Processor & "UniqueId: " & .UniqueId & MyCrLf
Win32_Processor = Win32_Processor & "UpgradeMethod: " & .UpgradeMethod & MyCrLf
Win32_Processor = Win32_Processor & "Version: " & .Version & MyCrLf
Win32_Processor = Win32_Processor & "VoltageCaps: " & .VoltageCaps & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_Processor
end function
function DoListMemory
On Error Resume Next
Win32_PhysicalMemory=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objItem in colItems
WITH objItem
Win32_PhysicalMemory = Win32_PhysicalMemory & "<br>BankLabel: " & .BankLabel & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Capacity: " & .Capacity & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Caption: " & .Caption & MyCrLf
'Win32_PhysicalMemory = Win32_PhysicalMemory & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "DataWidth: " & .DataWidth & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Description: " & .Description & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "DeviceLocator: " & .DeviceLocator & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "FormFactor: " & .FormFactor & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "HotSwappable: " & .HotSwappable & MyCrLf
'Win32_PhysicalMemory = Win32_PhysicalMemory & "InstallDate: " & .InstallDate & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "InterleaveDataDepth: " & .InterleaveDataDepth & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "InterleavePosition: " & .InterleavePosition & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Manufacturer: " & .Manufacturer & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "MemoryType: " & .MemoryType & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Model: " & .Model & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Name: " & .Name & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "OtherIdentifyingInfo: " & .OtherIdentifyingInfo & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "PartNumber: " & .PartNumber & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "PositionInRow: " & .PositionInRow & MyCrLf
'Win32_PhysicalMemory = Win32_PhysicalMemory & "PoweredOn: " & .PoweredOn & MyCrLf
'Win32_PhysicalMemory = Win32_PhysicalMemory & "Removable: " & .Removable & MyCrLf
'Win32_PhysicalMemory = Win32_PhysicalMemory & "Replaceable: " & .Replaceable & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "SerialNumber: " & .SerialNumber & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "SKU: " & .SKU & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Speed: " & .Speed & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Status: " & .Status & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Tag: " & .Tag & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "TotalWidth: " & .TotalWidth & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "TypeDetail: " & .TypeDetail & MyCrLf
Win32_PhysicalMemory = Win32_PhysicalMemory & "Version: " & .Version & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_PhysicalMemory
end function
function DoListSoundDevice
On Error Resume Next
Win32_SoundDevice=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoundDevice",,48)
For Each objItem in colItems
WITH objItem
'Win32_SoundDevice = Win32_SoundDevice & "Availability: " & .Availability & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "<br>Caption: " & .Caption & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "ConfigManagerErrorCode: " & .ConfigManagerErrorCode & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "ConfigManagerUserConfig: " & .ConfigManagerUserConfig & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "Description: " & .Description & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "DeviceID: " & .DeviceID & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "DMABufferSize: " & .DMABufferSize & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "ErrorCleared: " & .ErrorCleared & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "ErrorDescription: " & .ErrorDescription & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "InstallDate: " & .InstallDate & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "LastErrorCode: " & .LastErrorCode & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "Manufacturer: " & .Manufacturer & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "MPU401Address: " & .MPU401Address & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "Name: " & .Name & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "PNPDeviceID: " & .PNPDeviceID & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "ProductName: " & .ProductName & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "Status: " & .Status & MyCrLf
Win32_SoundDevice = Win32_SoundDevice & "StatusInfo: " & .StatusInfo & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "SystemCreationClassName: " & .SystemCreationClassName & MyCrLf
'Win32_SoundDevice = Win32_SoundDevice & "SystemName: " & .SystemName & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_SoundDevice
end function
function DoListVideoController
On Error Resume Next
Win32_VideoController=""
mylist.innerHTML="Listing"
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
For Each objItem in colItems
WITH objItem
Win32_VideoController = Win32_VideoController & "<br>AcceleratorCapabilities: " & .AcceleratorCapabilities & MyCrLf
Win32_VideoController = Win32_VideoController & "AdapterCompatibility: " & .AdapterCompatibility & MyCrLf
Win32_VideoController = Win32_VideoController & "AdapterDACType: " & .AdapterDACType & MyCrLf
Win32_VideoController = Win32_VideoController & "AdapterRAM: " & .AdapterRAM & MyCrLf
Win32_VideoController = Win32_VideoController & "Availability: " & .Availability & MyCrLf
Win32_VideoController = Win32_VideoController & "CapabilityDescriptions: " & .CapabilityDescriptions & MyCrLf
Win32_VideoController = Win32_VideoController & "Caption: " & .Caption & MyCrLf
Win32_VideoController = Win32_VideoController & "ColorTableEntries: " & .ColorTableEntries & MyCrLf
'Win32_VideoController = Win32_VideoController & "ConfigManagerErrorCode: " & .ConfigManagerErrorCode & MyCrLf
'Win32_VideoController = Win32_VideoController & "ConfigManagerUserConfig: " & .ConfigManagerUserConfig & MyCrLf
'Win32_VideoController = Win32_VideoController & "CreationClassName: " & .CreationClassName & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentBitsPerPixel: " & .CurrentBitsPerPixel & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentHorizontalResolution: " & .CurrentHorizontalResolution & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentNumberOfColors: " & .CurrentNumberOfColors & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentNumberOfColumns: " & .CurrentNumberOfColumns & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentNumberOfRows: " & .CurrentNumberOfRows & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentRefreshRate: " & .CurrentRefreshRate & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentScanMode: " & .CurrentScanMode & MyCrLf
Win32_VideoController = Win32_VideoController & "CurrentVerticalResolution: " & .CurrentVerticalResolution & MyCrLf
Win32_VideoController = Win32_VideoController & "Description: " & .Description & MyCrLf
Win32_VideoController = Win32_VideoController & "DeviceID: " & .DeviceID & MyCrLf
Win32_VideoController = Win32_VideoController & "DeviceSpecificPens: " & .DeviceSpecificPens & MyCrLf
Win32_VideoController = Win32_VideoController & "DitherType: " & .DitherType & MyCrLf
Win32_VideoController = Win32_VideoController & "DriverDate: " & .DriverDate & MyCrLf
Win32_VideoController = Win32_VideoController & "DriverVersion: " & .DriverVersion & MyCrLf
Win32_VideoController = Win32_VideoController & "ErrorCleared: " & .ErrorCleared & MyCrLf
Win32_VideoController = Win32_VideoController & "ErrorDescription: " & .ErrorDescription & MyCrLf
Win32_VideoController = Win32_VideoController & "ICMIntent: " & .ICMIntent & MyCrLf
Win32_VideoController = Win32_VideoController & "ICMMethod: " & .ICMMethod & MyCrLf
Win32_VideoController = Win32_VideoController & "InfFilename: " & .InfFilename & MyCrLf
Win32_VideoController = Win32_VideoController & "InfSection: " & .InfSection & MyCrLf
Win32_VideoController = Win32_VideoController & "InstallDate: " & .InstallDate & MyCrLf
Win32_VideoController = Win32_VideoController & "InstalledDisplayDrivers: " & .InstalledDisplayDrivers & MyCrLf
Win32_VideoController = Win32_VideoController & "LastErrorCode: " & .LastErrorCode & MyCrLf
Win32_VideoController = Win32_VideoController & "MaxMemorySupported: " & .MaxMemorySupported & MyCrLf
Win32_VideoController = Win32_VideoController & "MaxNumberControlled: " & .MaxNumberControlled & MyCrLf
Win32_VideoController = Win32_VideoController & "MaxRefreshRate: " & .MaxRefreshRate & MyCrLf
Win32_VideoController = Win32_VideoController & "MinRefreshRate: " & .MinRefreshRate & MyCrLf
Win32_VideoController = Win32_VideoController & "Monochrome: " & .Monochrome & MyCrLf
Win32_VideoController = Win32_VideoController & "Name: " & .Name & MyCrLf
Win32_VideoController = Win32_VideoController & "NumberOfColorPlanes: " & .NumberOfColorPlanes & MyCrLf
Win32_VideoController = Win32_VideoController & "NumberOfVideoPages: " & .NumberOfVideoPages & MyCrLf
Win32_VideoController = Win32_VideoController & "PNPDeviceID: " & .PNPDeviceID & MyCrLf
'Win32_VideoController = Win32_VideoController & "PowerManagementCapabilities: " & .PowerManagementCapabilities & MyCrLf
'Win32_VideoController = Win32_VideoController & "PowerManagementSupported: " & .PowerManagementSupported & MyCrLf
Win32_VideoController = Win32_VideoController & "ProtocolSupported: " & .ProtocolSupported & MyCrLf
Win32_VideoController = Win32_VideoController & "ReservedSystemPaletteEntries: " & .ReservedSystemPaletteEntries & MyCrLf
Win32_VideoController = Win32_VideoController & "SpecificationVersion: " & .SpecificationVersion & MyCrLf
Win32_VideoController = Win32_VideoController & "Status: " & .Status & MyCrLf
Win32_VideoController = Win32_VideoController & "StatusInfo: " & .StatusInfo & MyCrLf
'Win32_VideoController = Win32_VideoController & "SystemCreationClassName: " & .SystemCreationClassName & MyCrLf
'Win32_VideoController = Win32_VideoController & "SystemName: " & .SystemName & MyCrLf
Win32_VideoController = Win32_VideoController & "SystemPaletteEntries: " & .SystemPaletteEntries & MyCrLf
'Win32_VideoController = Win32_VideoController & "TimeOfLastReset: " & .TimeOfLastReset & MyCrLf
Win32_VideoController = Win32_VideoController & "VideoArchitecture: " & .VideoArchitecture & MyCrLf
Win32_VideoController = Win32_VideoController & "VideoMemoryType: " & .VideoMemoryType & MyCrLf
Win32_VideoController = Win32_VideoController & "VideoMode: " & .VideoMode & MyCrLf
Win32_VideoController = Win32_VideoController & "VideoModeDescription: " & .VideoModeDescription & MyCrLf
Win32_VideoController = Win32_VideoController & "VideoProcessor: " & .VideoProcessor & MyCrLf
END WITH
Next
mylist.innerHTML=Win32_VideoController
end function
</script>
</body>
</html>