Enumerate network shares
说明
列举电脑上所有的共用资料夹。
范例指令码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
Wscript.Echo "AllowMaximum: " & vbTab &objShare.AllowMaximum
Wscript.Echo "Caption: " & vbTab &objShare.Caption
Wscript.Echo "MaximumAllowed: " & vbTab &objShare.MaximumAllowed
Wscript.Echo "Name: " & vbTab &objShare.Name
Wscript.Echo "Path: " & vbTab &objShare.Path
Wscript.Echo "Type: " & vbTab &objShare.Type
Next
页:
[1]