Logon Script Netzlaufwerke

Ich habe eine WinDomänenumgebung mit verschiedenen Clients und Notebooks. Damit die Notebooks auch via eines VPN Clients eine Verbindung ins Netzwerk herstellen können, möchte ich die Netzlaufwerke via eines VBA Scriptes zufügen. Ich bin leider nicht der Hirsch im Scripte...

...Ich habe folgendes gemacht

strLetter = "S:"
strPath = "\\Srv1\KIP"

Set objnet = CreateObject("WScript.Network")
Objnet.MapNetworkDrive strLetter, strPath, True

Das Funktioniert beim ersten mal Problemlos...
Beim zweiten mal kommt einen Fehlermeldung, da das Laufwerk schon vorhanden ist.

Wenn ich es wie folgt mache...

strLetter = "S:"
strPath = "\\Srv1\KIP"

Set objnet = CreateObject("WScript.Network")
Objnet.MapNetworkDrive strLetter, strPath

... Wird das Laufwerk nicht mehr verbunden wenn ich mich offline (nicht an der Domäne) anmelde.

Aus diesem Grund brauche ich ein Script wie das obere, dass aber einfach überspringt, wenn das Laufwerk bereits vorhanden ist.
Kann mir jemad da weiterhelfen?


Herzlichen Dank

On Error Resume Next