No technical depth at all — using FSO to analyze which EXEs a user has used recently - China DOS Union Forum

It has comments, so there's no need to explain it, right? This is mainly for newbies learning FSO. Actually, when you have a shell, analyzing what programs the user has accessed recently and which programs they use most often is still quite helpful.


'Automatically call cscript to start the script
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("Folder to analyze:",WScript.ScriptName,"D:\"))
Set oOutTxt=FSO.CreateTextFile("Recently accessed exe.txt",1)
EnumFolders(oFolder)
oOutTxt.Close

'Procedure for traversing folders, recursive
Sub EnumFolders(oTargetFolder)
For Each oSubFolder In oTargetFolder.SubFolders
	'WScript.Echo oSubFolder
	MostRecentExeFile(oSubFolder)
	EnumFolders(oSubFolder)
Next
End Sub

'Procedure for getting the most recently accessed 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	'Prevent the case of folders that contain no exe
If (p<0.1 And MostRecentExe<>"") Then	'Conditions: 1. exe files account for less than 10% of all files. Some folders are just green portable tools, and getting only one result out of them is meaningless. It's more interesting to analyze folders like Office. 2. Prevent cases where some folders contain no exe
	WScript.Echo MostRecentExe
	oOutTxt.WriteLine MostRecentExe & Chr(9) & CDate(MostRecent)
End If

End Sub

Floor1　electronixtar	Posted 2006-12-25 12:19
铂金会员　Posts 2,672　Credits 7,493
It has comments, so there's no need to explain it, right? This is mainly for newbies learning FSO. Actually, when you have a shell, analyzing what programs the user has accessed recently and which programs they use most often is still quite helpful. 'Automatically call cscript to start the script 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("Folder to analyze:",WScript.ScriptName,"D:\")) Set oOutTxt=FSO.CreateTextFile("Recently accessed exe.txt",1) EnumFolders(oFolder) oOutTxt.Close 'Procedure for traversing folders, recursive Sub EnumFolders(oTargetFolder) For Each oSubFolder In oTargetFolder.SubFolders 'WScript.Echo oSubFolder MostRecentExeFile(oSubFolder) EnumFolders(oSubFolder) Next End Sub 'Procedure for getting the most recently accessed 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 'Prevent the case of folders that contain no exe If (p<0.1 And MostRecentExe<>"") Then 'Conditions: 1. exe files account for less than 10% of all files. Some folders are just green portable tools, and getting only one result out of them is meaningless. It's more interesting to analyze folders like Office. 2. Prevent cases where some folders contain no exe WScript.Echo MostRecentExe oOutTxt.WriteLine MostRecentExe & Chr(9) & CDate(MostRecent) End If End Sub

Floor2　redtek	Posted 2006-12-25 21:44
金牌会员　Posts 1,147　Credits 2,902
Super bump~~~

Floor3　ccwan	Posted 2006-12-25 21:54
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
I'll bump it too~ :）

Floor4　voiL	Posted 2006-12-25 22:06
中级用户　Posts 189　Credits 384
I'll come help bump it too, hey-yo hehe... Brother, your VBS is really good, learned quite a lot more stuff again... hehe...

Floor5　jmz573515	Posted 2007-02-11 22:28
银牌会员　Posts 464　Credits 1,212
Good stuff

Floor6　anqing	Posted 2007-02-11 22:32
高级用户　Posts 413　Credits 859
Bumping this, but I can't understand it

Floor7　minmin888	Posted 2007-05-07 19:11
初级用户　Posts 62　Credits 127
Learning

Floor8　sonicandy	Posted 2007-05-07 19:20
中级用户　Posts 91　Credits 273
C:\test.vbs(28, 1) Microsoft VBScript runtime error: Permission denied

Floor9　stornager	Posted 2007-05-07 20:41
中级用户　Posts 131　Credits 328
Learning from the OP, and learning VBS well.

Floor10　dslz666	Posted 2008-03-23 23:28
中级用户　Posts 117　Credits 233
I don't understand VBS at all. Need to learn from the OP