Funktion zum Schreiben von Registry Keys

Ich möchte folgendes Skript per Funktion zum Schreiben der Schlüssel vereinfachen. Bin mir nicht sicher wie genau, da ich diverse Parameter übergeben muss.
Kann mir da jemand helfen?

Gruss


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

Const HKEY_CURRENT_USER = &H80000001

Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")  

Base = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\"  
SetRegReal Base&"HTTPProxyAutoConfig", "", "0"  
SetRegReal Base&"HTTPProxyHost",       "", "proxy.com"  
SetRegReal Base&"HTTPProxyPort",       "", "8080"  
SetRegReal Base&"HTTPProxySupport",    "", "1"  
SetRegReal Base&"RTSPProxyHost",       "", "proxy-rtsp.com"  
SetRegReal Base&"RTSPProxyPort",       "", "8088"  
SetRegReal Base&"RTSPProxySupport",    "", "1"  

Base = "Software\RealNetworks\RealPlayer\6.0\Preferences\"  
SetRegReal Base&"HTTPProxyHostnameDisplay", "", "proxy.com"  
SetRegReal Base&"HTTPProxyPortDisplay",     "", "8080"  
SetRegReal Base&"RTSPProxyHostnameDisplay", "", "proxy-rtsp.com"  
SetRegReal Base&"RTSPProxyPortDisplay",     "", "8088"  


' Werte eintragen  
Sub SetRegReal(Key,Name,Wert)
  objRegistry.SetStringValue HKEY_CURRENT_USER, Key, Name, Wert
End Sub