Dim AutoRunQueryResult As Integer
If AutoRun = "1" Then
Form1.AutoRun.Value = 1
incrementStep = 1
ExecuteSteps
End If
If AutoLoad = "1" Then
Form1.AutoLoad.Value = 1
End If
If AutoLoad <> "1" Then
Form1.AutoLoad.Value = 0
End If
If IE4INSTALL = "1" Then
tempInstallIni = InstallProgramDirValue + "\install.dat"
tempInstallIni = RemoveRepetitiveCharacters(Trim(tempInstallIni), "\")
UpdateTextFile tempInstallIni, "IESourceValue", "IESourceValue=(SOURCE)ZibexSupport\IE40\"
RefreshIniFile
LoadIniFile
Form1.ie4.Value = 1
Form1.ie5.Value = 0
End If
If IE5INSTALL = "1" Then
tempInstallIni = InstallProgramDirValue + "\install.dat"
tempInstallIni = RemoveRepetitiveCharacters(Trim(tempInstallIni), "\")
UpdateTextFile tempInstallIni, "IESourceValue", "IESourceValue=(SOURCE)ZibexSupport\IE50\"
RefreshIniFile
LoadIniFile
Form1.ie5.Value = 1
Form1.ie4.Value = 0
End If
If VTM_ACTIVE = "1" Then
Form1.Option1.Value = 1
Form1.Option2.Value = 0
End If
If Z384_INSTALL = "1" Then
Form1.Option3.Value = 1
Form1.Option4.Value = 0
End If
If Z350_INSTALL = "1" Then
Form1.Option4.Value = 1
Form1.Option3.Value = 0
End If
If DefaultLogin = "1" Then
Form1.Check2.Value = 1
End If
If DefaultLogin <> "1" Then
Form1.Check2.Value = 0
End If
EnableInterface
End If
'-----------------------------------------------
Case 1 'Install Internet Explorer
If IE4INSTALL = "1" Then
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install Internet Explorer 4.1."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe doscript_nt.pcd /c IE4_Setup"
RunShell currentShell
SetScriptCompleteFlag "1"
UpdateInstallLine stepNumber + 1, False
End If
End If
If IE5INSTALL = "1" Then
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install Internet Explorer 5.0."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe doscript_nt.pcd /c IE5_Setup"
RunShell currentShell
SetScriptCompleteFlag "1"
UpdateInstallLine stepNumber + 1, False
End If
End If
'-----------------------------------------------
Case 2
ShowStatus " Step" + Str$(InstallStep + 1) + ": Set NT Event Log defaults."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe doscript_nt.pcd /c Event_Viewer_Modify"
RunShell currentShell
'If MTSInstalled = "1" Then
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe doscript_nt.pcd /c MTS_Calibrate"
'incrementStep = 0
RunShell currentShell
'incrementStep = 1
'End If
UpdateInstallLine stepNumber + 1, False
UpdateInstallLine stepNumber + 1, False
i% = Reboot()
End If
'-----------------------------------------------
Case 3 'Install ATI 3D Rage Pro Turbo Video driver
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install ATI 3D Rage Pro Turbo Video driver."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe DOSCRIPT_NT.pcd /c Video_Drivers"
RunShell currentShell
SetScriptCompleteFlag "1"
UpdateInstallLine stepNumber + 1, False
i% = Reboot()
End If
'-----------------------------------------------
Case 4 'Install Zydacron Software.
If ZydacronInstall = "1" Then
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install Zydacron Software."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe DOSCRIPT_NT.pcd /c 350_Setup_Start"
RunShell currentShell
'Dim theregValue As String
While StepDone <> 1
'Debug.Print "Waiting"
'result = SetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Microsoft\Windows\CurrentVersion\RunOnce", "Hardware Setup", "")
'result = SetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Microsoft\Windows\CurrentVersion\RunOnce", "Register", "")
'result = SetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Microsoft\Windows\CurrentVersion\RunOnce", "", "")
Wend
'End
'Set those pesky registry values
result = SetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Microsoft\Windows\CurrentVersion\RunOnce", "Hardware Setup", "")
result = SetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Microsoft\Windows\CurrentVersion\RunOnce", "Register", "")
result = SetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Microsoft\Windows\CurrentVersion\RunOnce", "", "")
'result = SetRegistryLongValue(HKEY_CLASSES_ROOT, "Classes", "Videoconference\shell\settings", "Video Input Cable", CDbl(0))
' result = SetRegistryLongValue(HKEY_CLASSES_ROOT, "Classes", "Videoconference\shell\settings", "Video Input Format", CDbl(1))
'result = SetRegistryLongValue(HKEY_CLASSES_ROOT, "Classes", "Videoconference\shell\settings", "Video Input Index", CDbl(0))
'result = SetRegistryLongValue(HKEY_CLASSES_ROOT, "Classes", "Videoconference\shell\settings", "Video Input Type", CDbl(0))
'result = SetRegistryLongValue(HKEY_CLASSES_ROOT, "Classes", "Videoconference\shell\settings", "Video Output Format", CDbl(1))
'result = SetRegistryLongValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Classes\Videoconference\shell\settings", "Video Input Cable", CDbl(0))
'result = SetRegistryLongValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Classes\Videoconference\shell\settings", "Video Input Format", CDbl(1))
'result = SetRegistryLongValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Classes\Videoconference\shell\settings", "Video Input Index", CDbl(0))
'result = SetRegistryLongValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Classes\Videoconference\shell\settings", "Video Input Type", CDbl(0))
'result = SetRegistryLongValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "Classes\Videoconference\shell\settings", "Video Output Format", CDbl(1))
UpdateInstallLine stepNumber + 1, False
i% = Reboot()
Sleep 30
End If
End If
If P200Install = "1" Then
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install PictureTel Software."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe DOSCRIPT_NT.pcd /c P200_Install"
RunShell currentShell
UpdateInstallLine stepNumber + 1, False
' result = SetRegistryValue(HKEY_CLASSES_ROOT, "SOFTWARE", "shell\settings", "Video Input Cable", "0")
UncheckCheck (InstallStep)
Name WindowsSystemDirValue + "FXNPUGS.DLL" As WindowsSystemDirValue + "FXNPUGS.OLD"
FileCopy P200SourceValue + "FXNPUGS.DLL", WindowsSystemDirValue + "FXNPUGS.DLL"
End If
End If
'-----------------------------------------------
Case 5 'Install MPEG.
On Local Error GoTo Getoverit
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install MPEG."
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = InstallProgramDirValue + "mtrun.exe doscript_nt.pcd /c MPEG_Install"
If VBW_ACTIVE = "1" Then
Installmessage "VBW Alert", "MPEG will now be installed.", 5
RunShell currentShell
End If
If VTM_ACTIVE = "1" Then
Installmessage "VTM Alert", "MPEG will not be installed!", 5
RunShell currentShell
End If
UpdateInstallLine stepNumber + 1, False
End If
'-----------------------------------------------
Case 6 'Install VBW software.
'
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install VBW software."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
currentShell = Trim$(InstallProgramDirValue) + "mtrun.exe doscript_nt.pcd /c VBW_Install"
RunShell currentShell
SetScriptCompleteFlag "1"
UpdateInstallLine stepNumber + 1, False
i% = Reboot()
End If
'-----------------------------------------------
Case 7 'Configure Net Meeting
ShowStatus " Step" + Str$(InstallStep + 1) + ": Configure Net Meeting."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = InstallProgramDirValue + "mtrun.exe doscript_nt.pcd /c Netmeeting_Configure"
RunShell currentShell
UpdateInstallLine stepNumber + 1, False
SetScriptCompleteFlag "1"
i% = Reboot()
End If
'-----------------------------------------------
Case 8 'Start Net Meeting
ShowStatus " Step" + Str$(InstallStep + 1) + ": Start Net Meeting and enable sharing."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = InstallProgramDirValue + "mtrun.exe doscript_nt.pcd /c Netmeeting_Share"
RunShell currentShell
SetScriptCompleteFlag "1"
UpdateInstallLine stepNumber + 1, False
i% = Reboot()
End If
'************************************************
Case 9 'Install Lexmark printer.
ShowStatus " Step" + Str$(InstallStep + 1) + ": Install Lexmark printer."
SetScriptCompleteFlag "0"
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = InstallProgramDirValue + "mtrun.exe doscript_nt.pcd /c Printer_Install"
RunShell currentShell
' UncheckCheck (InstallStep)
SetScriptCompleteFlag "1"
UpdateInstallLine stepNumber + 1, False
i% = Reboot()
End If
'************************************************
Case 10 'Setup Zydacron video.
ShowStatus " Step" + Str$(InstallStep + 1) + ": Setup Zydacron video."
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = InstallProgramDirValue + "mtrun.exe doscript_nt.pcd /c Configure_Zydacron_Video"
RunShell currentShell
UpdateInstallLine stepNumber + 1, False
i% = Reboot()
End
End If
'************************************************
Case 11 'Copy micr font
ShowStatus " Step" + Str$(InstallStep + 1) + ": Copy Micr.ttf font to " + FontTargetValue + "."
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
CopyAllFiles FontSourceValue, FontTargetValue, ""
UncheckCheck (InstallStep)
UpdateInstallLine stepNumber + 1, False
AutoRun = "0"
UpdateTextFile InstallProgramDirValue + "install.dat", "AutoRun", "AutoRun=0"
SetStartup (0)
i% = Reboot()
End If
'-----------------------------------------------
Case 12 'Add menu items and desktop icons to default user.
'On Local Error GoTo Getoverit
ShowStatus " Step" + Str$(InstallStep + 1) + ": Add WinMSD to desktop."
If (IsitChecked(InstallStep) = 1) Then
Form1.MousePointer = 11 'Set the mousepointer to an hourglass
currentShell = InstallProgramDirValue + "mtrun.exe doscript_nt.pcd /c WINMSD_Shortcut"
RunShell currentShell
UpdateInstallLine stepNumber + 1, False
End If
End Sub