VBS Netzwerkpfad überprüfen?

Hallo (bastla )

ich habe noch eine kleine Frage,

ich möchte via VBS einen Programmaufruf via UNC-Pfad dynamisch generieren, aber vorher überprüfen, ob das Programm (in dem Fall ein Batch) auch überhaupt erreichbar ist.

Beispiel: \\server\share\start.bat

Bevor, ich dieses Batch starten soll, muss gewährleistet werden, dass das Share erreichbar ist, bzw. man auch Rechte darauf besitzt, die start.bat aufzurufen. Wenn dies nicht der Fall ist, soll eine Meldung erscheinen, dass kein Zugriff erlaubt ist.

VIELEN DANK!

Gruß gdnmarc

Set oShell = CreateObject("WScript.Shell"  
Prog = "\\server\share\start.bat  
On Error Resume Next
oShell.Run Prog
If Err.Number <> 0 Then
    WScript.Echo """" & Prog & """ konnte nicht gestartet werden!"  
    WScript.Quit
End If
On Error Goto 0
'hier geht's weiter, nachdem der Batch ohne Fehler gestartet wurde  

Set oFS = CreateObject("Scripting.FileSystemObject")  
If Not oFS.FileExists(Prog) Then
    WScript.Echo """" & Prog & """ konnte nicht gefunden werden!"  
    WScript.Quit
End If