Wilkommen in meinem Thread ihr Klugen Leute.
Ich wünsche mir schon lange eine art Automatisierung für meinen Desktop. Dabei denke ich darüber nach was ich alles an Prozessen einkürzen möchte. Mir ist bewusst geworden das einige Systemfunktionen die ich an/ab schalten möchte erst reagieren wenn das Script Admin berechtigungen besitzt. Nun möchte ich z.B. meinen Computer starten & mir was kochen, wenn ich wieder komme, listet mir mein Computer, interessante Infos rund ums Internet & über meinen Computer auf. Ich möchte dafür Rainmeter und Autoit benutzen um mir einiges gefügiger zu machen. Jetzt weiß ich auch das wenn ich onBoard Server aktivitäten via button ändern möchte, mein script immer das Admin Privilig benötigt. Dabei dachte ich an den #RequireAdmin befehl. Windows weigert sich allerdings Exen mit dem Privileg automatisert zu starten. Also dachte ich daran Mein zukünftiges Script als Dienst starten zu lassen. Den Dienst zu kreiren und zu konfigurieren ist leicht. Allerdings lässt der Service Control Manager die Exe nicht zu, da sich die exe(wie ich gelesen habe) nicht als Dienst zu erkennen gibt.
Wenn ich mich nicht irre sind Dienst gestartete exen auch nicht Gui fähig. das wäre nicht das Problem, ich würde es anweisen ein 2tes Programm mit RunAs & AP zu starten(wenn es nötig wird, ein gui zu benutzen). Rainmeter wird schlichthin nur Config's verwalten & Autoit liest diese aus.
Ich habe also ein kurzes testscript geschrieben, das die service kreierung und die Configuration übernimmt.
;#RequireAdmin
$admin = IsAdmin()
$sname = "tester"
$spath = @ScriptFullPath
If $admin = 1 Then
$cmdqu = 'sc.exe query ' & $sname
RunWait(@ComSpec & ' /C ' & $cmdqu & ' >1.txt' & @CRLF & "EXIT", @ScriptDir, @SW_HIDE)
Sleep(100)
$FOpen = @ScriptDir & "\1.txt"
$FRead = FileReadLine($FOpen, 1)
$FSearch = "1060"
If StringInStr($FRead, $FSearch) Then
$cmdse = 'sc.exe create ' & $sname & ' binPath= "' & $spath & '"'
RunWait(@ComSpec & ' /C ' & $cmdse & @CRLF & "EXIT", @ScriptDir, @SW_HIDE)
$cmdcon = 'sc.exe config ' & $sname & ' start= auto'
RunWait(@ComSpec & ' /C ' & $cmdcon & @CRLF & "EXIT", @ScriptDir, @SW_HIDE)
EndIf
FileClose($FOpen)
FileDelete($FOpen)
EndIf
MsgBox(0, "", "haay")Das startet sich soweit natürlich nicht selbst, aber ich fand das https://www.autoitscript.com/forum/topic/80…th-autoit-code/
Die scripte sind alt & ich sehe darin nicht so gut durch.
Zwei Scripte darin sind besonders interessant, das Beispiel & die Service.au3 selbst.
Soweit ich das also erkannt habe wird eine art _Service_init() benutzt,
;~ #include <Timers.au3> ; i used it for timers func
If $bAU3ServiceDebug Then logprint("script started")
If $cmdline[0] > 0 Then
Switch $cmdline[1]
Case "install", "-i", "/i"
;~ msgbox(0,"","toto")
InstallService()
Case "remove", "-u", "/u", "uninstall"
RemoveService()
Case Else
ConsoleWrite(" - - - Help - - - " & @CRLF)
ConsoleWrite("params : " & @CRLF)
ConsoleWrite(" -i : install service" & @CRLF)
ConsoleWrite(" -u : remove service" & @CRLF)
ConsoleWrite(" - - - - - - - - " & @CRLF)
Exit
;start service.
EndSwitch
Else
_Service_init($sServiceName)
Exit
EndIfDiese Funktion versteh ich nicht. Ich weiß nicht für was logprint steht, ich denke mal das war eine art ältere ConsoleWrite variante, aber da bin ich mir nicht sicher. Gefunden habe ich dazu jedenfalls nichts.
Ich sehe nicht wirklich was geschieht, ich kann es auch nicht austesten, da das script im ganzen nicht funktioniert. Ich hoffe wiedermals auf eure Hilfe, ich denke das wird einer meiner größeren Projekte & vielleicht etwas sein, das ich sehr häufig in meiner zukunft aktiv benutzen möchte. Aller Anfang ist schwer sagte man mir, deshalb möchte ich etwas Gründlicher in meinen Überlegungen sein damit mir später größere Probleme entgehen.
Func _Service_Init($sServiceName)
If $bAU3ServiceDebug Then logprint("_Service_Init(" & $sServiceName & ")")
;~ $service_type = _Service_QueryType($sServiceName)
$tServiceCtrl = DllCallbackRegister("_Service_Ctrl", "dword", "dword;dword;ptr;ptr") ; handlerex function
;~ $tServiceCtrl = DllCallbackRegister("_Service_Ctrl", "none", "dword") ; handler ( simple )
$tServiceMain = DllCallbackRegister("_Service_ServiceMain", "none", "dword;ptr")
;~ $tServiceMain = DllCallbackRegister("_Main", "none", "dword;ptr")
;~ Local $tdispatchTable = DllStructCreate("ptr[2];ptr[2]")
;~ $tServiceName = DllStructCreate("char["&StringLen($sServiceName)&"]")
;~ DllStructSetData($tServiceName, 1, $sServiceName)
;~ DllStructSetData($tdispatchTable, 1, DllStructGetPtr($tServiceName), 1)
;~ DllStructSetData($tdispatchTable, 1, DllCallbackGetPtr($tServiceMain), 2)
;v4 :
Local $tagSERVICE_TABLE_ENTRY = "STRUCT;ptr lpServiceName;ptr lpServiceProc;ENDSTRUCT"
;~ logprint($tSERVICE_TABLE_ENTRY & ";" & $tSERVICE_TABLE_ENTRY)
Local $tdispatchTable = DllStructCreate($tagSERVICE_TABLE_ENTRY & ";" & $tagSERVICE_TABLE_ENTRY)
;~ If @error Then
;~ logprint("erreur de structure " & @error & @crlf)
;~ Exit
;~ EndIf
$tServiceName = DllStructCreate("char["&StringLen($sServiceName)&"]")
;~ DllStructSetData($tServiceName, 1, $sServiceName)
DllStructSetData($tdispatchTable, 1, DllStructGetPtr($tServiceName))
DllStructSetData($tdispatchTable, 2, DllCallbackGetPtr($tServiceMain))
;**********
;~ DllStructSetData($tdispatchTable, 2, 0, 1) ; v4 not needed since NULL
;~ DllStructSetData($tdispatchTable, 2, 0, 2) ; v4 not needed since NULL
; here when we call this, the _service_ctrl callback is reported to the SCM
DllCall($hAdvapi32_DLL, "int", "StartServiceCtrlDispatcher", "ptr", DllStructGetPtr($tdispatchTable))
;cleanup a little
$tServiceName =0
$tdispatchTable = 0
; cleanup callback resources
;~ DllCallbackFree($tServiceMain)
;~ DllCallbackFree($tServiceCtrl)
EndFunc ;==>_Service_init
Danke fürs Durchlesen & ich wünsche noch einen Schönen Tag! 
