Registryeintrag auslesen und ggf. ändern mit VB-Script

[andi_si]

Hallo!

Weiß gar nicht ob das überhaupt so möglich ist, aber das werd ich (hofflich) bald erfahren...

Will einen Registryeintrag auslesen, und wenn ein bestimmter Wert drin steht, dann soll er in ändern.

z.B. Ist der Eintrag in [HKEY_LOCAL_MACHINE\bla\blabla2] = Server1

dann ändere den Eintrag in Server2

Lautet der Eintrag anders als Server1, dann mach gar nichts.

Oder weiß jemand vielleicht eine andere Lösung???

DANKE schon mal!

andi

[TDM]

mit WSH ?

EDIT: Wieso eigentlich erst nachsehen ob der Wert "Server1" ist? Schreib doch gleich auf "Server2" ... müsste genauso gehen.

[andi_si]

Auch eine Möglichkeit. Nur sind meine Programmierkenntnisse leider nicht die besten....

Weiß ja gar nicht wirklich wie ich anfangen soll...

[TDM]

Dim WSHShell As Object 

Set WSHShell = CreateObject ("WScript.Shell")

WshShell.RegWrite "HKEY_LOCAL_MACHINE\bla\blabla2", "Server2"

Das war jetzt einfachmal aus dem Link kopiert...

müsste eigentlich gehen... hoff ich mal :floet:

[andi_si]

Er soll ihn ja nicht immer ändern, sondern nur wenn ein bestimmter Wert drin steht...

Copy & Paste kann ich dann schon gard noch...

[TDM]

Achso...

dann halt

Dim WSHShell As Object 

Set WSHShell = CreateObject ("WScript.Shell")

if (WshShell.RegRead("HKEY_LOCAL_MACHINE\bla\blabla2") = "Server1") then

[INDENT]WshShell.RegWrite "HKEY_LOCAL_MACHINE\bla\blabla2", "Server2"[/INDENT]


endif

?

[andi_si]

So hab's jetzt hingekriegt, für die, die's interessiert, hier der Code...:

Const HKEY_LOCAL_MACHINE = &H80000002


strComputername = "."

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputername & "\root\default:StdRegProv")


strKeyPath = "SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"

strValue = "Parent"

oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValue, str_Server

If UCase(str_Server) = "Server1" Then

oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValue, "Server2"

End if

andi