regedit abfragen ohne Adminrechte

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: regedit abfragen ohne Adminrechte

Re: regedit abfragen ohne Adminrechte

von Stephan » Mo, 27.04.2020 14:08

was könnte ich tun?
z.B. siehe:
http://www.vbforums.com/showthread.php? ... dth-height

Das dortige Makro für Word 2000 läuft bei mir in OO/LO sogar ohne Kompatibilitätsoption:

Code: Alles auswählen

Option Explicit
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub ScreenSize()
    Dim ScreenRect As RECT
    Dim ret As Long
    ret = GetClientRect(CLng(GetDesktopWindow()), ScreenRect)
    MsgBox "Width: " & ScreenRect.Right - ScreenRect.Left
    MsgBox "Height: " & ScreenRect.Bottom - ScreenRect.Top
End Sub

Private Sub Document_New()
    ScreenSize
End Sub

Gruß
Stephan

regedit abfragen ohne Adminrechte

von susapo » So, 26.04.2020 16:55

Hallo,
ich brauche in meinem Makroprogramm die Monitorauflösung.
dazu hab ich dieses kleine Beispiel gefunden, was auch prima funktioniert, allerdings nur, wenn ich Libreoffice zunächst mit Administratorrechten starte.
sonst nicht. Obwohl ich selber mit einem Admin Konto bei Win 10 pro angemeldet bin.

Code: Alles auswählen

Sub Bildschirmaufloesung

Const HKEY_LOCAL_MACHINE = &H80000002
	GlobalScope.BasicLibraries.LoadLibrary("ImportWizard")
	sTemplateKeyName = "SYSTEM\ControlSet001\Control\UnitedVideo\CONTROL\VIDEO\{274C3232-9E50-11E9-9450-C69596D29C81}\0000\"
	sTemplateValueName = "DefaultSettings.XResolution"
	X_Setting = QueryValue(HKEY_LOCAL_MACHINE, sTemplateKeyName, sTemplateValueName)
	sTemplateValueName = "DefaultSettings.YResolution"
	Y_Setting = QueryValue(HKEY_LOCAL_MACHINE, sTemplateKeyName, sTemplateValueName)
	msgbox "Die Bildschirmauflösung ist " & X_Setting & " x " & Y_Setting  
End Sub
da ich das Programm weitergeben will, ist es nicht möglich, immer erst LO mit Adminrechten zu starten.

was könnte ich tun?

Nach oben