- //日志定义放在脚本最前面(固定)
- 调用子程序 【日志定义】
- //↓↓↓↓↓以下2句放在脚本适当地方就能保存为日志↓↓↓↓↓(注:[SaveString]的内容可自行修改)
- (VBScript语句) SaveString="--->>>挂机开始"
- 调用子程序 【保存日志】
- //↑↑↑↑↑以上2句放在脚本适当地方就能保存为日志↑↑↑↑↑(注:[SaveString]的内容可自行修改)
- 脚本停止运行
- 子程序 【日志定义】
- (VBScript语句) Dim File,F1,SaveString,FileName
- //保存日志位置
- (VBScript语句) FileName="d:\挂机日志.ini"
- (VBScript语句) Set File = CreateObject("Scripting.FileSystemObject")
- //创建新日志(并自动替换旧日志)
- (VBScript语句) Set F1 =File.CreateTextFile(FileName,2)
- (VBScript语句) F1.Close
- 子程序结束,回到调用处
- 子程序 【保存日志】
- (VBScript语句) Set F1 =File.OpenTextFile(FileName,8)
- //保存日志内容
- (VBScript语句) F1.WriteLine(Now&SaveString)
- //关闭文件
- (VBScript语句) F1.Close
- 子程序结束,回到调用处