WSH活用 某些试用软件过期之后
Dim MyDate, InstallDate
Set WshShell = CreateObject("WScript.Shell")
'程序最初安装时候的日期
InstallDate = "2007-12-20"
Set oExec = WshShell.Exec("cmd /C date /T " )
MyDate = oExec.StdOut.ReadLine()
'修改系统日期,
Set oExec = WshShell.Exec("cmd /C date " & InstallDate)
'启动OB
Set oExec = WshShell.Exec("D:\Program Files\OB9\ob9.exe")
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
'回复备份的系统日期
Set oExec = WshShell.Exec("cmd /C date " & MyDate)
