'******************************************************************************
'install.vbs
'Author: Peter Costantini, the Microsoft Scripting Guys
'Date: 9/1/04
'Must be deployed to a client and launched remotely by scenario1.vbs.
'Assumes that runonce.vbs is in same directory as script.
'Assumes that Windows XP Service Pack 2 setup program is on a remote server
'and runonce.vbs are in same directory as script.
'1. Runs Service Pack 2 setup program from remote server to install
' Windows XP Service Pack 2. This could take one or two hours.
'2. Configures the AutoAdmin and RunOnce registry settings necessary
' to run runonce.vbs.
'3. Logs results to text file, <computername>-sp2-instlog.txt and copies
' the file back to admin workstation.
'4. Forces a reboot of the local machine so that the AutoAdmin and RunOnce
' registry settings take effect.
'******************************************************************************
On Error Resume Next
'Initialize global constants and variables.
Const FOR_APPENDING = 8
g_strLocalFolder = "c:\temp-ac"
'Change name of computer to actual administrative workstation or local
'path to which log should be copied.
g_strRemoteFolder = "\\<adminwkstn>\c$\temp-ac"
'Get computer name.
g_strComputer = GetComputerName
g_strLogFile = g_strComputer & "-sp2-instlog.txt"
'Create log file.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(g_strLogFile, FOR_APPENDING, True)
objTextStream.WriteLine "Windows XP Service Pack 2 " & _
"Installation and Configuration Log: Phase 1"
objTextStream.WriteLine Now
objTextStream.WriteLine g_strComputer
objTextStream.WriteLine String(Len(g_strComputer), "-")
'Handle logic of calling functions and sub-routines to install Service Pack 2
'and configure AutoAdministration.
blnInstallSP = InstallSP
If blnInstallSP = False Then
CopyLog
WScript.Quit
End If
blnAutoAdmin = ConfigAutoAdmin
If blnAutoAdmin = False Then
CopyLog
WScript.Quit
End If
Reboot
'******************************************************************************
Function GetComputerName
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\." _
&"\root\cimv2")
Set colSystems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objSytem In colSystems
GetComputerName = objSytem.Name
Next
End Function
'******************************************************************************
Function InstallSP
'Edit this line to include the server and share name where the Windows XP
'Service Pack 2 setup program is located.
strInstallPath = "\\servername\xpsp2\WindowsXP-KB835935-SP2-ENU.exe " & _
"/quiet /norestart /o"
Set WshShell = CreateObject("Wscript.Shell")
Set objExec = WshShell.Exec(strInstallPath)
'This could take one or two hours.
objTextStream.WriteLine "Installation started ..."
If Err = 0 Then
'Loop until Exec is finished - Status = 1.
Do While objExec.Status = 0
'Pause for 10 seconds before checking.
'To reduce network traffic, make interval longer.
WScript.Sleep 10000
Loop
objTextStream.WriteLine "Service Pack 2 installation completed."
InstallSP = True
Else
objTextStream.WriteLine "Unable to install Service Pack 2." & VbCrLf & _
"Error connecting to Service Pack 2 on server." & VbCrLf & _
"Error number: " & Err.Number & VbCrLf & _
"Error source: " & Err.Source & VbCrLf & _
"Error description: " & Err.Description
InstallSP = False
End If
Err.Clear
End Function
'******************************************************************************
Function ConfigAutoAdmin
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath1 = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
strKeyPath2 = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
strDefaultUserName = "Administrator"
strDefaultPassword = "P@ssw0rd"
strDefaultDomainName = "Contoso"
intAutoAdminLogon = 1
strRunOnceEntry = "MyScript"
strRunoncePath = g_strLocalFolder & "\runonce.vbs"
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
g_strComputer & "\root\default:StdRegProv")
'Set strDefaultUserName to user with Administrator credentials.
intRet1 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _
"DefaultUserName", strDefaultUserName)
If intRet1 <> 0 Then
objTextStream.WriteLine "Error: DefaultUserName not configured."
End If
'Set strDefaultPassword to password of default username.
intRet2 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _
"DefaultPassword", strDefaultPassword)
If intRet2 <> 0 Then
objTextStream.WriteLine "Error: DefaultPassword not configured."
End If
'Uncomment next 5 lines and edit last parameter if default domain
'for the credentials is different from that already set.
'intRet3 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _
' "DefaultDomainName", strDefaultDomainName)
'If intRet3 <> 0 Then
' objTextStream.WriteLine "Error: DefaultDomainName not configured."
'End If
'Turn on AutoAdminLogon
intRet4 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _
"AutoAdminLogon", "1")
If intRet4 <> 0 Then
objTextStream.WriteLine "Error: AutoAdminLogon not configured."
End If
'Add MyScript entry to RunOnce subkey.
intRet5 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath2, _
strRunOnceEntry, strRunoncePath)
If intRet5 <> 0 Then
objTextStream.WriteLine "Error: MyScript RunOnce entry not configured."
End If
'Check that all registry write operations succeeded.
If (intRet1 + intRet2 + intRet3 + intRet4 + intRet5) = 0 Then
objTextStream.WriteLine "AutoAdminLogon and RunOnce configured."
ConfigAutoAdmin = True
Else
objTextStream.WriteLine "Error: AutoAdminLogon and RunOnce not fully " & _
"configured."
ConfigAutoAdmin = False
End If
End Function
'******************************************************************************
Sub Reboot
Const FORCED_REBOOT = 6
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}!\\" & g_strComputer & "\root\cimv2")
Set colOSes = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
objTextStream.WriteLine "Attempting to reboot ..."
CopyLog
For Each objOS In colOSes 'Only one objOS in collection
intReturn = objOS.Win32Shutdown(FORCED_REBOOT)
If intReturn <> 0 Then
Set objTextStream = objFSO.OpenTextFile(g_strLogFile, FOR_APPENDING, True)
objTextStream.WriteLine Now
objTextStream.WriteLine "Error: Unable to reboot. " & VbCrLf & _
"Return code: " & intReturn
CopyLog
End If
Next
End Sub
'******************************************************************************
Sub CopyLog
'Close text file.
objTextStream.WriteLine "Closing log and attempting to copy file to " & _
"administrative workstation."
objTextStream.WriteLine
objTextStream.WriteLine String(80, "-")
objTextStream.WriteLine
objTextStream.Close
'Copy log.
If Not objFSO.FolderExists(g_strRemoteFolder) Then
objFSO.CreateFolder(g_strRemoteFolder)
If Err <> 0 Then
Err.Clear
Exit Sub
End If
End If
objFSO.CopyFile g_strLogFile, g_strRemoteFolder & "\"
End Sub