<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 MyCrLfMyCrLf=" <br> "Set objWMILocator = CreateObject("WbemScripting.SWbemLocator")Set objWMIService = objWMILocator.ConnectServerfunction DoListNetworkAdapter'On Error Resume Nextmylist.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 WITHNextend functionfunction DoListNetworkAdapterCfgOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_NetworkAdapterConfigurationend functionfunction DoListComputerOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_ComputerSystemWin32_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 WITHNextmylist.innerHTML=Win32_ComputerSystem+MyCrLf+Win32_ComputerSystemProductend functionfunction DoListDiskOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_DiskDriveWin32_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 WITHNextmylist.innerHTML=Win32_DiskDrive+MyCrLf+Win32_DiskPartitionWin32_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 WITHNextmylist.innerHTML=Win32_DiskDrive+MyCrLf+Win32_DiskPartition+MyCrLf+Win32_LogicalDiskend functionfunction DoListSystemOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_OperatingSystemend functionfunction DoListCPUOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_Processorend functionfunction DoListMemoryOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_PhysicalMemoryend functionfunction DoListSoundDeviceOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_SoundDeviceend functionfunction DoListVideoControllerOn Error Resume NextWin32_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 WITHNextmylist.innerHTML=Win32_VideoControllerend function</script></body></html>
来源：https://www.cnblogs.com/jxgxy/archive/2008/11/06/1328105.html