Hallo Forum,
ich arbeite gerade an einem größeren Script, mit dem ich meine Benutzer unterstützen will, z.B. beim Herstellen einer VPN-Verbindung, einer Terminalserververbindung, beim Remotesupport, zum Verbinden von Laufwerken etc..
Das ganze Script ist mittlerweile mehrere Hundert Zeilen lang, so dass ich hier nur den Teil poste, wo der Fehler auftritt.
Dieses Teilstück soll für den momentan angemeldeten Benutzer eine VPN-Verbindung herstellen und bei Erfolg oder Problem eine Meldung ausgeben.
Das Anmeldepasswort für das VPN (entspricht dem Windows-Kennwort) soll aus SIcherheitsgründen in eine Variable gelegt und nachfolgend dann aus der Variable ausgelesen werden.
$vpnconnectusername = ENVGET("USERNAME")
$vpnconnectpassword = InputBox("Passwortabfrage", "Bitte geben Sie Ihr Windows-Anmeldekennwort ein:", "", "*")
Run(@ComSpec & " /c " & 'rasdial unserVPN $vpnconnectusername $vpnconnectpassword /Phonebook:res\unserVPN.pbk', "", @SW_HIDE)
MsgBox (0, "Erfolg!", "Die VPN-Einwahl wurde erfolgreich hergestellt")
Zeile 1: Auslesen des Benutzernamens aus einer globalen Variable - funktioniert für sich gesehen, auch das auslesen funktioniert (getestet mit einer Msgbox)
Zeile 2: Inputfeld zur Eingabe des Passwortes und speichern in einer Variable - funktioniert für sich gesehen, auch das auslesen funktioniert (getestet mit einer Msgbox)
Zeile 3: Über das Windowseigene Programm rasdial (eine cmd-Anwendung) soll die VPN-Verbindung hergestellt werden. Für den Benutzernamen und das Kennwort sollen die Variablen genutzt werden. Diese werden jedoch nicht ausgelesen. Wenn ich anstatt der Variablen reale Werte eintrage, kann die VPN-Verbindung hergestellt werden.
Zele 4: Hier hänge ich total: Es soll die Erfolgsmeldung nur angezeigt werden, wenn die Einwahl auch funktioniert hat, sonst soll eine Fehlermeldung angezeigt werden.
Vielleicht ist hier im Forum jemand, der mir weiterhelfen kann.
Nach Fertigstellung werde ich den vollständigen Code als Projekt veröffentlichen.
Beste Grüße
salnet