Vbscript VB脚本检查系统是否在一定时间之间
编辑以下脚本,该脚本将检查系统时间是否在3:05am和5:15am之间。如果系统在这些小时之间,则脚本应显示timechecksuccess.flag;如果系统在这些时间之外,则脚本应显示timecheckfail.flag。我的脚本没有失败。你能告诉我哪里出了问题吗。谢谢Vbscript VB脚本检查系统是否在一定时间之间,vbscript,Vbscript,编辑以下脚本,该脚本将检查系统时间是否在3:05am和5:15am之间。如果系统在这些小时之间,则脚本应显示timechecksuccess.flag;如果系统在这些时间之外,则脚本应显示timecheckfail.flag。我的脚本没有失败。你能告诉我哪里出了问题吗。谢谢 Option Explicit`enter On Error Resume Next Dim g_objShell, g_strTSuccess, g_strTFail, g_objFS, g_strDone Set g
Option Explicit`enter
On Error Resume Next
Dim g_objShell, g_strTSuccess, g_strTFail, g_objFS, g_strDone
Set g_objShell = CreateObject("WScript.Shell")
Set g_objFS = CreateObject("Scripting.FileSystemObject")
g_strTSuccess = "C:\TimeCheckSuccess.Flag"
g_strTFail = "C:\TimeCheckFail.Flag"
g_strDone = "C:\Done.Flag"
If g_objFS.FileExists(g_strTSuccess) Then
Call g_objFS.DeleteFile(g_strTSuccess, True)
End If
If g_objFS.FileExists(g_strTFail) Then
Call g_objFS.DeleteFile(g_strTFail, True)
End If
If g_objFS.FileExists(g_strDone) Then
Call g_objFS.DeleteFile(g_strDone, True)
End If
If DatePart("h" ("n", Now()) < 0305 or DatePart("h" ("n", Now()) > 0515 or WScript.Arguments.Named.Exists("Now") ))Then
Call g_objFS.CreateTextFile(g_strTSuccess, True) Else
Call g_objFS.CreateTextFile(g_strTFail, True)
只需删除文件。你不测试然后做,你做然后测试。你也不用call。如果您关心它是否成功删除
on error resume next
g_objFS.DeleteFile("C:\Done.Flag", True)
If err.number = 53 Then
msgbox "File didn't exist"
elseif err.number <> 0 then
msgbox "unknown error"
End If
on error goto 0
出错时继续下一步
g_objFS.DeleteFile(“C:\Done.Flag”,True)
如果err.number=53,则
msgbox“文件不存在”
否则错误号为0
msgbox“未知错误”
如果结束
错误转到0
此外,将wscript.quit作为文件的最后一行也是毫无意义的
只需删除文件。你不测试然后做,你做然后测试。你也不用call。如果您关心它是否成功删除
on error resume next
g_objFS.DeleteFile("C:\Done.Flag", True)
If err.number = 53 Then
msgbox "File didn't exist"
elseif err.number <> 0 then
msgbox "unknown error"
End If
on error goto 0
出错时继续下一步
g_objFS.DeleteFile(“C:\Done.Flag”,True)
如果err.number=53,则
msgbox“文件不存在”
否则错误号为0
msgbox“未知错误”
如果结束
错误转到0
此外,将wscript.quit作为文件的最后一行也是毫无意义的
If g_objFS.FileExists(g_strDone) Then
Call g_objFS.DeleteFile(g_strDone, True)
End If
on error resume next
g_objFS.DeleteFile("C:\Done.Flag", True)
If err.number = 53 Then
msgbox "File didn't exist"
elseif err.number <> 0 then
msgbox "unknown error"
End If
on error goto 0