转换脚本以允许按计划任务运行

Question

不久前我写了一个 VBScript 来简化任务。它可以工作，但是它不会作为计划任务运行，因为它需要一个命令窗口才能与之交互。如何更改脚本以允许它作为计划任务运行？

dim filesys
Set objShell = WScript.CreateObject("WScript.Shell")
set filesys=CreateObject("Scripting.FileSystemObject") 

WScript.Sleep 2000  
objShell.SendKeys"dsdbutil"  
WScript.Sleep 2000 
objShell.SendKeys("{Enter}")  
WScript.Sleep 2000 
objShell.SendKeys("activate instance wap")
WScript.Sleep 2000 
objShell.SendKeys("{Enter}")
WScript.Sleep 2000 
objShell.SendKeys("ifm")
WScript.Sleep 2000 
objShell.SendKeys("{Enter}")
WScript.Sleep 2000 
objShell.SendKeys("create full c:\adldsbackup")
WScript.Sleep 2000 
objShell.SendKeys("{Enter}")
WScript.Sleep 30000 
objShell.SendKeys("quit")
WScript.Sleep 2000 
objShell.SendKeys("{Enter}")
WScript.Sleep 2000 
objShell.SendKeys("quit")
WScript.Sleep 2000 
objShell.SendKeys("{Enter}")
WScript.Sleep 2000 


filesys.MoveFile "c:\adldsbackup\adamntds.dit", "\\vash\ibts_ts\Networking\Backups\ADLDS\adamntds_" & DatePart("m",Now()) & "_" & DatePart("d",Now()) & "_" & DatePart("YYYY",Now()) & ".dit"

objShell.SendKeys("exit")
WScript.Sleep 2000 
objShell.SendKeys("{Enter}")

Answer 1

我做过类似的事情，调度一个 vbs。解决方法很简单！

创建一个批处理文件来运行 vbs 文件并安排这个批处理文件。我更喜欢在批处理文件中使用 cscript：

cscript.exe //nologo <ScriptNameWithFullPath>