retrodude
Goto Top

In HKEY-USERS Schlüssel anhand aktuell angemeldetem User auslesen und ändern

Hallo

Ich möchte einen Skript basteln, welcher auf unseren Clients die Realplayerkonfiguration für das Mediastreming konfiguriert. Ich habe aber das Problem, dass ich den dem User entsprechenden Hive nicht auslesen kann. Im Hkey_users werden die User irgendwie mit der SID eingetragen. Ich bräuchte eine Funktion, welche mir die strHive Variable korrekt ausliest. Oder wie gebe ich an, dass er den aktuellen User nimmt? Hat jemand ne Idee? Was ist eigentlich die Idee hinter diesem Registry Key?


Set objFSO = CreateObject("Scripting.FileSystemObject")

strKeyPath1 = strHive & "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyAutoConfig"
strKeyValue1 = "0"
strKeyPath2 = strHive & "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyHost"
strKeyValue2 = "proxy.domain.com"
strKeyPath3 = strHive & "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyPort"
strKeyValue3 = "8080"
strKeyPath4 = strHive & "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxySupport"
strKeyValue4 = "1"

objRegistry.SetStringValue HKEK_USERS, strKeyPath1, strKeyValue1
objRegistry.SetStringValue HKEK_USERS, strKeyPath2, strKeyValue2
objRegistry.SetStringValue HKEK_USERS, strKeyPath3, strKeyValue3
objRegistry.SetStringValue HKEK_USERS, strKeyPath4, strKeyValue4


Gruss

Content-Key: 115221

Url: https://administrator.de/contentid/115221

Ausgedruckt am: 29.03.2024 um 05:03 Uhr

Mitglied: Biber
Biber 04.05.2009 um 14:28:30 Uhr
Goto Top
Moin RetroDude,

wieso gehst Du nicht einfach über HKCU (Current user)?

Grüße
Biber
Mitglied: chfr77
chfr77 04.05.2009 um 14:32:16 Uhr
Goto Top
Schau mal unter:
HKEY_CURRENT_USER
(.... \Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxySupport)

Die Idee hinter HKEY_CURRENT_USER ist, das die benutzerbezogene Speicherung getrennt von der maschinengespeicherten ist.
Wenn der Benutzer abgemeldet ist, kann man natürlich immernoch über die SSID des Benutzers unter HKEY_USERS\SSID\ darauf zugreifen.
Mitglied: dog
dog 05.05.2009 um 03:51:07 Uhr
Goto Top
Eigentlich frage ich mich grade: Warum benutzt du nicht ADM/ADMX Templates?
Dein Code ist eigentlich ein Musterbeispiel für GPOs...

Grüße

Max
Mitglied: RetroDude
RetroDude 05.05.2009 um 08:35:04 Uhr
Goto Top
Hallo Leute. Ich habe ne Lösung über HKEY_CURRENT_USER (ntuser.dat). Die Bedeutung dieses Schlüssels ist mir schon klar. Für was genau ist HKEY_USERS? Per ADM Template wäre cool. Weis jemand wo ich so eine Vorlage kriege?

Gruss und Dank!

Lösung:

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")

' HTTP Streaming

strKeyPath1 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyAutoConfig"
strValueName1 = ""
strValue1 = "0"
strKeyPath2 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyHost"
strValueName2 = ""
strValue2 = "proxy.com"
strKeyPath3 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxyPort"
strValueName3 = ""
strValue3 = "8080"
strKeyPath4 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\HTTPProxySupport"
strValueName4 = ""
strValue4 = "1"
strKeyPath5 = "Software\RealNetworks\RealPlayer\6.0\Preferences\HTTPProxyHostnameDisplay"
strValueName5 = ""
strValue5 = "proxy.com"
strKeyPath6 = "Software\RealNetworks\RealPlayer\6.0\Preferences\HTTPProxyPortDisplay"
strValueName6 = ""
strValue6 = "8080"

' RTS Streaming

strKeyPath7 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\RTSPProxyHost"
strValueName7 = ""
strValue7 = "proxy-rtsp.com"
strKeyPath8 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\RTSPProxyPort"
strValueName8 = ""
strValue8 = "8088"
strKeyPath9 = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\RTSPProxySupport"
strValueName9 = ""
strValue9 = "1"
strKeyPath10 = "Software\RealNetworks\RealPlayer\6.0\Preferences\RTSPProxyHostnameDisplay"
strValueName10 = ""
strValue10 = "proxy-rtsp.com"
strKeyPath11 = "Software\RealNetworks\RealPlayer\6.0\Preferences\RTSPProxyPortDisplay"
strValueName11 = ""
strValue11 = "8088"


' Werte eintragen

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath1, strValueName1, strValue1
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath2, strValueName2, strValue2
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath3, strValueName3, strValue3
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath4, strValueName4, strValue4
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath5, strValueName5, strValue5
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath6, strValueName6, strValue6
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath7, strValueName7, strValue7
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath8, strValueName8, strValue8
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath9, strValueName9, strValue9
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath10, strValueName10, strValue10
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath11, strValueName11, strValue11