Board logo

标题: [已解决] 使用 WMIC 获得硬件信息 [打印本页]
作者: chishingchan     时间: 2008-7-14 13:33    标题: [已解决] 使用 WMIC 获得硬件信息

我的电脑使用BUDDY拖机，如何使用 WMIC 获得键盘、鼠标、声卡、显卡等信息？
经过获取的信息再写入注册表完成主副机对硬件的分配。

[ Last edited by chishingchan on 2008-7-14 at 06:48 PM ]
作者: chishingchan     时间: 2008-7-14 13:58    标题: 经搜索，已获得解决方法！

http://www.cn-dos.net/forum/view ... &highlight=WMIC

Wmic Path Win32_Keyboard
Wmic Path Win32_SoundDevice
Wmic Path Win32_PointingDevice
Wmic Path Win32_VideoController

再请问如何在 VBS 里应用？
作者: HAT     时间: 2008-7-14 14:51
看看文档吧，呵呵。

System Administration Scripting Guide.chm
http://upload.cn-dos.net/img/1032.zip

[ Last edited by HAT on 2008-10-30 at 20:19 ]
作者: chishingchan     时间: 2008-7-14 18:23


  Quote:
Originally posted by HAT at 2008-7-14 02:51 PM:
看看文档吧，呵呵。

System Administration Scripting Guide.chm
http://upload.cn-dos.net/img/600.zip

谢谢！收藏了。
作者: chishingchan     时间: 2008-7-14 18:51

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController")

For Each objItem in colItems
        Wscript.Echo "Name:" & objItem.Name
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "Caption: " & objItem.Caption
   
        Wscript.Echo "CreationClassName; " & objItem.CreationClassName
        Wscript.Echo "AdapterRAM: " & objItem.AdapterRAM
        Wscript.Echo "CurrentBitsPerPixel: " & objItem.CurrentBitsPerPixel
        Wscript.Echo "CurrentHorizontalResolution;: " & objItem.CurrentHorizontalResolution
        Wscript.Echo "CurrentNumberOfColors: " & objItem.CurrentNumberOfColors
        Wscript.Echo "CurrentNumberOfColumns: " & objItem.CurrentNumberOfColumns
        Wscript.Echo "CurrentNumberOfRows: " & objItem.CurrentNumberOfRows
        Wscript.Echo "CurrentRefreshRate: " & objItem.CurrentRefreshRate
        Wscript.Echo "CurrentScanMode: " & objItem.CurrentScanMode
        Wscript.Echo "CurrentVerticalResolution: " & objItem.CurrentVerticalResolution
        Wscript.Echo "DriverDate: " & objItem.DriverDate
        Wscript.Echo "DriverVersion: " & objItem.DriverVersion
        Wscript.Echo "NumberOfColorPlanes: " & objItem.NumberOfColorPlanes
        Wscript.Echo "NumberOfVideoPages: " & objItem.NumberOfVideoPages
        Wscript.Echo "VideoArchitecture: " & objItem.VideoArchitecture
        Wscript.Echo "VideoModeDescription: " & objItem.VideoModeDescription
       
    Wscript.Echo
Next
Wscript.StdIn.Read(1)

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_PointingDevice")

For Each objItem in colItems
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "Device Interface: " & objItem.DeviceInterface
    Wscript.Echo "Double Speed Threshold: " & objItem.DoubleSpeedThreshold
    Wscript.Echo "Handedness: " & objItem.Handedness
    Wscript.Echo "Hardware Type: " & objItem.HardwareType
    Wscript.Echo "INF File Name: " & objItem.InfFileName
    Wscript.Echo "INF Section: " & objItem.InfSection
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Number Of Buttons: " & objItem.NumberOfButtons
    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
    Wscript.Echo "Pointing Type: " & objItem.PointingType
    Wscript.Echo "Quad Speed Threshold: " & objItem.QuadSpeedThreshold
    Wscript.Echo "Resolution: " & objItem.Resolution
    Wscript.Echo "Sample Rate: " & objItem.SampleRate
    Wscript.Echo "Synch: " & objItem.Synch
Next
Wscript.StdIn.Read(1)

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_SoundDevice ")

For Each objItem in colItems
        Wscript.Echo "Name:" & objItem.Name
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
        Wscript.Echo "ProductName: " & objItem.ProductName
        Wscript.Echo "DMABufferSize: " & objItem.DMABufferSize
    Wscript.Echo
Next
Wscript.StdIn.Read(1)

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Keyboard")
For Each objItem in colItems
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "Is Locked: " & objItem.IsLocked
    Wscript.Echo "Layout: " & objItem.Layout
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Number of Function Keys: " & objItem.NumberOfFunctionKeys
    Wscript.Echo "Password: " & objItem.Password
    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
Next
Wscript.StdIn.Read(1)