Programm ausführen als Benutzer xy

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}"

 

Hauptmenü

Anmeldeformular