Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

AutoIt 3 RunAsSet Admin Script

Mitglied: BKAMk2

BKAMk2 (Level 1) - Jetzt verbinden

26.10.2007, aktualisiert 30.10.2007, 12314 Aufrufe, 2 Kommentare

Also ich sitz jetz seit etlichen Tagen an dieser Aufgabe und bekomms net hin.
Ich bin dabei ein Script zu schreiben, das nach eingabe des Administrator kennwortes ein anderes Script aufruft.
Leider funktioniert hier garnix mehr^^

Also wenn man das Script ausführt öffnet sich ein GUI mit einem Eingabefeld für das Passwort und 2 Buttons für Login und Exit.
Soweit funktioniert das auch.
Wenn ich jedoch das PW eingebe, kommt die Meldung, dass das andere Script nicht aufgerufen werden konnte weil ich nicht die nötige berechtigung habe.
Des weiteren sagt er mir das der Benutzername oder das Kennwort falsch sind und ich mich deshalb nicht mit diesen anmelden könne.

Hoffe mir kann einer helfen.

01.
#include <GUIConstants.au3> 
02.
 
03.
GuiCreate("BGinfo Installation", 300, 200,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) 
04.
 
05.
GUISetBkColor (0xCCE5FF) 
06.
 
07.
$Label_1 = GuiCtrlCreateLabel("Passwort", 20 , 30, 200, 20) 
08.
$passwort = GUICtrlCreateInput( "" , 20, 60, 200, 20) 
09.
$Button_1= GuiCtrlCreateButton("Login" , 20, 120, 60) 
10.
$endbutton = GuiCtrlCreateButton("Beenden", 10, 150, 120, 20) 
11.
$End = GuiCtrlRead($endbutton) 
12.
$Start = GuiCtrlRead($Button_1) 
13.
 
14.
 
15.
GUISetState() 
16.
 
17.
 
18.
$msg = 0 
19.
While $msg <> $GUI_EVENT_CLOSE 
20.
$msg = GUIGetMsg() 
21.
Select 
22.
Case $msg = $endbutton Or $msg = $GUI_EVENT_CLOSE 
23.
Exit 
24.
Case $msg = $Button_1 
25.
exitloop 
26.
EndSelect 
27.
WEnd 
28.
 
29.
If $passwort = ("passwort") Then 
30.
EndIf 
31.
 
32.
RunAsSet("administrator",@ComputerName, $passwort) 
33.
Run("C:\adm\Isadmin.exe") 
34.
RunAsSet()
Hier der Inhalt des zweiten Scripts, die wiederum ein drittes Script aufruft:

01.
If IsAdmin() Then 
02.
Msgbox(0, "Status", "Admin Rights Detected") 
03.
RunWait("C:\adm\gui.exe") 
04.
Else 
05.
Msgbox(0, "Status", "Admin Rights Not Detected") 
06.
Endif
Hier das dritte und letzte Script:

01.
 
02.
$picdir = "C:\adm\Script\Bilder" 
03.
 
04.
GuiCreate("BGinfo Installation", 490, 400,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) 
05.
 
06.
GUISetBkColor (0xCCE5FF) 
07.
$Pic_1 = GuiCtrlCreatePic($picdir & "\logo.JPG" ,0 ,0, 490, 32) 
08.
$Pic_2 = GuiCtrlCreatePic($picdir & "\jp2.JPG" ,0 , 32, 490, 75) 
09.
$Label_1 = GuiCtrlCreateLabel("Willkommen zum Installationprogramm für BGinfo", 0 , 110, 490, 30) 
10.
$Label_2 = GuiCtrlCreateLabel("Bitte drücken Sie zum Installieren auf den Button: Installieren", 0 , 125, 490, 30) 
11.
$Label_3 = GuiCtrlCreateLabel("Zum Beenden drücken Sie bitte den Knopf beenden!", 0,140,490,30) 
12.
$Button_1 = GuiCtrlCreateButton("Installieren", 340, 350, 130, 20) 
13.
$endbutton = GuiCtrlCreateButton("Beenden", 10, 350, 130, 20) 
14.
$localdir = "C:\BGinfo" 
15.
$serverdir = "\\130.30.2.21\apps\Tools\BGinfo" 
16.
$reg = $serverdir & "\BGinfoAutoRun.reg" 
17.
GuiSetState(@SW_SHOW) 
18.
While 1 
19.
	$msg = GUIGetMsg() 
20.
	If $msg <> 0 Then 
21.
		$End = GuiCtrlRead($endbutton) 
22.
		$Start = GuiCtrlRead($Button_1) 
23.
		Select 
24.
			Case $msg = $Button_1 
25.
				MsgBox(0, "", "Die Installation wird gestartet. Bitte warten Sie einen Moment.") 
26.
				DirCopy($serverdir & "\BGinfo", $localdir, 1) ; 
27.
				If FileExists( "C:\BGinfo\BGinfo.exe") AND RegRead ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "BackGround" ) Then 
28.
				MsgBox(0, "", "Installation erfolgreich")  
29.
				ELSE 
30.
				MsgBox(0, "" ,"Installation Fehlegeschlagen") 
31.
				EndIf 
32.
				MsgBox(0, "" , "Bitte starten Sie den Computer neu!") 
33.
				Exit 
34.
			Case $msg = $endbutton Or $msg = $GUI_EVENT_CLOSE 
35.
				ExitLoop 
36.
		EndSelect 
37.
	EndIf 
38.
WEnd 
39.
Func Beenden() 
40.
Exit 
41.
EndFunc 
42.
Exit
Vieleicht findet ja einer was interessantes was mit weiterhilft.
Mitglied: BKAMk2
30.10.2007 um 08:15 Uhr
*push*


Keiner ne Idee????
Hmm...kennt jemand wenigstens ne quelle wo ich fragen könnte?


Hat sich erledigt hab das ganze jetzt mit 2 Scripten hinbekommen.
Das größte Problem war wohl das er Scripte die in anderen Ordnern oder Partitionen waren nicht starten konnte.

Jetz funktioniert aber...wenn wer interesse hat poste ich dass ganze mal.
Bitte warten ..
Mitglied: 0cool
21.08.2012, aktualisiert um 11:33 Uhr
Hallo BKAMK2,

deine while schleife im ersten Skript sieht für mich kommisch aus.

Hier eine Beispiel while schleife:

01.
While 1 
02.
	$nMsg = GUIGetMsg() 
03.
	Switch $nMsg 
04.
		Case $GUI_EVENT_CLOSE 
05.
			Exit 
06.
                  Case $Button_1 
07.
                        Exit 
08.
                  Case $Button_2 
09.
                        Exit 
10.
                  Case $Button_3 
11.
                        ShellExecute(...) 
12.
	EndSwitch 
13.
WEnd
Die Zeile 12 in deinem Skript ist unnötig bzw. Fallsch. GUICtrlRead wird benützt um für Eingabenfelder (Input, Dropdown...)

Wenn du über eine GUI eine Eingabe per Input Feld einlesen willst musst du die daten erst mal an dein Skript übergeben. Z.B über einen Button. Die ausgeführte Aktion gehört in das jeweilige case rein.

Soviel auf die Schnelle.

Für noch mehr Informationen und ausführliche Hilfe würde ich mich an deiner Stelle an das AutoIT Forum wenden.
URL: http://www.autoit.de/

In diesem Forum findest du AutoIt Spezialisten, die gerne helfen. Das kann ich aus eigener Erfahrung bestätigen.

@edit: Lass dir das übergebene Passwort in einer MsgBox anzeigen, das hilft Dir vielleicht weiter.

Gruß
0cool
Bitte warten ..
Ähnliche Inhalte
Entwicklung
Autoit Script datei als Email anhang
gelöst Frage von bfbertiEntwicklung5 Kommentare

Hallo. Ich habe folgendes Problem: Der Drucker bei uns auf arbeit das FAX TO MAIL wegen der SSL verschlüsselung ...

Installation

AutoIT Script funktioniert nur, wenn die Klicks während dem PC start angezeigt werden

gelöst Frage von ChrisDynamiteInstallation2 Kommentare

Guten Tag, Ich schreibe unterschiedliche Autoit Scripts welche entweder eine Anwendung per Parameter installieren oder im Fall, wenn es ...

Entwicklung

AutoIT Dauerschleife

gelöst Frage von mrcljnffEntwicklung5 Kommentare

Moin, ich benötige einen befehl der mir mein AutoIt script, in eine Dauerschleife verwandelt. Selber habe ich den dafür ...

Installation

AutoIT oder InstallRite

Frage von winlinInstallation1 Kommentar

Hallo Leute, ich bin benötige einige Infos von euch. Es geht um Snapshot Programme die eine Installation aufzeichnen. Zur ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Tipp von hardykopff vor 14 MinutenWindows 10

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 3 StundenAdministrator.de Feedback8 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 20 StundenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...