Tom's Guide | Tom's Hardware | Tom's Games
![]() |
![]() |
![]() |
I've obtained a VB install script for an Adobe Reader 6.0.1 msi file I want to install. I put it in the logon scripts so all the computers in the domain would install Adobe when a user logged on. Both the script and the msi are in "\\SERVER\NETLOGON\MSI\Adobe Reader 6.0.1\". When I try to login and have it automatically install the program on any computer on the domain, the script runs and says that it starts the installation, the event log says that the MSI is in fact starting as well, and then I get a message from the script that says it was installed successfully. Nevertheless, I check Add/Remove and it is not there. I've never written VB before, so I don't know what the problem is, or even if it is a problem with the script or with the MSI itself. Anyways, here is the script:
' 1. set variables
'
Option Explicit
On Error Resume Next
Dim Return, programpath, programname, windowspath, startmenupath, fso, WshShell, WshNetwork
programname = "Adobe Acrobat Reader 6.0 Full"
set fso = CreateObject("scripting.filesystemobject")
Set WshShell=WScript.CreateObject("Wscript.Shell")
Set WshNetwork = WScript.CreateObject("Wscript.Network")
programpath = left(WScript.ScriptFullName,len(wscript.scriptfullname) - Len(WScript.scriptName))' 2. run setup program
WshShell.Popup "Starting installation of " & programname & "...",3,programname
Return = WshShell.Run("msiexec /qb- /i """ & programpath & "Adobe Reader 6.0.1.msi""",1,True)
'
' 3. perform after-installation configuration
'
WshShell.regdelete "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA"
WshShell.regdelete "HKLM\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA"
WshShell.regwrite "HKCU\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA","1","REG_DWORD"
WshShell.regwrite "HKLM\Software\Adobe\Acrobat Reader\6.0\AdobeViewer\EULA","1","REG_DWORD"
If fso.folderexists("c:\documents and settings\all users") Then
fso.deletefolder "c:\documents and settings\all users\start menu\programs\PrintMe Internet Printing", True
End If
If fso.folderexists("c:\winnt\profiles\all users") Then
fso.deletefolder "c:\winnt\profiles\all users\start menu\programs\PrintMe Internet Printing", TrueEnd If
If fso.folderexists("c:\windows\profiles\all users") Then
fso.deletefolder "c:\windows\profiles\all users\start menu\programs\PrintMe Internet Printing", True
End IfWshShell.Popup "Completed installation of " & programname & "...",3,programname

looks to me this script is used for NT...
you have XP...
perhaps that doesnt matter, do it specify where it is being installed?
perhaps it is creating it's own folder since you arent telling it where to go...

oh and it wont show up in add/remove unless you install it in the program files directory, looks to me like it may be going to the my documents and settings\all users directory check there...

Heheh... Ooops. That script that I got from somewhere else must have been a little dated because the .msi was missing the last .1 in the version number. I also forgot a file or two in the shared install folder :-|

![]() |
![]() |
![]() |

This post is quite old and has been locked from receiving new replies. Please create a new posting instead.
| Ads by Google |