无忧启动论坛

标题: VBS报无效的过程或参数错误，怎么解决 [打印本页]

作者: shayulei 时间: 2008-9-25 17:29
标题: VBS报无效的过程或参数错误，怎么解决
我写的脚本在运行过程中报无效的过程或参数错误，出错信息如图

脚本如下：
'获取日期
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
tmToday = dtmThisMonth & "/" & dtmThisDay & "/" & dtmThisYear
Logfile = dtmThisYear & "年" & dtmThisMonth & "月"

'设置日期
Const CONVERT_TO_LOCAL_TIME = True
Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")
Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")
DateToCheck = CDate(tmToday)
dtmStartDate.SetVarDate DateToCheck, CONVERT_TO_LOCAL_TIME

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

'写文本文件
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("E:\files\PrintLog\" & Logfile & ".txt", ForAppending, True)
For Each objService in colLoggedEvents
objTextFile.WriteLine(objService.ComputerName & vbTab & objService.Message & vbTab & objService.RecordNumber & vbTab & Mid(objService.TimeWritten,1,4) & "/" & Mid(objService.TimeWritten,5,2) & "/" & Mid(objService.TimeWritten,7,2) & vbTab & Mid(objService.TimeWritten,9,2) & ":" & Mid(objService.TimeWritten,11,2) & ":" & Mid(objService.TimeWritten,13,2) & vbTab & objService.User)
Next
objTextFile.Close

未命名.jpg (29.34 KB, 下载次数: 32)

作者: shayulei 时间: 2008-9-26 09:26
问题发现，日志里用Unicode 格式的，而VBS输出是ANSI格式的，请问怎么让VBS输出Unicode格式？

作者: shayulei 时间: 2008-9-27 08:28
已解决
Set objTextFile = objFSO.OpenTextFile _
("E:\files\PrintLog\" & Logfile & ".txt", ForAppending, True, -1)

欢迎光临无忧启动论坛 (http://bbs.c3.wuyou.net/)