复制代码 代码如下:

On Error Resume Next

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\CIMV2”)

Set colItems = objWMIService.ExecQuery( _

    “associators of {win32_logicaldisk.deviceid=’G:’} WHERE ResultClass=Win32_DiskPartition”)

For Each objItem in colItems

 TargetIndex = objItem.DiskIndex

 Set Items = objWMIService.ExecQuery( _

  “SELECT * FROM Win32_DiskDrive Where DeviceID Like ‘%” & objItem.DiskIndex & “‘”,,48)

 For Each Item in Items

  Wscript.Echo “Model: ” & Item.Model

 Next

Next

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。