## Enumerate a Specific Set of Files
# Description
# Returns a list of all the files larger than 1,000,000 bytes. 
# Warning: May take a long time to complete
# VB code sample courtesy of MS Corp.    
{
	-name test VBScript
	-start 
	-stop

	main()
	Print("Returned value is: '%TG.COMMAND_RETURN%'")
}


Function main()

	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colFiles = objWMIService. ExecQuery("Select * from CIM_DataFile where FileSize > 1000000")
	
	For Each objFile in colFiles
		WCCtrl.Print objFile.Name & " -- " & objFile.FileSize
	Next

	main = 0
	
End Function