Rubrik: System/Windows · Prozesse/Tasks | VB-Versionen: VB6 | 28.01.13 |
Fremdanwendung mit Adminrechten starten Ein Fremdanwendung trotz aktiviertem UAC mit Administratorrechten starten | ||
Autor: Ralf Schlegel | Bewertung: | Views: 16.278 |
www.vb-zentrum.de | System: WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Wenn Sie aus Ihrer eigenen Applikation heraus eine Anwendung starten wollen, so kann es vorkommen, dass diese zum reibungslosen Ablauf über Administratorrechte verfügen muss. Spätestens seit Windows Vista führt dies immer dann zum Problem, wenn die UAC (User Account Control) eingeschaltet ist, da man dann - selbst als angemeldeter Administrator - nicht über die erforderlichen Rechte verfügt, um z.B. den Registrierungseditor ("regedit") aufzurufen.
Neben der VBA internen Shell Funktion, kennen Sie vielleicht die Alternative des Windows API, "ShellExecute", mit der sich u. A. eine Anwendung starten lässt. In der Parameterübergabe zu dieser Funktion gibt es das so genannte "Operation-Verb" - ein String, der die Art des Programmstarts beeinflussen kann. Neben den Schlüsselwörtern "Open", "Edit" und "Print" gibt es auch das Schlüsselwort "RunAs", das uns so auf einfachste Weise in den Administratormodus bringt!
Hier ein simples Beispiel für den Aufruf des Registrierungseditors:
Private Declare Function ShellExecuteA Lib "shell32" ( _ ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As VbAppWinStyle) As Long
' Aufruf ShellExecuteA 0, "RunAs", "regedit.exe", vbNullString, vbNullString, vbNormalFocus
Oder Sie möchten zur Laufzeit nachträglich ein OCX oder eine DLL registrieren; ein klassischer Fall für ein Updateprogramm:
ShellExecuteA 0, "RunAs", "regsvr32", _ """" & ocxName & """", vbNullString, vbNormalFocus
wobei "ocxName" eine Stringvariable darstellt, die den kompletten Pfad und Namen der Datei beinhaltet.