问VBS重启并在同一台服务器上等待

EN

CMD File;

cd c:
C:\Setup\SQL2008R2_SP2\Setup.exe /CONFIGURATIONFILE=C:\Setup\SQL2008R2.ini /INDICATEPROGRESS

Change Drive Letters (Original source http://imallvirtual.com/?p=482)

' Script that changes drive letters
' Note: Do NOT use it on SYSTEM or BOOT partition drive letters !!!

set objShell = CreateObject("WScript.Shell")
' objShell.Run("regedit /s C:\Setup\MsgBox.reg")

sComputer = "."
Const HKLM = &H80000002

' from/to
If ChangeDrvLetter("D:", "T:") Then
End If

If ChangeDrvLetter("F:", "X:") Then
End If

If ChangeDrvLetter("G:", "D:") Then
End If

Function ChangeDrvLetter(sSourceDrive, sTargetDrive)
 bOK = True ' Init value
 Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
 & sComputer & "\root\default:StdRegProv")

sKeyPath = "SYSTEM\MountedDevices"
 sSrc = "\DosDevices\" & UCase(sSourceDrive)

iRC = oReg.GetBinaryValue(HKLM, sKeyPath, sSrc, sValue)

If iRC = 0 Then
 sTrg = "\DosDevices\" & UCase(sTargetDrive)

iRC = oReg.SetBinaryValue(HKLM, sKeyPath, sTrg, sValue)

If iRC = 0 Then
 oReg.DeleteValue HKLM, sKeyPath, sSrc
 Else
 bOK = False
 End If
 Else
 bOK = False
 End If
 ChangeDrvLetter = bOK
End Function
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"