On Error Resume Next
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2") 
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

Win7下VHD文件右键增强实现代码(vbs+注册表)
1、保存以下代码到：c:windowssystem32vdm.vbsDimArgsSetArgs=WScript.ArgumentsTranArgs=""Fori=0ToArgs.Count-1TranArgs=TranArgs&""""&Args(i)&""""&""NextIfArgs(0)"-hFlag"ThenIfArgs(0)"-hWind"Th

vbs 脚本错误:操作中文件名或类名未找到的解决方法
昨天下午闲得无事，于是翻出以前的脚本，尝试运行，结果却出现了如图所示的错误。于是：regsvr32vbscript.dll。重新运行脚本，没想到还是一样。放到另

VBScript 监控磁盘更改事件实现代码
来自微软官方，写USB小偷脚本是最好不过的了strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!\"&strComputer&"rootcimv2")SetcolMonitoredEvents