Software Deployment

Hello all,

I'm trying to script a silent install for UltraEdit 16.10. In my script, the first time i run it, the msiexec for some reason does not create the directory. But if i run it a second time, it then creates the directory and installs OK. I cannot for the life of me understand what exactly is going on. Here is my script:



Option Explicit
'On Error Resume Next

Dim shell, fso, wn, allUsers, userProfile, winDir, computerName, systemDrive, programs
Dim tempDir,programsx86,winTempDir,progDir,oEnv

Set shell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set wn = Wscript.CreateObject("Wscript.Network")
Set oEnv = Shell.Environment("PROCESS")
Const FOR_READING = 1, FOR_WRITING = 2, FOR_APPENDING = 8
Const WBEM_FLAG_RETURN_IMMEDIATELY = &h10
Const WBEM_FLAG_FORWARD_ONLY = &h20


'Returns C:\Documents and Settings\All Users
allUsers = ucase(Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%"))
'Returns C:\Documents and Settings\%Username%
userProfile = ucase(Shell.ExpandEnvironmentStrings("%USERPROFILE%"))
'Returns C:\Windows
winDir = ucase(Shell.ExpandEnvironmentStrings("%WINDIR%"))
'returns computername
computerName = ucase(Shell.ExpandEnvironmentStrings("%COMPUTERNAME%"))
'returns C:\
systemDrive = ucase(Shell.ExpandEnvironmentStrings("%SYSTEMDRIVE%"))
'returns c:\program files
programs = ucase(Shell.ExpandEnvironmentStrings("%PROGRAMFILES%"))
'returns c:\program files (x86) - for 64bit systems
programsx86 = UCase (Shell.ExpandEnvironmentStrings("%PROGRAMFILES(x86)%"))
'returns c:\documents and settings\user\local settings\temp
tempDir = ucase(Shell.ExpandEnvironmentStrings("%TEMP%"))
'returns c:\windows\temp
winTempDir = winDir & "\temp"
'check if 64bit program files is present, set variable to correct path
If fso.FolderExists (programsx86) Then
progDir = programsx86
Else
progDir = programs
End If



oEnv("SEE_MASK_NOZONECHECKS") = 1

writeNtEvent 4,"Starting UltraEdit install now"




'Uninstalling old version
writeNtEvent 4,"uninstalling old version of UltraEdit"
Shell.Run "msiexec /X {384BDD6A-58AB-4556-B393-7084DD35EBF8} /qn",True

'Installing new version
Shell.Run "msiexec /i " & winTempDir & "\ultraedit\ue_english.msi /qn /norestart ALLUSERS=1",0,True

'Registering
Fso.CopyFile winTempDir & "\ultraedit\uedit32.reg",progDir & "\IDM Computer Solutions\UltraEdit\",True

'Cleanup
Fso.CopyFile allUsers & "\Start Menu\Programs\UltraEdit\UltraEdit Text Editor.lnk", allUsers & "\Start Menu\Programs\Applications\",True
Fso.CopyFolder allUsers & "\Start Menu\Programs\UltraEdit", allUsers & "\Start Menu\Programs\Utilities\",True
Fso.DeleteFolder allUsers & "\Start Menu\Programs\UltraEdit",True
Fso.DeleteFile allUsers & "\Desktop\UltraEdit.lnk",True


writeNtEvent 4, "Script Complete
oEnv.Remove("SEE_MASK_NOZONECHECKS")
'*****************************************************************************
'c
Sub writeNtEvent(eventID,eventMsg)
'this sub will write an event to the windows nt event viewer.
Const SUCCESS = 0
Const ERROR = 1
Const WARNING = 2
Const INFORMATION = 4
Const AUDIT_SUCCESS = 8
Const AUDIT_FAILURE = 16

Shell.LogEvent eventID,eventMsg & vbNewLine & "Source Script: " & WScript.ScriptName

End Sub


I'm pretty sure there's no syntax errors in the script. The debugger shows the install aborts the first time when it tries to copy a file to C:\Program Files\IDM Computer Solutions which doesn't exist for some reason at that point in the installation. Then running it a second time, it installs and registers just fine, and the C:\Program Files\IDM directory is there. Does anyone know what i'm doing wrong or has anyone else encountered this issue before.

Thanks very much, any input is appreciated..