Scripting

use a vbscript. try and read the key. On error skip if exists then write in new value.

You can then report back either with sql or even a simple txt file if the user was successful or not.


Like:

Option Explicit
Dim WshShell, check, wshnetwork, TheUserName, FSO,txt, test

'*********************************************************************************************
'*********************************************************************************************
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set wshnetwork = WScript.CreateObject( "WScript.Network" )
TheUserName = UCase(WshNetwork.UserName)
Set FSO = CreateObject("Scripting.FileSystemObject")
'********************* MAKE EDITS HERE ***************************************
check = 0
EditReg
Sub EditReg
On Error Resume Next
Test = WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{903B0409-6000-11D3-8CFE-0050048383C9}\InstallSource")
If Err <> 0 Then
Else
If InStr(test,"OldServer") = 0 Then
check = check +1
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{903B0409-6000-11D3-8CFE-0050048383C9}\InstallSource","\\Newserver\source", "REG_SZ"
Err.clear
Test = ""
Else
End If
End If

Test = WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Installer\Products\9040B30900063D11C8EF00054038389C\SourceList\Net\1")
If Err <> 0 Then
Else
If InStr(test,"Oldserver") = 0 Then
check = check +1
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Installer\Products\9040B30900063D11C8EF00054038389C\SourceList\Net\1","\NewServer\source", "REG_SZ"
Err.clear
Test = ""
Else
End If
End If
End Sub

If check <> 0 Then
Set txt = FSO.OpenTextFile("\\Server\Share\FixReport.txt",8)
txt.WriteLine (TheUserName & " , " & check)
txt.Close
WScript.Quit (0)
Else
WScript.Quit (1)
End If