In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten. Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fremdanwendung mit Adminrechten starten - gelöst
Autor: punkler
Datum: 19.12.15 15:00
Hallo zusammen, vielen Dank für Eure Hilfe, aber wir haben eine Lösung gefunden: Man kann eine Batch-Datei mit Administrator-Rechten starten, die dann die entsprechenden Aufgaben erledigt ! Natürlich wird dazu ein mit Admin-Rechten ausgestatteter Benutzer (+ Domaine) benötigt UND das dazugehörige Passwort. dann flutscht das richtig gut - wir haben es schon im Live-Betrieb getestet - FUNKTIONIERT ! Dim lpUsername As String Dim lpDomain As String Dim lpPassword As String Dim lpApplicationName As String Dim lpCommandLine As String Dim lpCurrentDirectory As String Dim lpProg As String Dim StartInfo As STARTUPINFO Dim ProcessInfo As PROCESS_INFORMATION 'hier die Anmeldedaten zuordnen ! lpUsername = "ADMINISTRATOR" 'Benutzer mit administrativem Account lpDomain = "TestDomain" 'Environ("Computername") 'Oder eben direkt der Domänenname lpPassword = "AdminPasswort" 'Das Passwort... 'Ist es ein 64bit oder32bit - Betriebssystem ? If is64BitWin Then lpProg = "C:\windows\syswow64\regsvr32.exe" lpApplicationName = "C:\windows\syswow64\cmd.exe" Else lpProg = "C:\windows\system32\regsvr32.exe" lpApplicationName = "C:\windows\system32\cmd.exe" End If lpCommandLine = vbNullString lpCurrentDirectory = vbNullString StartInfo.cb = LenB(StartInfo) StartInfo.dwFlags = 0& 'https://support.microsoft.com/en-us/kb/285879 'https://msdn.microsoft.com/en-us/library/windows/desktop/ms682425(v=vs.85).aspx 'To run a batch file, you must start the command interpreter; set lpApplicationName to cmd.exe and set lpCommandLine to the following arguments: /c plus the name of the batch file. lpCommandLine = "/c C:\synframe\synsys\Reg_122015.bat" lpCurrentDirectory = "C:\current\directory" lpCommandLine = "C:\synframe\synsys\Reg_122015.bat" Call W2KRunAsUser(lpUsername, lpPassword, lpDomain, lpCommandLine, lpCurrentDirectory)

Tipp 2363: Fremdanwendung mit Adminrechten starten	3.894	punkler	10.12.15 16:23
Re: Fremdanwendung mit Adminrechten starten	1.933	Ralf Schlegel	12.12.15 10:20
Re: Fremdanwendung mit Adminrechten starten	1.864	punkler	12.12.15 11:47
Re: Fremdanwendung mit Adminrechten starten	1.827	Ralf Schlegel	19.12.15 14:50
Re: Fremdanwendung mit Adminrechten starten - gelöst	1.883	punkler	19.12.15 15:00

Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen