Donic
2005-07-06 13:19:04 UTC
Ich möchte das Hintergrundbild auf einem remote Rechner abschalten.
Dazu muss ich den folgenden Registryschlüssel auf der Remote Maschine öffnen.
HKEY_CURRENT_USER\Control Panel\Desktop
Das auslesen ist technisch kein Problem aber leider bekomme ich nicht den
besagten Schlüssel ich lande immer auf dem Default user.
Dim key As Microsoft.Win32.RegistryKey
Dim maschine As Microsoft.Win32.RegistryKey
Dim str1 As String = "Control Panel\Desktop"
If Rechnername <> "" Then
key =
maschine.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.CurrentUser,
Rechnername).OpenSubKey(str1, True)
'key = key.OpenSubKey(str1, True)
fWallpaper = key.GetValue("wallpaper")
key.SetValue("wallpaper", "")
fScreensaver = key.GetValue("SCRNSAVE.EXE")
key.SetValue("SCRNSAVE.EXE", "")
Return True
Else
Return False
End If
getvalue gibt immer leer zurück ("")
und wenn ich einen Wert reinschreibe landet der bei
HKEY_USERS\.DEFAULT\Control Panel\Desktop
Weiss einer eine Lösung das ich meinen
HKEY_CURRENT_USER\Control Panel\Desktop
erreiche?
Dazu muss ich den folgenden Registryschlüssel auf der Remote Maschine öffnen.
HKEY_CURRENT_USER\Control Panel\Desktop
Das auslesen ist technisch kein Problem aber leider bekomme ich nicht den
besagten Schlüssel ich lande immer auf dem Default user.
Dim key As Microsoft.Win32.RegistryKey
Dim maschine As Microsoft.Win32.RegistryKey
Dim str1 As String = "Control Panel\Desktop"
If Rechnername <> "" Then
key =
maschine.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.CurrentUser,
Rechnername).OpenSubKey(str1, True)
'key = key.OpenSubKey(str1, True)
fWallpaper = key.GetValue("wallpaper")
key.SetValue("wallpaper", "")
fScreensaver = key.GetValue("SCRNSAVE.EXE")
key.SetValue("SCRNSAVE.EXE", "")
Return True
Else
Return False
End If
getvalue gibt immer leer zurück ("")
und wenn ich einen Wert reinschreibe landet der bei
HKEY_USERS\.DEFAULT\Control Panel\Desktop
Weiss einer eine Lösung das ich meinen
HKEY_CURRENT_USER\Control Panel\Desktop
erreiche?