Scripting

Firstly, I hope now you can see why people use DNS aliases for things like deployment servers?

Secondly, which part are you having problems with? How to loop through the keys or mangling the GUID to its "compressed" form? Either way, solutions have been posted here many times.

For reading the keys, their values and data, check out the registry class which is part of the JSWare class pack (actually, I think I've posted the entire script here before). It has functions EnumKeys and EnumValuesAndData (or similar names).

For mangling and unmangling GUIDs, searching my posts for the word "munge" should turn up 2 functions for that.

Thank you VBScab for the inputs...

I wrote the script..



On error resume next
Const HKEY_CLASS_ROOT = &H80000000

strComputer = "."
strKeyPath = "Installer\Products"

Set objShell = CreateObject("WScript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

oReg.EnumKey HKEY_CLASS_ROOT, strKeyPath, arrSubkeys

If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys

strkeyvalue = objShell.regread ("HKEY_CLASSES_ROOT\Installer\Products\" & strSubkey & "\SourceList\Net\1")

strKeySuffix = Left(strkeyvalue, 12)

if strKeySuffix = "\\DCASRV11" then

newstrKeyValue = Replace (strkeyvalue, "\\DCASRV11", "\\DCASRV12")

newstrKeyValue2 = Replace (newstrKeyValue ,"SMSPKGC$" ,"SMSPKGP$")



strKeyPath = "Installer\Products\" & strSubkey & "\SourceList\Net\"
strValueName = "1"
strValue = newstrKeyValue2

oReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,strValueName,strValue


End if
Next
End If



But the probelm is it is not overwriting the existing value. If I run the vbs after removing the array part(tried with one GUID) it is overwriting the Value..

I think the issue is with the "oReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,strValueName,strValue"



Any thoughts on this..

Install a script debugger. At the very least, try the Microsoft Script Debugger but better, if you install Visual Studio Express Edition, use that. You can then 'Debug.Print [variable_name]' or 'Debug.Print err.number' and so on.

Did you try this ? [:)]

Dim objInstaller
Set objInstaller = CreateObject("WindowsInstaller.Installer")
objInstaller.AddSource "{YOURAPPLICATIONGUID}", "", "\\NEWSERVER\Path"



[/align]