Expand|Select|Wrap|Line Numbers
- dim strExcludedPC
- ServerFileSave="\\S06-admin-06\User Area\Save\"
- strComputer = "."
- ctr=0
- arExcludedPCs=Array("PC1", "PC2")
- Set objNetwork = Wscript.CreateObject("Wscript.Network")
- objComputerName = objNetwork.ComputerName
- '===Check for computers that are excluded, then quit script===
- for Each strExcludedPC in arExcludedPCs
- if objComputerName=strExcludedPC then
- wscript.quit
- end if
- Next
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set colFiles = objWMIService.ExecQuery _
- ("SELECT * FROM CIM_DataFile WHERE " _
- & "FileName='bounce' AND Extension='exe' OR " _
- & "FileName='avseq1' AND Extension='dat' OR " _
- & "FileName='zagu' AND Extension='exe' OR " _
- & "FileName='zagu1' AND Extension='exe' OR " _
- & "FileName='zagu2' AND Extension='exe' OR " _
- & "FileName='zagu3' AND Extension='exe' OR " _
- & "FileName='MCFHuntsville' AND Extension='exe' OR " _
- & "FileName='picachu' AND Extension='exe' OR " _
- & "FileName='fight9' AND Extension='exe' OR " _
- & "FileName='unfolding' AND Extension='exe' OR " _
- & "FileName='wackywordsearch' AND Extension='exe' OR " _
- & "FileName='sudoku' AND Extension='exe' OR " _
- & "FileName='gridlock' AND Extension='exe' OR " _
- & "FileName='cubedelic' AND Extension='exe' OR " _
- & "FileName='magnetism' AND Extension='exe' OR " _
- & "FileName='plumber' AND Extension='exe' OR " _
- & "FileName='simon' AND Extension='exe' OR " _
- & "FileName='plumber2' AND Extension='exe' OR " _
- & "FileName='millionaire' AND Extension='exe' OR " _
- & "FileName='xraye' AND Extension='exe' OR " _
- & "FileName='Flash Games' AND Extension='exe' OR " _
- & "FileName='acad' AND Extension='exe' OR " _
- & "FileName='bou' AND Extension='exe' OR " _
- & "FileName='scrabout' AND Extension='exe' OR " _
- & "FileName='ttw' AND Extension='exe' OR " _
- & "FileName='texttwist' AND Extension='exe' OR " _
- & "FileName='hangaroo' AND Extension='exe' OR " _
- & "FileName='hangman' AND Extension='exe' OR " _
- & "FileName='same' AND Extension='exe' OR " _
- & "FileName='zuma' AND Extension='exe' OR " _
- & "FileName='zuma deluxe' AND Extension='exe' OR " _
- & "FileName='zuma deluxe' AND Extension='zip' OR " _
- & "FileName='bookworm' AND Extension='exe' OR " _
- & "FileName='BookwormAdventures' AND Extension='exe' OR " _
- & "FileName='BookWorm Adventures Deluxe From GameHouse By TFT-TEAM' AND Extension='exe' OR " _
- & "FileName='pyramid' AND Extension='exe' OR " _
- & "FileName='dynomite' AND Extension='exe' OR " _
- & "FileName='riveriqgame' AND Extension='exe' OR " _
- & "FileName='ra2' AND Extension='exe' OR " _
- & "FileName='game' AND Extension='exe' OR " _
- & "FileName='collapse' AND Extension='exe' OR " _
- & "FileName='arcanoid' AND Extension='exe' OR " _
- & "FileName='ptanks' AND Extension='exe' OR " _
- & "FileName='feedingfrenzy' AND Extension='exe' OR " _
- & "FileName='feedingfrenzy' AND Extension='zip' OR " _
- & "FileName='scrabble' AND Extension='exe' OR " _
- & "FileName='pool' AND Extension='exe' OR " _
- & "FileName='blocks' AND Extension='exe' OR " _
- & "FileName='allout' AND Extension='exe' OR " _
- & "FileName='winamp' AND Extension='exe' OR " _
- & "FileName='milyonaryo' AND Extension='exe' OR " _
- & "FileName='tumblebugs' AND Extension='exe' OR " _
- & "FileName='bob' AND Extension='exe' OR " _
- & "FileName='bob' AND Extension='rwg' OR " _
- & "FileName='MysteryCaseFiles' AND Extension='rwg' OR " _
- & "FileName='PrimeSuspects' AND Extension='rwg' OR " _
- & "Extension='mp3' OR Extension='mp4' or Extension='mpeg' OR Extension='wma'")
- '===Check if files found===
- For Each objFile in colFiles
- ctr=ctr+1
- Next
- '===Quit if no files found===
- if ctr=0 then
- WScript.Quit
- end if
- '===else write the text file==================================================================> games found
- objUserName = objNetwork.UserName
- mySaveFile="C:\" & objComputerName & ".txt"
- Set fs = CreateObject("Scripting.FileSystemObject")
- '===if server save folder does not exist, quit program===
- if NOT fs.FolderExists(ServerFileSave) then
- '====== msgbox "folder does not exist"
- WScript.Quit
- end if
- '===else determine if for appending or new create===
- if fs.FileExists(ServerFileSave & objComputerName & ".txt") then
- Set myScriptFile = fs.OpenTextFile(mySaveFile, 8, True)
- else
- Set myScriptFile = fs.CreateTextFile(mySaveFile, True)
- end if
- myScriptFile.WriteLine("-----------------------------------------------------------")
- myScriptFile.WriteLine("The Network Administrator")
- myScriptFile.WriteLine("Games and music files found at " & objComputerName & "@" & objUserName)
- myScriptFile.WriteLine("Date: " & date() & " Time: " & Time())
- myScriptFile.WriteLine("===========================================================")
- myScriptFile.WriteLine("NOTE: The following files are prohibited from our network")
- myScriptFile.WriteLine(" and will be deleted automatically:")
- myScriptFile.WriteLine("")
- '===Delete the files found===
- For Each objFile in colFiles
- objFile.Delete
- myScriptFile.WriteLine(objFile.Name)
- ctr=ctr+1
- Next
- myScriptFile.WriteLine("")
- myScriptFile.Close
- '===Copy listing file to server===
- fs.CopyFile mySaveFile, ServerFileSave
- 'fs.DeleteFile mySaveFile (do not delete save files)
- '===if games found, open txt file as warning to the user===
- Set WshShell = WScript.CreateObject("WScript.Shell")
- WshShell.Run mySaveFile
- ' & "FileName='sol' AND Extension='lnk' OR " _
- ' & "FileName='freecell' AND Extension='lnk' OR " _
- ' & "FileName='winmine' AND Extension='lnk' OR " _
- ' & "FileName='msheart' AND Extension='lnk' OR " _
- ' & "FileName='pinball' AND Extension='lnk' OR " _
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Function CheckTrend()
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set colFiles2 = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE FileName='lpt$vpn'")
- '===Check if files found===
- For Each objFile in colFiles2
- ctr=ctr+1
- Next
- '===Quit if no files found===
- if ctr=0 then
- myScriptFile.WriteLine("No TrendMicro virus pattern found!!!")
- end if
- Dim fso, f
- Set fso = CreateObject("Scripting.FileSystemObject")
- '===Write files found===
- For Each objFile in colFiles2
- myScriptFile.WriteLine(objFile.Name)
- Set f = fso.GetFile(objFile.Name)
- myScriptFile.WriteLine(" date created: " & f.DateCreated)
- myScriptFile.WriteLine("")
- ctr=ctr+1
- Next
- End Function