Hi,

I need to change the office 2000 installation path for all my users. We're having some problems that some offices are trying to update some settings using an installationpath who's pointing to our old server. I'd like to avoid to change this each time manually in the registry. Does anyone know another way doing this.

I found this regkey containing the installsource and i could just change this value but i don't know if this will be the same for all clients.
HKLM\software\microsoft\windows\currentversion\installer\userdata\S-1-5-18\products\
904020001E872D116BF00006799C897E\installproperties\installsource.

Thx
BaldEagle
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Answers

0
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
Answered 10/21/2005 by: Byoung4now
Senior Yellow Belt

Please log in to comment
Answer this question or Comment on this question for clarity