|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『楼 主』:
没技术含量的——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
|
|
 2006-12-25 12:19 |
|
|
redtek
金牌会员
积分 2902
发帖 1147
注册 2006-9-21
状态 离线
|
『第
2 楼』:
超级顶～～～
|
Redtek，一个永远在网上流浪的人……
_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._ |
|
|
2006-12-25 21:44 |
|
|
ccwan
金牌会员
积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
|
『第
3 楼』:
我也接着顶～：）
|
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。 |
|
|
2006-12-25 21:54 |
|
|
voiL
中级用户
积分 384
发帖 189
注册 2005-10-19
状态 离线
|
『第
4 楼』:
我也来扛扛,嘿哟呵呵...
兄的VBS很好,又学到了不少东东...嘿嘿...
|
|
|
2006-12-25 22:06 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
|
|
2007-2-11 22:28 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
|
|
2007-2-11 22:32 |
|
|
minmin888
初级用户
积分 127
发帖 62
注册 2007-4-19
状态 离线
|
|
|
2007-5-7 19:11 |
|
|
sonicandy
中级用户
积分 273
发帖 91
注册 2007-5-7
状态 离线
|
『第
8 楼』:
C:\test.vbs(28, 1) Microsoft VBScript 运行时错误: 没有权限
|
|
|
2007-5-7 19:20 |
|
|
stornager
中级用户
scriptlover
积分 328
发帖 131
注册 2007-3-25
状态 离线
|
『第
9 楼』:
向楼主学习，学好vbs。
|
scriptlover
Be with script forever!! |
|
|
2007-5-7 20:41 |
|
|
dslz666
中级用户
积分 233
发帖 117
注册 2007-11-28
状态 离线
|
『第
10 楼』:
偶对VBS一点都不懂。要向楼主学习
|
|
|
2008-3-23 23:28 |
|
