寻求把以下检查检查共享的VBS代码更改成AU3的，谢谢

ganyuansi

检查共享的代码。内容如下：

if WScript.Arguments.count <1 then
    WScript.echo "monitorshare computername"
    WScript.quit
end if
Set fs = GetObject("WinNT://" & WScript.Arguments(0)& "/LanmanServer")
Do
    For Each share in fs.Resources
        WScript.echo share.User & " " & share.Path
    next
    WScript.Sleep 10
loop

希望哪位朋友给帮忙转换成Au3的代码，万分感谢。！

根据以上代码初步写了一个：

$GetObj=ObjGet("WinNT://LocalHost/LanmanServer")
if @error then
  Msgbox(0,"Test1","Failed to open WinNT://. Error code: " & hex(@error,8))
  exit
endif

For $ObjItem In $GetObj.Resources
        MsgBox(0,"Test2",@ComputerName&@CRLF&$ObjItem.User&@CRLF&$ObjItem.Path)
Next

可是以上代码在本机运行无结果，在别的共享机器上运行会出一部分结果，然后报错！求提示！

ganyuansi

,难道就木有人能帮忙一下哦