检查网络驱动器是否正常工作

Question

我已经有一个vbs脚本，用于检查它是否映射到服务器中的网络驱动器：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives

For Each objDrive in colDrives
    If CBool(objDrive.DriveType = 3) Then ' Network disk
           If (objFSO.DriveExists(objDrive.DriveLetter) = True) Then
              Wscript.Echo "Network Drive Mapped : " & objDrive.DriveLetter
           End If
    End If
Next

问题是它没有说明网络驱动器是否仍然存在。 例如，在一台服务器中有3个网络驱动器：

但其中一个（驾驶Y :)失去了联系。

我试图找出vbs命令可以给出的结果，但我还没有找到它。

Answer 1

尝试使用Drive对象“IsReady”方法。如果它为TRUE，则驱动器可用。