//日志定义放在脚本最前面（固定）
Gosub 【日志定义】
//↓↓↓↓↓以下2句放在脚本适当地方就能保存为日志↓↓↓↓↓（注：[SaveString]的内容可自行修改）
VBS SaveString="--->>>挂机开始"
Gosub 【保存日志】
//↑↑↑↑↑以上2句放在脚本适当地方就能保存为日志↑↑↑↑↑（注：[SaveString]的内容可自行修改）
EndScript 
Sub 【日志定义】
    VBS Dim File,F1,SaveString,FileName
    //保存日志位置
    VBS FileName="d:\挂机日志.ini"
    VBS Set File = CreateObject("Scripting.FileSystemObject")
    //创建新日志(并自动替换旧日志)
    VBS Set F1 =File.CreateTextFile(FileName,2)
    VBS F1.Close
Return 【日志定义】
Sub 【保存日志】
    VBS Set F1 =File.OpenTextFile(FileName,8)
    //保存日志内容
    VBS F1.WriteLine(Now&SaveString)
    //关闭文件
    VBS F1.Close
Return 【保存日志】