Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Funktion zum Schreiben von Registry Keys

Frage Entwicklung VB for Applications

Mitglied: RetroDude

RetroDude (Level 1) - Jetzt verbinden

06.05.2009, aktualisiert 10:43 Uhr, 5025 Aufrufe, 3 Kommentare

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

Mitglied: LotPings
06.05.2009 um 19:00 Uhr
Hast du ein Glück, das ich einen guten Editor habe und damit umgehen kann

Trotzdem keine Garantie für nichts Prüfen musst du selber.
01.
Const HKEY_CURRENT_USER = &H80000001 
02.
 
03.
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") 
04.
 
05.
Base = "Software\RealNetworks\RealMediaSDK\6.0\Preferences\" 
06.
SetRegReal Base&"HTTPProxyAutoConfig", "", "0" 
07.
SetRegReal Base&"HTTPProxyHost",       "", "proxy.com" 
08.
SetRegReal Base&"HTTPProxyPort",       "", "8080" 
09.
SetRegReal Base&"HTTPProxySupport",    "", "1" 
10.
SetRegReal Base&"RTSPProxyHost",       "", "proxy-rtsp.com" 
11.
SetRegReal Base&"RTSPProxyPort",       "", "8088" 
12.
SetRegReal Base&"RTSPProxySupport",    "", "1" 
13.
 
14.
Base = "Software\RealNetworks\RealPlayer\6.0\Preferences\" 
15.
SetRegReal Base&"HTTPProxyHostnameDisplay", "", "proxy.com" 
16.
SetRegReal Base&"HTTPProxyPortDisplay",     "", "8080" 
17.
SetRegReal Base&"RTSPProxyHostnameDisplay", "", "proxy-rtsp.com" 
18.
SetRegReal Base&"RTSPProxyPortDisplay",     "", "8088" 
19.
 
20.
 
21.
' Werte eintragen 
22.
Sub SetRegReal(Key,Name,Wert) 
23.
  objRegistry.SetStringValue HKEY_CURRENT_USER, Key, Name, Wert 
24.
End Sub
Gruß
LotPings
Bitte warten ..
Mitglied: RetroDude
07.05.2009 um 08:26 Uhr
Danke, funktioniert prima. Was meinste mit guter Editor?

Gruss
Bitte warten ..
Mitglied: LotPings
07.05.2009 um 09:00 Uhr
Hallo RetroDude,

nun ganz "zu Fuß" hätte ich das bestimmt nicht gemacht, aber
  • per Regular Expression Zeilen aneinander hängen,
  • sortieren,
  • per Block-Select überflüssigen Ballast entsorgen
  • Zeilen verschieben und kopieren

Kann einem ein guter Text-Editor schon sehr erleichtern.
Ich arbeite mit Textpad und demOpenSource Editor Notpad++

Gruß
LotPings

Edit: Die TextPad RegExp Suchen "\nstrValue.* = " Ersetzen ",\t"
Bitte warten ..
Ähnliche Inhalte
Windows 10
gelöst Zeichenfolge in .reg Datei schreiben (Registry) (4)

Frage von MedicalAd zum Thema Windows 10 ...

Batch & Shell
gelöst Variable per Batch auslesen und in Registry schreiben (3)

Frage von Zendara zum Thema Batch & Shell ...

Windows Systemdateien
Registry Hive offline einer vorhandenen Registry hinzufügen (7)

Frage von HrwSiggi zum Thema Windows Systemdateien ...

Windows Userverwaltung
Proxy Gruppenrichtlininen Registry (3)

Frage von leon123 zum Thema Windows Userverwaltung ...

Neue Wissensbeiträge
Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Exchange Server

Mittels Batch-Script Exchange-Logs sammeln und archivieren

Anleitung von beidermachtvongreyscull zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
SSL Zertifikat für HTTPS (33)

Frage von Hendrik2586 zum Thema Verschlüsselung & Zertifikate ...

Grafikkarten & Monitore
24" oder 27" mit Full HD oder doch mehr Auflösung? (21)

Frage von brutzler zum Thema Grafikkarten & Monitore ...

Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

Netzwerke
Ip Adressenkonflikt bei Großfamilie (12)

Frage von gunter zum Thema Netzwerke ...