VBS 有没有不用FSO 的变量容器存储TXT所有内容

newfish · 发表于 2013-4-9 18:08:24

本帖最后由 newfish 于 2013-4-12 01:47 编辑

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent WHERE Logfile = 'Security' and EventCode='540' ")
dim strm
For each objEvent in colEvents
strm = objEvent.Message ' 这一句出错, 只获取的到一行,然后报错.. 但是我直接用objEvent.Message.readline 又报错....
do until mstr.atendofstream
If instr(mstr.ReadLine,"用户名") <>0 then
wscript.echo mstr.ReadLine
end if
loop
Next

复制代码

但是用FSO的话又不能load " objEvent.Message "

不熟悉VBS ..求指教...

ShadowFiend · 发表于 2013-4-10 21:44:01

可以把指针移动到TXT文件尾部，然后看最后读取就可以。

直接运行是比较占内存。所以添加wscript.sleep 100 可以缓解一下

newfish · 发表于 2013-4-10 23:26:58

能给点代码么..

czjt1234 · 发表于 2013-4-11 11:41:27

每隔一定时间，比如1小时，保存一个文件

把处理工作留到后面

newfish · 发表于 2013-4-12 01:48:35

回复 4# czjt1234 我重新编辑了帖子和问题...求指教

newfish · 发表于 2013-4-12 01:49:03

回复 2# ShadowFiend

我重新编辑了帖子和问题. 求指教

CrLf · 发表于 2013-4-12 04:27:41

到底是 strm 还是 mstr？疑似笔误
还有，如果 objEvent.Message 是对象，需要用 set

ShadowFiend · 发表于 2013-4-12 13:12:44

本帖最后由 ShadowFiend 于 2013-4-12 13:13 编辑

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent WHERE Logfile = 'Security' and EventCode='540' ")
Dim str, objEvent
For each objEvent in colEvents
str = objEvent.Message ' 这一句出错, 只获取的到一行,然后报错.. 但是我直接用objEvent.Message.readline 又报错....
If instr(str,"用户名")<>0 then
WScript.Echo Mid(str, instr(str,"用户名"))
End If
Next

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] VBS 有没有不用FSO 的变量容器存储TXT所有内容