没技术含量的——FSO分析用户最近使用了哪些exe - 中国DOS联盟论坛

有注释，就不用解释了吧，主要给新手学习FSO的。其实当你有一个shell的时候，分析下用户最近访问了什么程序，最喜欢用什么程序，还是很有帮助的。


'自动调用 cscript 来启动脚本
set oSh=CreateObject("WScript.Shell")
If lcase(right(WScript.FullName,11))="wscript.exe" Then 
	oSh.Run "cmd /ccscript //NoLogo //e:vbscript " & WScript.ScriptFullName
	WScript.Quit
End If

Set FSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = FSO.GetFolder(Inputbox("要分析的文件夹：",WScript.ScriptName,"D:\"))
Set oOutTxt=FSO.CreateTextFile("最近访问的exe.txt",1)
EnumFolders(oFolder)
oOutTxt.Close

'遍历文件夹的过程，递归
Sub EnumFolders(oTargetFolder)
For Each oSubFolder In oTargetFolder.SubFolders
	'WScript.Echo oSubFolder
	MostRecentExeFile(oSubFolder)
	EnumFolders(oSubFolder)
Next
End Sub

'获得最近访问的exe的过程。
Sub MostRecentExeFile(oTargetFolder)
Dim a,i,MostRecent,MostRecentExe

For Each oFile In oTargetFolder.Files
	If Right(oFile.Name,3)="exe" Then
		i=i+1
		CurrIndex=CurrIndex+1
		If CCur(oFile.DateLastAccessed) > MostRecent Then
			MostRecent=CCur(oFile.DateLastAccessed)
			MostRecentExe=oFile
		End If
	End If
	a=a+1
Next
If i> 0 Then p=i/a	'防止没有包含exe的文件夹的情况
If (p<0.1 And MostRecentExe<>"") Then	'条件：1. exe文件占所有文件的10%以下。有的文件夹是绿色小软件，只分析出来一个没有意思。要分析想Office那样的文件夹猜有意思2. 防止有的文件夹不包含exe
	WScript.Echo MostRecentExe
	oOutTxt.WriteLine MostRecentExe & Chr(9) & CDate(MostRecent)
End If

End Sub

第1楼　electronixtar	发表于 2006-12-25 12:19
铂金会员　发帖 2,672　积分 7,493
没技术含量的——FSO分析用户最近使用了哪些exe 有注释，就不用解释了吧，主要给新手学习FSO的。其实当你有一个shell的时候，分析下用户最近访问了什么程序，最喜欢用什么程序，还是很有帮助的。 '自动调用 cscript 来启动脚本 set oSh=CreateObject("WScript.Shell") If lcase(right(WScript.FullName,11))="wscript.exe" Then oSh.Run "cmd /ccscript //NoLogo //e:vbscript " & WScript.ScriptFullName WScript.Quit End If Set FSO = CreateObject("Scripting.FileSystemObject") Set oFolder = FSO.GetFolder(Inputbox("要分析的文件夹：",WScript.ScriptName,"D:\")) Set oOutTxt=FSO.CreateTextFile("最近访问的exe.txt",1) EnumFolders(oFolder) oOutTxt.Close '遍历文件夹的过程，递归 Sub EnumFolders(oTargetFolder) For Each oSubFolder In oTargetFolder.SubFolders 'WScript.Echo oSubFolder MostRecentExeFile(oSubFolder) EnumFolders(oSubFolder) Next End Sub '获得最近访问的exe的过程。 Sub MostRecentExeFile(oTargetFolder) Dim a,i,MostRecent,MostRecentExe For Each oFile In oTargetFolder.Files If Right(oFile.Name,3)="exe" Then i=i+1 CurrIndex=CurrIndex+1 If CCur(oFile.DateLastAccessed) > MostRecent Then MostRecent=CCur(oFile.DateLastAccessed) MostRecentExe=oFile End If End If a=a+1 Next If i> 0 Then p=i/a '防止没有包含exe的文件夹的情况 If (p<0.1 And MostRecentExe<>"") Then '条件：1. exe文件占所有文件的10%以下。有的文件夹是绿色小软件，只分析出来一个没有意思。要分析想Office那样的文件夹猜有意思2. 防止有的文件夹不包含exe WScript.Echo MostRecentExe oOutTxt.WriteLine MostRecentExe & Chr(9) & CDate(MostRecent) End If End Sub

第2楼　redtek	发表于 2006-12-25 21:44
金牌会员　发帖 1,147　积分 2,902
超级顶～～～

第3楼　ccwan	发表于 2006-12-25 21:54
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
我也接着顶～：）

第4楼　voiL	发表于 2006-12-25 22:06
中级用户　发帖 189　积分 384
我也来扛扛,嘿哟呵呵... 兄的VBS很好,又学到了不少东东...嘿嘿...

第5楼　jmz573515	发表于 2007-02-11 22:28
银牌会员　发帖 464　积分 1,212
好东西

第6楼　anqing	发表于 2007-02-11 22:32
高级用户　发帖 413　积分 859
顶一下，但看不懂

第7楼　minmin888	发表于 2007-05-07 19:11
初级用户　发帖 62　积分 127
学习中!

第8楼　sonicandy	发表于 2007-05-07 19:20
中级用户　发帖 91　积分 273
C:\test.vbs(28, 1) Microsoft VBScript 运行时错误: 没有权限

第9楼　stornager	发表于 2007-05-07 20:41
中级用户　发帖 131　积分 328
向楼主学习，学好vbs。

第10楼　dslz666	发表于 2008-03-23 23:28
中级用户　发帖 117　积分 233
偶对VBS一点都不懂。要向楼主学习