批处理之家 » VBS求助&讨论 » VBS 有没有不用FSO 的变量容器存储TXT所有内容

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

返回列表发帖

Rank: 2

帖子: 65
积分: 100
技术: 0
捐助: 0
注册时间: 2011-8-3

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2013-4-9 18:08 | 只看该作者

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

本帖最后由 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 ..求指教...

Rank: 1

帖子: 38
积分: 52
技术: 1
捐助: 0
注册时间: 2012-11-24

2楼

发表于 2013-4-10 21:44 | 只看该作者

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

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

nevermore

Rank: 2

帖子: 65
积分: 100
技术: 0
捐助: 0
注册时间: 2011-8-3

3楼

发表于 2013-4-10 23:26 | 只看该作者

能给点代码么..

Rank: 6 Rank: 6

帖子: 1048
积分: 1549
技术: 112
捐助: 0
注册时间: 2010-4-30

4楼

发表于 2013-4-11 11:41 | 只看该作者

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

把处理工作留到后面

QQ 20147578

Rank: 2

帖子: 65
积分: 100
技术: 0
捐助: 0
注册时间: 2011-8-3

5楼

发表于 2013-4-12 01:48 | 只看该作者

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

Rank: 2

帖子: 65
积分: 100
技术: 0
捐助: 0
注册时间: 2011-8-3

6楼

发表于 2013-4-12 01:49 | 只看该作者

回复 2# ShadowFiend

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

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

7楼

发表于 2013-4-12 04:27 | 只看该作者

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

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 1

帖子: 38
积分: 52
技术: 1
捐助: 0
注册时间: 2012-11-24

8楼

发表于 2013-4-12 13:12 | 只看该作者

本帖最后由 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
复制代码

nevermore