set WshShell	= createObject ("WScript.Shell")
set objEnv	= WshShell.Environment("Process")
set fso = createObject("Scripting.FileSystemObject")

Source_dir		= WScript.ScriptFullName
Source_dir		= left(Source_dir, inStrRev(Source_dir, "\"))

DxVersion = "3_1_8"

' 3Dx Grundinstallation

MsiFile = Source_dir & DxVersion & "\3DxWare\3DxWare.msi"
InstallDir = "C:\NSS\3DConnexion\3DxWare"

command = """C:\WINDOWS\system32\msiexec"" /i """ &  MsiFile & """ /qb /norestart INSTALLDIR=""" & InstallDir & """ /l* C:\temp\Inst3Dx.log"
WshShell.Run Command, 10, true

' 3Dx Viewer

MsiFile = Source_dir & DxVersion & "\3DxViewer\3DxViewer.msi"
InstallDir = "C:\NSS\3DConnexion\3DxViewer"

command = """C:\WINDOWS\system32\msiexec"" /i """ &  MsiFile & """ /qb /norestart INSTALLDIR=""" & InstallDir & """ /l+* C:\temp\Inst3Dx.log"
WshShell.Run Command, 10, true

' 3d Studio Max

if fso.FolderExists("D:\Autodesk\3ds Max 9") then 
    MsiFile = Source_dir & DxVersion & "\3DxStudio9\3DxStudio9.msi"
    InstallDir = "C:\NSS\3DConnexion\3DxStudio9"

    command = """C:\WINDOWS\system32\msiexec"" /i """ &  MsiFile & """ /qb /norestart INSTALLDIR=""" & InstallDir & """ /l+* C:\temp\Inst3Dx.log"
    WshShell.Run Command, 10, true
end if

' Acrobat 3D

if fso.FolderExists("C:\Program Files\Adobe\Reader 8.0") then 
    MsiFile = Source_dir & DxVersion & "\3DxAdobe3D\3DxAdobe3D.msi"
    InstallDir = "C:\NSS\3DConnexion\3DxStudio9"

    command = """C:\WINDOWS\system32\msiexec"" /i """ &  MsiFile & """ /qb /norestart INSTALLDIR=""" & InstallDir & """ /l+* C:\temp\Inst3Dx.log"
    WshShell.Run Command, 10, true
end if

'msgBox "Installation finished"