/build/static/layout/Breadcrumb_cap_w.png

Changing Office 2000 installation source path

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

Answers (1)

Posted by: Byoung4now 19 years ago
Senior Yellow Belt
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
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
 
This website uses cookies. By continuing to use this site and/or clicking the "Accept" button you are providing consent Quest Software and its affiliates do NOT sell the Personal Data you provide to us either when you register on our websites or when you do business with us. For more information about our Privacy Policy and our data protection efforts, please visit GDPR-HQ