76 lines
1.9 KiB
Plaintext
76 lines
1.9 KiB
Plaintext
' // ***************************************************************************
|
|
' //
|
|
' // Copyright (c) Microsoft Corporation. All rights reserved.
|
|
' //
|
|
' // Microsoft Deployment Toolkit Solution Accelerator
|
|
' //
|
|
' // File: LTIBootstrap.ini
|
|
' //
|
|
' // Version: 6.3.8456.1000
|
|
' //
|
|
' // Purpose: Invoke LiteTouch.wsf from the appropriate folder
|
|
' //
|
|
' // Usage: wscript LTIBootstrap.vbs
|
|
' //
|
|
' // ***************************************************************************
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'//
|
|
'// Global constant and variable declarations
|
|
'//
|
|
'//----------------------------------------------------------------------------
|
|
|
|
Option Explicit
|
|
|
|
Dim iRetVal
|
|
Dim oShell
|
|
Dim oFSO
|
|
Dim oDrive
|
|
Dim sCmd
|
|
Dim bFound
|
|
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'// Initialization
|
|
'//----------------------------------------------------------------------------
|
|
|
|
Set oShell = CreateObject("WScript.Shell")
|
|
Set oFSO = CreateObject("Scripting.FileSystemObject")
|
|
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'// Find LiteTouch.wsf and run it
|
|
'//----------------------------------------------------------------------------
|
|
|
|
bFound = false
|
|
For Each oDrive in oFSO.Drives
|
|
If oDrive.IsReady then
|
|
If oFSO.FileExists(oDrive.DriveLetter & ":\MININT\Scripts\LiteTouch.wsf") then
|
|
sCmd = "wscript.exe """ & oDrive.DriveLetter & ":\MININT\Scripts\LiteTouch.wsf"" /start"
|
|
iRetVal = oShell.Run(sCmd, 1, true)
|
|
bFound = true
|
|
Exit For
|
|
End if
|
|
End if
|
|
Next
|
|
|
|
|
|
' Make sure we ran something. If not, pop up an error
|
|
|
|
If not bFound then
|
|
oShell.Popup "Unable to find LiteTouch.wsf needed to continue the deployment.", 0, "Script not found", 48
|
|
iRetVal = 9981
|
|
End if
|
|
|
|
|
|
' Delete ourselves
|
|
|
|
On Error Resume Next
|
|
oFSO.DeleteFile Wscript.ScriptFullName, true
|
|
On Error Goto 0
|
|
|
|
|
|
' All done
|
|
|
|
WScript.Quit iRetVal
|