中国DOS联盟

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

[ Last edited by chishingchan on 2008-7-14 at 06:48 PM ]

http://www.cn-dos.net/forum/viewthread.php?tid=35681&fpage=1&highlight=WMIC

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

再请问如何在 VBS 里应用？

看看文档吧，呵呵。

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

[ Last edited by HAT on 2008-10-30 at 20:19 ]

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

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

谢谢！收藏了。

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)