标题: 问一个关于VBS脚本中时间的问题 [打印本页]

---

作者: shayulei     时间: 2008-9-25 14:25    标题: 问一个关于VBS脚本中时间的问题

我用一个脚本查询打印日志，结果出输的时间并没有按照日期时间格式输出，请问怎么处理？
脚本内容：

'查询日志
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'system' AND EventCode = 4 AND SourceName = 'print'AND TimeWritten = '"& dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'"")


'写文本文件
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("C:\a.txt", ForAppending, True)
For Each objService in colLoggedEvents
    objTextFile.WriteLine(objService.ComputerName & vbTab & objService.EventCode & vbTab & objService.Message & vbTab & objService.RecordNumber & vbTab & objService.SourceName & vbTab & objService.TimeWritten & vbTab & objService.Type & vbTab & objService.User)
Next
objTextFile.Close

输出格式如下：

PC1 4 打印机 EPSON DLQ-1000K 删除操作搁置中。
8065 Print 20080925102153.000000+480 警告 MICROSOFT\USER
PC2 4 打印机 Send To OneNote 2007 删除操作搁置中。
7670 Print 20080911030113.000000+480 警告 NT AUTHORITY\SYSTEM



输出的时间格式怎么是这种：20080925102153.000000+480

[ Last edited by shayulei on 2008-9-25 at 02:34 PM ]

---

作者: shayulei     时间: 2008-9-25 16:28
已解决，谢谢！