Windows本身訪問* * *共享文件夾很慢。
您可以ping您想要訪問的所有機器，然後返回到在線主機。
最後，根據在線主機檢查配置，這樣可以節省時間。
我用WMI腳本來ping，妳可以自己修改。
私有子命令1_Click()
StrMachines = "計算機名或IP；劃分”
aMachines = Split(strMachines，"；))'您也可以直接設置壹個數組來存儲所有要檢查的主機IP或機器名稱。
對於機器中的每臺機器
set obj ping = GetObject(" winmgmts:{ impersonation level = impersonate } ")。ExecQuery(" select * from Win32 _ ping status where address = ' " & amp；機器和'")
對於對象中的每個對象狀態
If IsNull(objStatus。StatusCode)或objStatus。StatusCode & lt& gt那麽0
調試。打印“機器”和。機器與工程。“不可達”如果它不起作用。
其他
調試。印刷機和打印機。機器與工程。“在線”如果機器在線，您可以創建壹個在線機器陣列。
如果…就會結束
然後
然後
末端接頭
前提是妳的局域網電腦沒有防火墻或者必須ping。