vbs 以及 windows 的WMI 系统
https://msdn.microsoft.com/en-us/library/aa393259(v=vs.85).aspx
[code="test.vbs" ]
On Error Resume Next
For Each Disk In GetObject( _
"winmgmts:").InstancesOf ("CIM_LogicalDisk")
WScript.Echo "Instance:", Disk.Path_.Relpath
Next
If Err <> 0 Then
set lasterr = CreateObject("WbemScripting.SWbemLastError")
Wscript.echo lasterr.Operation
End If
[/code]
https://msdn.microsoft.com/en-us/library/aa393259(v=vs.85).aspx
[code="test.vbs" ]
On Error Resume Next
For Each Disk In GetObject( _
"winmgmts:").InstancesOf ("CIM_LogicalDisk")
WScript.Echo "Instance:", Disk.Path_.Relpath
Next
If Err <> 0 Then
set lasterr = CreateObject("WbemScripting.SWbemLastError")
Wscript.echo lasterr.Operation
End If
[/code]