VBScript Status eines Netzlaufwerkes abfragen

aktIp = "192.168.0.69" ' oder "PC-Name"  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
If objFSO.FolderExists("\\" & aktIp & "\MeineFreigabe" ) Then  
    				Wscript.echo  "Netzwerkpfad ist online."  
Else
    				Wscript.echo  "Netzwerkpfad ist offline."  
End If

strDrvPath = "T:"  

Set objFSO   = CreateObject("Scripting.FileSystemObject")  
Set objDrive = objFSO.GetDrive(strDrvPath)

If objDrive.IsReady Then
  strMsg = strDrvPath & "-Drive is Ready."  
Else
  strMsg = strDrvPath & "-Drive is not Ready."  
End If

WScript.Echo strMsg

Dim Start
Start = 1

do while Start = 1
strMachines = "192.168.0.11;PC-Name1;PC-Name2;192.168.99"  
aMachines = split(strMachines, ";")  
 
For Each machine in aMachines
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._  
        ExecQuery("select * from Win32_PingStatus where address = '"_  
            & machine & "'")  
    For Each objStatus in objPing
        If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 
            WScript.Echo("Computer " & machine & " ist offline")   
        Else
	    WScript.Echo("Computer " & machine & " ist online")  
	End If
    Next
Next
Wscript.Sleep 60000
Loop

strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OfflineFilesItem WHERE ItemType=2",,48)  

For Each objItem In colItems
  Wscript.Echo "ItemName                     : " & objItem.ItemName  
  Wscript.Echo "ItemPath                     : " & objItem.ItemPath  
  Wscript.Echo "ItemType                     : " & objItem.ItemType  

  If Not IsObject(objItem.ConnectionInfo) Then
    Wscript.Echo "ConnectionInfo: <NULL>"  
  Else
    Wscript.Echo "ConnectionInfo.ConnectState  : " & objItem.ConnectionInfo.ConnectState  
    Wscript.Echo "ConnectionInfo.OfflineReason : " & objItem.ConnectionInfo.OfflineReason  
  End If
Next