By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,009 Members | 1,767 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,009 IT Pros & Developers. It's quick & easy.

VBscript to delete games

P: 5
Can anyone debug this code? Please.... It doesn't seem to work.

Expand|Select|Wrap|Line Numbers
  1. dim strExcludedPC
  2.  
  3. ServerFileSave="\\S06\User Area\Save\"
  4. strComputer = "."
  5. ctr=0
  6.  
  7. arExcludedPCs=Array("S06-ADMIN-01","PC-001","PC-002") 
  8.  
  9. Set objNetwork = Wscript.CreateObject("Wscript.Network")
  10. objComputerName = objNetwork.ComputerName
  11.  
  12. '===Check for computers that are excluded, then quit script===
  13. for Each strExcludedPC in arExcludedPCs
  14.     if objComputerName=strExcludedPC then
  15.         wscript.quit
  16.     end if
  17. Next
  18.  
  19. Set objWMIService = GetObject("winmgmts:" _
  20.  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  21.  
  22. Set colFiles = objWMIService.ExecQuery _
  23.  ("SELECT * FROM CIM_DataFile WHERE " _
  24.     & "FileName='bounce' AND Extension='exe' OR " _
  25.     & "FileName='bou' AND Extension='exe' OR " _
  26.     & "FileName='scrabout' AND Extension='exe' OR " _
  27.     & "FileName='ttw' AND Extension='exe' OR " _
  28.     & "FileName='texttwist' AND Extension='exe' OR " _
  29.     & "FileName='hangaroo' AND Extension='exe' OR " _
  30.     & "FileName='hangman' AND Extension='exe' OR " _
  31.     & "FileName='same' AND Extension='exe' OR " _
  32.     & "FileName='zuma' AND Extension='exe' OR " _
  33.     & "FileName='zuma deluxe' AND Extension='exe' OR " _
  34.     & "FileName='zuma deluxe' AND Extension='zip' OR " _
  35.     & "FileName='bookworm' AND Extension='exe' OR " _
  36.     & "FileName='pyramid' AND Extension='exe' OR " _
  37.     & "FileName='dynomite' AND Extension='exe' OR " _
  38.     & "FileName='riveriqgame' AND Extension='exe' OR " _
  39.     & "FileName='ra2' AND Extension='exe' OR " _
  40.     & "FileName='game' AND Extension='exe' OR " _
  41.     & "FileName='collapse' AND Extension='exe' OR " _
  42.     & "FileName='arcanoid' AND Extension='exe' OR " _
  43.     & "FileName='ptanks' AND Extension='exe' OR " _
  44.     & "FileName='feedingfrenzy' AND Extension='exe' OR " _
  45.     & "FileName='feedingfrenzy' AND Extension='zip' OR " _
  46.     & "FileName='scrabble' AND Extension='exe' OR " _
  47.     & "FileName='pool' AND Extension='exe' OR " _
  48.     & "FileName='blocks' AND Extension='exe' OR " _
  49.     & "FileName='allout' AND Extension='exe' OR " _
  50.     & "FileName='winamp' AND Extension='exe' OR " _
  51.     & "FileName='milyonaryo' AND Extension='exe' OR " _
  52.     & "FileName='tumblebugs' AND Extension='exe' OR " _
  53.     & "FileName='bob' AND Extension='exe' OR " _
  54.     & "FileName='bob' AND Extension='rwg' OR " _
  55.     & "FileName='MysteryCaseFiles' AND Extension='rwg' OR " _
  56.     & "FileName='PrimeSuspects' AND Extension='rwg' OR " _
  57.     & "Extension='mp3' OR Extension='mp4' or Extension='mpeg' OR Extension='wma'")
  58.  
  59.  
  60. '===Check if files found===
  61. For Each objFile in colFiles
  62.    ctr=ctr+1
  63. Next
  64.  
  65. '===Quit if no files found===
  66. if ctr=0 then
  67.     WScript.Quit
  68. end if
  69.  
  70. '===else write the text file==================================================================> games found
  71. objUserName = objNetwork.UserName
  72. mySaveFile="C:\" & objComputerName & ".txt"
  73.  
  74. Set fs = CreateObject("Scripting.FileSystemObject")
  75.  
  76. '===if server save folder does not exist, quit program===
  77. if NOT fs.FolderExists(ServerFileSave) then
  78. '======    msgbox "folder does not exist"
  79.     WScript.Quit
  80. end if
  81.  
  82. '===else determine if for appending or new create===
  83. if fs.FileExists(ServerFileSave & objComputerName & ".txt") then
  84.      Set myScriptFile = fs.OpenTextFile(mySaveFile, 8, True)
  85. else
  86.      Set myScriptFile = fs.CreateTextFile(mySaveFile, True)
  87. end if
  88.  
  89.  myScriptFile.WriteLine("-----------------------------------------------------------")
  90.  myScriptFile.WriteLine("The Network Administrator")
  91.  myScriptFile.WriteLine("Games and music files found at " & objComputerName & "@" & objUserName)
  92.  myScriptFile.WriteLine("Date: " & date() & "    Time: " & Time())
  93.  myScriptFile.WriteLine("===========================================================")
  94.  myScriptFile.WriteLine("NOTE: The following files are prohibited from our network")
  95.  myScriptFile.WriteLine("      and will be deleted automatically:")
  96.  myScriptFile.WriteLine("")
  97.  
  98.  
  99. '===Delete the files found===
  100. For Each objFile in colFiles
  101.  objFile.Delete
  102.  myScriptFile.WriteLine(objFile.Name)
  103.  ctr=ctr+1
  104. Next
  105.  
  106.    myScriptFile.WriteLine("")
  107.    myScriptFile.Close
  108.  
  109. '===Copy listing file to server===
  110. fs.CopyFile mySaveFile, ServerFileSave
  111. 'fs.DeleteFile mySaveFile (do not delete save files)
  112.  
  113. '===if games found, open txt file as warning to the user===        
  114. Set WshShell = WScript.CreateObject("WScript.Shell")
  115. WshShell.Run mySaveFile
  116.  
  117.  
  118. '    & "FileName='sol' AND Extension='lnk' OR " _
  119. '    & "FileName='freecell' AND Extension='lnk' OR " _
  120. '    & "FileName='winmine' AND Extension='lnk' OR " _
  121. '    & "FileName='msheart' AND Extension='lnk' OR " _
  122. '    & "FileName='pinball' AND Extension='lnk' OR " _
  123.  
  124.  
  125.  
  126.  
  127. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  128. Function CheckTrend()
  129.  
  130. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  131.     strComputer = "."
  132.     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  133.  
  134.     Set colFiles2 = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE FileName='lpt$vpn'")
  135.  
  136.     '===Check if files found===
  137.     For Each objFile in colFiles2
  138.        ctr=ctr+1
  139.     Next
  140.  
  141.     '===Quit if no files found===
  142.     if ctr=0 then
  143.      myScriptFile.WriteLine("No TrendMicro virus pattern found!!!")
  144.     end if
  145.  
  146.     Dim fso, f
  147.     Set fso = CreateObject("Scripting.FileSystemObject")
  148.  
  149.     '===Write files found===
  150.     For Each objFile in colFiles2
  151.      myScriptFile.WriteLine(objFile.Name)
  152.      Set f = fso.GetFile(objFile.Name)
  153.      myScriptFile.WriteLine("   date created: " & f.DateCreated)
  154.      myScriptFile.WriteLine("")
  155.      ctr=ctr+1
  156.     Next
  157.  
  158. End Function
Sep 12 '07 #1
Share this Question
Share on Google+
1 Reply


Expert 5K+
P: 8,434
Can you give us some idea of what the problem is? Or to put it another way, what does "doesn't seem to work" mean?
Sep 12 '07 #2

Post your reply

Sign in to post your reply or Sign up for a free account.