2026-05-24 16:21:20 +02:00
parent fed8d42171
commit 049b03b4d4
522 changed files with 105109 additions and 0 deletions
@@ -0,0 +1,75 @@
' // ***************************************************************************
' // 
' // 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