Beispiel: run "elevate.vbs cmd /k calc.exe" -> Zugriff als Administrator erlauben!
Resultat: Startet den Rechner von einem Administratorenfenster aus.
---------------------------------------------------------------------------------------------------------------------------------------------
Zuvor nachfolgendes Sript in diesem Verzeichnis abspeichern.
"C:\Windows\system32\elevate.vbs"
---------------------------------------------------------------------------------------------------------------------------------------------
Set objShell = CreateObject("Shell.Application")
If WScript.Arguments.Count > 0 Then
App = WScript.Arguments(0)
Pos = InStrRev(App, "\")
If Pos > 0 Then
strApplication = Right(App, Len(App) - Pos)
strDirectory = Left(App, Pos - 1)
Else
strApplication = App
strDirectory = ""
End If
If WScript.Arguments.Count = 1 Then
strArguments = ""
Else
strArguments = Args
End If
Else
WScript.Quit
End If
objShell.ShellExecute strApplication, strArguments, strDirectory, "runas", 1
Private Function Args
strArg = ""
Set objArgs = WScript.Arguments
For I = 1 to objArgs.Count - 1
If InStr(objArgs(I), " ") > 0 Then
strArg = strArg & " """ & objArgs(I) & """"
Else
strArg = strArg & " " & objArgs(I)
End If
Next
Args = strArg
End Function
---------------------------------------------------------------------------------------------------------------------------------------------
Tool für SendKey und Beispiel als Batch-Datei (funktioniert unter XP) (Win7 nicht getestet),