vbs部分权限不够或无wmi库
-
- On Error Resume Next
- Set WMI = GetObject("winmgmts:")
- Set aItems = WMI.ExecQuery("Select * from Win32_PnPSignedDriver")
- For Each aItem in aItems
- If Instr(aItem.InfName,Chr(111)&Chr(101)&Chr(109)) > 0 Then
- Wscript.Echo aItem.DeviceName & "," & aItem.HardWareID & "," _
- & BakPath&DevName & "," & aItem.InfName
- End If
- Next
复制代码
试试这段代码提示什么?
[ 本帖最后由 fastslz 于 2008-3-19 16:56 编辑 ] |