130 lines
3.3 KiB
XML
130 lines
3.3 KiB
XML
<job id="ZTIConnect">
|
|
<script language="VBScript" src="ZTIUtility.vbs"/>
|
|
<script language="VBScript">
|
|
|
|
' // ***************************************************************************
|
|
' //
|
|
' // Copyright (c) Microsoft Corporation. All rights reserved.
|
|
' //
|
|
' // Microsoft Deployment Toolkit Solution Accelerator
|
|
' //
|
|
' // File: ZTISetBackground.wsf
|
|
' //
|
|
' // Version: 6.3.8456.1000
|
|
' //
|
|
' // Purpose: Solution Accelerator for Business Desktop Deployment
|
|
' //
|
|
' // Usage: cscript ZTISetBackground.wsf /image:<imagenumber> [/debug:true]
|
|
' //
|
|
' // ***************************************************************************
|
|
|
|
|
|
Option Explicit
|
|
RunNewInstance
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'// Global Constants
|
|
'//----------------------------------------------------------------------------
|
|
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'// Main Class
|
|
'//----------------------------------------------------------------------------
|
|
|
|
Class ZTISetBackground
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'// Global constant and variable declarations
|
|
'//----------------------------------------------------------------------------
|
|
|
|
Dim iRetVal
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'// Constructor to initialize needed global objects
|
|
'//----------------------------------------------------------------------------
|
|
|
|
Private Sub Class_Initialize
|
|
|
|
End Sub
|
|
|
|
|
|
'//----------------------------------------------------------------------------
|
|
'// Main routine
|
|
'//----------------------------------------------------------------------------
|
|
|
|
Function Main
|
|
|
|
' Local Variables
|
|
|
|
Dim sExecutable, sBGInfo, sWindowHide
|
|
Dim sCmdString, iCmdRetVal
|
|
|
|
|
|
iRetVal = Success
|
|
|
|
|
|
' validate arguments
|
|
|
|
If oUtility.Arguments("Image") = "" then
|
|
oLogging.CreateEntry "A background was not specified, exiting", LogTypeInfo
|
|
Exit Function
|
|
End If
|
|
|
|
|
|
' Find the WindowHide executable
|
|
|
|
iRetVal = oUtility.FindFile("WindowHide.exe", sWindowHide)
|
|
If iRetVal <> Success then
|
|
oLogging.CreateEntry "Unable to find WindowHide.exe, exiting.", LogTypeInfo
|
|
Exit Function
|
|
End if
|
|
|
|
|
|
' Run WindowHide
|
|
|
|
sCmdString = """" & sWindowHide & """ firstuxwnd"
|
|
On Error Resume Next
|
|
iCmdRetVal = oShell.Run(sCmdString)
|
|
TestAndLog iCmdRetVal, "Failed to run WindowHide"
|
|
On Error Goto 0
|
|
|
|
|
|
' Figure out the executable to use
|
|
|
|
If oEnvironment.Item("Architecture") = "X64" then
|
|
sExecutable = "BGInfo64.exe"
|
|
Else
|
|
sExecutable = "BGInfo.exe"
|
|
End if
|
|
|
|
|
|
' Find the BGInfo executable
|
|
|
|
iRetVal = oUtility.FindFile(sExecutable, sBGInfo)
|
|
If iRetVal <> Success then
|
|
oLogging.CreateEntry "Unable to find " & sExecutable & ", exiting.", LogTypeInfo
|
|
Exit Function
|
|
End if
|
|
|
|
|
|
' Run BGInfo
|
|
|
|
sCmdString = """" & sBGInfo & """ " & oEnvironment.Item("DeployRoot") & "\Tools\X86\step_0" & oUtility.Arguments("Image") & ".bgi /nolicprompt /silent /timer:0"
|
|
oShell.CurrentDirectory = oEnvironment.Item("DeployRoot") & "\Tools\X86"
|
|
On Error Resume Next
|
|
iCmdRetVal = oShell.Run(sCmdString)
|
|
TestAndLog iCmdRetVal, "Failed to set the background"
|
|
On Error Goto 0
|
|
|
|
|
|
' We never want to fail
|
|
|
|
Main = Success
|
|
|
|
End Function
|
|
|
|
End Class
|
|
|
|
</script>
|
|
</job>
|