请高人帮忙修改一个改系统时间的VBS代码

htjyjl

有一个使用天数限制的软件，下面的代码可以将系统时间改到软件可以使用的日期，但回不到运行这个VBS代码之前的时间。比如今天是2008年10月14日运行了这个VBS代码，系统时间就变成了2007年4月1日。请问怎样修改才能计变回运行这个批处理之前的时间？
    Dim WshSHell
    Set WshSHell = WScript.CreateObject("WScript.Shell")
    CMD="%COMSPEC% /C "
    WshSHell.Run(CMD&"DATE 2007.4.1")
    WScript.Sleep 1000
    'WshSHell.Run("有限制的程序")
    WScript.Sleep 10000
    WshSHell.Run(CMD&"Dim MyTime")

2012xiaocake

Dim WshSHell,CMD
CMD="%COMSPEC% /C "
Set WshSHell=WScript.CreateObject("WScript.Shell")
WshSHell.Run(CMD & "echo %date%>%temp%\now.txt"),0,true        '先保存当前系统时间至文本文档
WshSHell.Run(CMD & "date 2007.4.1"),0,true                        '修改系统时间
'Wscript.Echo(date)                                        '调试时用的
WshSHell.Run("有限制的程序")
WScript.Sleep 2000                                        '延时足够时间,保证程序完全启动
WshSHell.Run(CMD & "date <%temp%\now.txt"),0,true                '恢复系统时间
'Wscript.Echo(date)                                        '调试时用的
WshSHell.Run(CMD & "del /q /f %temp%\now.txt"),0,true        '删除临时文件
'不知道你按 Alt+C是干啥用的,上面有注释,你自己看着在合适位置添吧

'另一版本
Dim WshSHell,CMD,Now,MyTime
CMD="%COMSPEC% /C date "
Now=date                        '记住当前系统时间(在此假设运行该VBS之前你的系统时间是正确的)
MyTime="2007.4.1"                '注意你的系统时间格式
Set WshSHell=WScript.CreateObject("WScript.Shell")
'Wscript.Echo(date)                        '调试时用的
WshSHell.Run(CMD & MyTime),0,true        '修改系统时间为你的软件可以运行的时间
'Wscript.Echo(date)                        '调试时用的
WshSHell.Run( "有限制的程序" )
WScript.Sleep 3000                        '延时足够时间,保证程序完全启动
WshSHell.Run(CMD & Now),0,true                '恢复系统时间
'Wscript.Echo(date)                        '调试时用的
'按Alt+C的功能也还是你自己看着在合适位置添加.

htjyjl

改成"DATE 2008.10.14"的话，如果我在8月15日运行，系统时间又是2008年10月14日。我的意思是每次运行完这个VBS后系统日期都自动改回运行前的机器日期。别叫我每次都改VBS源码，那样的话还没手工修改方便。也别用BAT批处理，因为我还想加个Alt＋C的键盘动作。之前的源码应加多两行
    Dim WshSHell
    Set WshSHell = WScript.CreateObject("WScript.Shell")
    CMD="%COMSPEC% /C "
    WshSHell.Run(CMD&"DATE 2007.4.1")
    WScript.Sleep 1000
    'WshSHell.Run("有限制的程序")
    WScript.Sleep 5000
    WshShell.SendKeys "%c"
    WScript.Sleep 10000
    WshSHell.Run(CMD&"Dim MyTime")

lxl1638

林子真大，你能将它改成"DATE 2007.4.1"，就不能改回"DATE 2008.10.14"？