Programm mit einem anderen Benutzerkonto starten.
Es wird eine DOS-Shell gestartet und mit Sendkeys wird das Passwort an die Shell übergeben
Option Explicit ' Internet-Explorer mit Alant.de als Administrator starten ' Computer: Willy ' Benutzername: administrator ' Kennwort: goAdmingo Dim wsh, Prog, s, y Const USERNAME = "administrator" Const PASSWORD = "goAdmingo" Const PC = "" ' "Willy/" 'Wenn der PC-Name angegeben wird muss der Name mit einem Slash / enden !Wichtig Set wsh = CreateObject("WScript.Shell") Prog = wsh.ExpandEnvironmentStrings("%ProgramFiles%") & _ "\Internet Explorer\iexplore.exe alant.de" wsh.run "runas /user:" & PC & USERNAME & " """ & Prog & CHR(34) WScript.sleep 500 s = "{ENTER}" For y = Len(PASSWORD) to 1 Step -1 s = "{" & Mid(PASSWORD,y, 1) & "}" & s Next wsh.Sendkeys s '"{g}{o}{A}{d}{m}{i}{g}{o}{ENTER}"