#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version: 	3.3.14
 Author:         	amun.rb

 Script Function:  	Programme als Admin ausführen

 Date				10.08.2016

 Version			1.2 - Für Win 10

#ce ----------------------------------------------------------------------------


; Variablen definieren

; Auszuführendes Programm aus Kommandozeile
Local $ProgUPfad
; Variable: Name des OS
Local $Name

; ------------------------------------------------------------------------------

; OS-Version finden über Funktion @OSVersion
$Name = @OSVersion

; Meldung und Beenden wenn WIN XP
If $Name = "WIN_XP" Then MsgBox(16, "     RBRunas - F E H L E R", "Windows XP wird nicht mehr unterstuetzt")
If $Name = "WIN_XP" Then Exit

; Prüfen ob Kommandozeile leer ist - Wenn leer, dann Meldung und Script beenden
If $CmdLine[0] = 0 Then MsgBox(16, "     RBRunas - F E H L E R", "Kein Kommandozeilenparameter angebenen")
If $CmdLine[0] = 0 Then Exit

; Variable aus Kommandozeile auslesen
$ProgUPfad = $CmdLine[1]

; Erst prüfen ob Pfad/Datei OK - Dann Programm aus der Kommandozeile ausführen
If FileExists($ProgUPfad) Then
    RunAs("ADMIN-NAME", @ComputerName, "PASSWORT", $RUN_LOGON_NOPROFILE, $ProgUPfad, "c:/ARBEITSVERZEICHNIS")
Else
    MsgBox(16, "     RBRunas - F E H L E R", "Pfad/Datei unvollständig oder falsch angegeben")
EndIf



Exit