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

我想运行以下脚本作为客户自定义的一部分，因此当我从模板部署VM时，Windows卷具有正确的驱动器号。下面的脚本工作，但需要重新启动，重新启动后，我想调用我的SQL安装程序命令，目前只是.cmd文件中的一行。任何人都可以帮助我将一个等待命令添加到驱动器盘符脚本，然后在重新启动后调用cmd命令吗？VBS重新启动并在同一台服务器上等待

PowerShell还有一个更简单的方法吗？

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"

来源

2013-08-21 user2704164

要在重新启动后运行，您可以确保脚本在task-scheduler中设置一次性任务来运行one line命令。（任务甚至可以设置为在运行后删除自己）

来源

2013-08-22 13:19:33

感谢您的回复，我设法通过在'RunOnce'（http://support.microsoft.com/kb）中创建注册表项来解决此问题/ 310593/zh-cn）然后在重新启动时调用SQL安装批处理文件。无论如何，谢谢:) – user2704164

我同意你的意见，Reg-RunOnce aproech要简单得多。但是，如果需要，Task-scheduler可能会有更多的日志。 –

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

回答

相关问题