1

現在、ユーザーが手動で実行している .vbs スクリプトを作成しました。Windows XP および Windows 7 で、このスクリプトを初めて手動で実行するときに、このスクリプト自体をタスク スケジューラ (毎日決まった時間に自動的に実行する) でスケジュールするにはどうすればよいですか?

編集

    Option Explicit

    Dim oShell : Set oShell = WScript.CreateObject ("WScript.Shell")
    Dim FSO : set FSO = CreateObject("Scripting.FileSystemObject") 
    Dim StartTime,Elapsed 

    'msgBox(oShell.CurrentDirectory)
    'MsgBox(FSO.GetFile(Wscript.ScriptFullName).ParentFolder )
    oShell.CurrentDirectory = FSO.GetFile(Wscript.ScriptFullName).ParentFolder

    StartTime = Timer

    oShell.run "ParentChildLinkFinal.vbs", 1, True
    oShell.run "Parent_Child_Merge_final.vbs", 1, True
    oShell.run "CycleTime.vbs", 1, True
    oShell.run "Baddata.vbs", 1, True
    oShell.run "Matrixrefresh.vbs", 1, True

    Elapsed = Timer - StartTime

    MsgBox("Total time taken to finish this task:" & Elapsed & "in Seconds")

ありがとう、

4

4 に答える 4

2

次のコマンドを実行するスケジュールされたタスクを作成します。

c:\windows\system32\cscript.exe PATH_TO_YOUR_VBS
于 2012-12-30T01:22:18.933 に答える
0

確かに、vbs ファイルをスケジュールされたタスクにすることができます。

ただし、警告は、何もユーザーにプロンプ​​トを表示させたくないということです...入力もメッセージボックスも何もありません。例外を処理してログに記録したことを確認してください。そうしないと、完了しないタスクが発生する可能性があります (さらに悪いことに、午前 3 時にメッセージ ボックスがポップアップし、生産プロセスが停止したため、オペレーションが怒って電話をかけてきます)。

于 2013-01-02T21:26:42.123 に答える
-3

これを試して

X=MsgBox("Take the Quiz!")

name=inputbox("Name")

q1=inputbox("Question 1 - How many days are there in a leap Year?")

q2=inputbox("Question 2 - How many Suns does Neptune have?")

q3=inputbox("Question 3 - What is your name?")

q4=inputbox("Question 4 - What did one computer say to the other?")

q5=inputbox("Question 5 - Why did the chicken cross the road?")

msgbox("Answers!")

msgbox("Q1 - How many days are there in a leap Year?, you answered ") + q1 + (" ,the correct answer is 366")

msgbox("Q2 - How many Suns does Neptune have?, you answered ") + q2 + (" ,the correct answere is one, our sun.")

msgbox("Q3 - What is your name?, you answered ") + q3 + (", the correct answer is ") + name + (" or is it?")

msgbox("Q4 - What did one computer say to the other?, you answered ") + q4 + (", the correct answer is, 011100110111010101110000 (Binary code for sup)")

msgbox("Q5 - Why did the chicken cross the road?, you answered ") + q5 + (", the correct answer is To get to the other side")

msgbox("Well done, ") + name + (" you have completed the quiz")
于 2013-09-26T02:31:24.387 に答える