Hi McRau,
meinst du vllt so etwas?
Spoiler anzeigen
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;<AutoItScript>
Opt('MustDeclareVars', 1) ;0=no, 1=require pre-declare
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Author='LogInAdmin.au3 ©2012 by ytwinky, MD'; |
;| EMail: [email='PIII1kSystem-AutoIt3Forum@yahoo.de'][/email] |
;| AutoIt3-Version: aktuelle beta |
;| Editor: SciTE aktuelle Version, feste Schriftart |
;| (Tastenkombination: keine) |
;| Zweck : als Admin einloggen |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Const $RegKey='HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\'
Const $Usr='DefaultUserName', $Kw='DefaultPassword', $NurNetzAuth=2, $MBYes=6, $Esc=27
Dim $RegUsr='Admin', $RegKw, $s=''
If Not IsAdmin() Then
RunAs('Admin', @Computername,'Admin-Kennwort', $NurNetzAuth, @ScriptFullPath, @SystemDir, Default)
Else
If $CmdLine[0]>0 Then $RegUsr=$CmdLine[1]
$RegKw='Admin-Kennwort'
If Msg('Nächster Benutzer wird ' &$RegUsr, @UserName &' abmelden..', 36)<>$MBYes Then Exit $Esc
RegWrite($RegKey, $Usr, 'REG_SZ', $RegUsr)
RegWrite($RegKey, $Kw, 'REG_SZ', $RegKw)
ShutDown(0) ; so, jetzt noch abmelden --> zum neuen User..
Msg('Wie konnte das passieren?', 'Ooops..', 64)
EndIf
Func Msg($What, $Title=$Author, $Icons=0, $ErrLevel=0)
Local $RetWert=MsgBox($Icons, $Title, $What)
If $ErrLevel Then Exit $ErrLevel
Return $RetWert
EndFunc
;</AutoItScript>
Wenn es auf Anhieb nicht funktioniert, mußt du evtl. etwas nachdenken und in der Hilfe blättern..
Das Script stattet sich selbst mit Adminrechten aus, vorausgesetzt, du gibst zulässige Daten ein..
Ich selber benutze die Registry als Paßwortspeicher, allerdings unverschlüsselt, deshalb habe ich die betreffenden Teile aus dem Script entfernt, ich hoffe, es dient nicht nur als Studierobjekt und kann dir weiterhelfen..
Gruß
ytwinky
P.S.
Bedenke, daß kompilierte Skripte wie externe Kommandos behandelt werden..
(Aber auch, um herauszufinden, ob ein Script kompiliert ist, bietet AutoIt eine Funktion)
..viel Spaß beim Stöbern^^