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
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)
Please log in to answer
Posted by:
Byoung4now
18 years ago
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
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.