Bestimmen Registry Wert auslesen, ändern und in anderen Wert einfügen

Beginner

Friday, February 5th 2010, 9:53am

Bestimmen Registry Wert auslesen, ändern und in anderen Wert einfügen

Hallo,

da ich realtiv neu hier bin und mich mit dem "Coden" absolut nicht auskenne, probiere es mal über solch ein Forum.

Vielleicht kann mir ja jemand helfen...

Folgender Schlüssel muss ausgelesen werden:
"HKEY_CURRENT_USER\Software\Alt_Software\LastUser" hat den DWord Wert : z.B Max.Mustermann@alt.de

Jetzt soll dieser DWORD Wert abgeändert(@alt.de soll nach @neu.de geändert werden, der Name soll nicht angefasst werden) in einen anderen Schlüssel eingefügt werden, es soll dann wie folgt aussehen:
"HKEY_CURRENT_USER\Software\Neu_Software\LastUser" hat den DWord Wert : z.B Max.Mustermann@neu.de

Ist das z.B als Batch Datei oder Reg-Datei machbar?
Vielleicht hat ja jemand eine Idee wie man das umsetzen kann.

Vielen Dank für Eure Bemühungen

vince

Master

Posts: 1,103

Friday, February 5th 2010, 11:37am

Hi,

ist schon ein bsichen länger her und Win hab ich auch nicht zur Hand, aber ich glaube das ging so.

	Source code
1 2 3	REGEDIT4 ["HKEY_CURRENT_USER\Software\Alt_Software"] "LastUser = Max.Mustermann@neu.de"

(Code in eine Textdatei und Endung in .reg umbenennen und ausführen)

SeBa

Master

Posts: 1,134

Sunday, February 7th 2010, 10:16pm

Die Funktion von vince ist leier nicht flexibel wenn man das über mehrere Rechner laufen assen will. ich würde das per VBScript lösen, dann würde es sich sogar per Gruppenrichtlinie verteilen lassen Ich hab kein Windows hier, deswegen ist der Code ungetestet - sollte aber klar machen wie es geht:

VisualBasic Quellcode

const HKEY_CURRENT_USER = &H80000001
strComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")
 
strKeyPath = "Software\Alt_Software"
strValueName = "LastUser"
strValue = ""
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
strValue = Replace(strValue,"@alt.de","@neu.de")
strKeyPath = "Software\Alt_Software"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue