home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 February / PCWELT_2_2006.ISO / pcwsoft / pcwKillMediaPlayer.z.exe / pcwKillMediaPlayer.vbs
Encoding:
Text File  |  2005-11-28  |  36.0 KB  |  713 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set umgebung=MyShell.Environment("PROCESS")
  4. On Error Resume Next
  5. windir=umgebung("windir")
  6. userprofile=umgebung("userprofile")
  7. allusersprofile=umgebung("allusersprofile")
  8.  
  9. NT = MyShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
  10. Programs = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
  11. dllcache = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCDllCacheDir")
  12.  
  13.  
  14. If dllcache = "" Then
  15.     dllcache = windir & "\System32\dllcache"
  16. End If
  17. If Right(dllcache, 1) = "\" Then dllcache = Mid(dllcache, 1, Len(dllcache)-1)
  18.  
  19. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmp.BAT", 2, True)
  20. If not NT="" Then
  21.     Killer.Writeline "Set AllowAllPaths = True"
  22. End If
  23. if (myfiles.FileExists(windir & "\$NTUNINSTALLQ828026$\WMPCORE.DLL")) Then
  24.     Killer.Writeline "del " & chr(34) & windir & "\$NTUNINSTALLQ828026$\WMPCORE.DLL" & chr(34)
  25. End If
  26. if (myfiles.FileExists( windir & "\HELP\PLYR_ERR.CHM")) Then
  27.     Killer.Writeline "del " & chr(34) & windir & "\HELP\PLYR_ERR.CHM" & chr(34)
  28. End If
  29. if (myfiles.FileExists(windir & "\HELP\WMPLAYER.CHM")) Then
  30.     Killer.Writeline "del " & chr(34) & windir & "\HELP\WMPLAYER.CHM" & chr(34) 
  31. End If
  32. if (myfiles.FileExists(windir & "\HELP\WMPLAY.CHM")) Then
  33.     Killer.Writeline "del " & chr(34) & windir & "\HELP\WMPLAY.CHM" & chr(34) 
  34. End If
  35. if (myfiles.FileExists(windir & "\INF\DRM.INF")) Then
  36.     Killer.Writeline "del " & chr(34) & windir & "\INF\DRM.INF" & chr(34)
  37. End If
  38. if (myfiles.FileExists(windir & "\INF\DRM.PNF")) Then
  39.     Killer.Writeline "del " & chr(34) & windir & "\INF\DRM.PNF" & chr(34)
  40. End If
  41. if (myfiles.FileExists(windir & "\INF\MYMUSIC.INF")) Then
  42.     Killer.Writeline "del " & chr(34) & windir & "\INF\MYMUSIC.INF" & chr(34)
  43. End If
  44. if (myfiles.FileExists(windir & "\INF\SKINS.INF")) Then
  45.     Killer.Writeline "del " & chr(34) & windir & "\INF\SKINS.INF" & chr(34)
  46. End If
  47. if (myfiles.FileExists(windir & "\INF\UNREGMP2.EXE")) Then
  48.     Killer.Writeline "del " & chr(34) & windir & "\INF\UNREGMP2.EXE" & chr(34)
  49. End If
  50. if (myfiles.FileExists( windir & "\INF\WMDM.INF")) Then
  51.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMDM.INF" & chr(34)
  52. End If
  53. if (myfiles.FileExists(windir & "\INF\WMEXPACK.INF")) Then
  54.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMEXPACK.INF" & chr(34) 
  55. End If
  56. if (myfiles.FileExists(windir & "\INF\WMFSDK.INF")) Then
  57.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMFSDK.INF" & chr(34)
  58. End If
  59. if (myfiles.FileExists(windir & "\INF\WMP.INF")) Then
  60.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMP.INF" & chr(34)
  61. End If
  62. if (myfiles.FileExists(windir & "\INF\WMPLAYER.ADM")) Then
  63.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMPLAYER.ADM" & Chr(34)
  64. End If
  65. if (myfiles.FileExists(windir & "\INF\WM819639.INF")) Then
  66.     Killer.Writeline "del " & chr(34) & windir & "\INF\WM819639.INF" & chr(34)
  67. End If
  68. if (myfiles.FileExists(windir & "\INF\WMPLAYER.INF")) Then
  69.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMPLAYER.INF" & chr(34)
  70. End If
  71. if (myfiles.FileExists(windir & "\INF\WMTOUR.INF")) Then
  72.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMTOUR.INF" & chr(34)
  73. End If
  74. if (myfiles.FileExists(windir & "\INF\WMP.PNF")) Then
  75.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMP.PNF" & chr(34)
  76. End If
  77. if (myfiles.FileExists(windir & "\INF\WMPLAYER.PNF")) Then
  78.     Killer.Writeline "del " & chr(34) & windir & "\INF\WMPLAYER.PNF" & chr(34)
  79. End If
  80. If (myfiles.FileExists(windir & "\REGISTEREDPACKAGES\{44BBA855-CC51-11CF-AAFA-00AA00B6015C}\QASF.DLL")) Then
  81.     Killer.Writeline "del " & chr(34) & windir & "\REGISTEREDPACKAGES\{44BBA855-CC51-11CF-AAFA-00AA00B6015C}\QASF.DLL" & chr(34)
  82. End If
  83. if (myfiles.FileExists(windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.CAT")) Then
  84.     Killer.Writeline "del " & chr(34) & windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.CAT" & Chr(34)
  85. End If
  86. if (myfiles.FileExists(windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.INF")) Then
  87.     Killer.Writeline "del " & chr(34) & windir & "\REGISTEREDPACKAGES\{CAC24AF7-5447-4F19-9FA6-F6E6E69D395E}\WMEXPACK.INF" & chr(34)
  88. End If
  89. if (myfiles.FileExists(windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.INF")) Then
  90.     Killer.Writeline "del " & chr(34) & windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.INF" & chr(34)
  91. End If
  92. if (myfiles.FileExists(windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.CAT")) Then
  93.     Killer.Writeline "del " & chr(34) & windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.CAT" & Chr(34)
  94. End If
  95. if (myfiles.FileExists(windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.EXE")) Then
  96.     Killer.Writeline "del " & chr(34) & windir & "\RegisteredPackages\{B3C1B200-8F14-4C49-96D3-67425AD59914}\WMPLAYER.EXE" & chr(34)
  97. End If
  98. if (myfiles.FileExists(windir & "\SYSTEM32\ASFERROR.DLL")) Then
  99.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\ASFERROR.DLL" & chr(34)
  100. End If
  101. if (myfiles.FileExists(windir & "\SYSTEM32\BLACKBOX.DLL")) Then
  102.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\BLACKBOX.DLL" & chr(34)
  103. End If
  104. if (myfiles.FileExists(windir & "\SYSTEM32\CEWMDM.DLL")) Then
  105.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CEWMDM.DLL" & chr(34)
  106. End If
  107. if (myfiles.FileExists(dllcache & "\ASFERROR.DLL")) Then
  108.     Killer.Writeline "del " & chr(34) & dllcache & "\ASFERROR.DLL" & chr(34)
  109. End If
  110. if (myfiles.FileExists(dllcache & "\BLACKBOX.DLL")) Then
  111.     Killer.Writeline "del " & chr(34) & dllcache & "\BLACKBOX.DLL" & chr(34)
  112. End If
  113. if (myfiles.FileExists(dllcache & "\CEWMDM.DLL")) Then
  114.     Killer.Writeline "del " & chr(34) & dllcache & "\CEWMDM.DLL" & chr(34)
  115. End If
  116. if (myfiles.FileExists(dllcache & "\DRMCLIEN.DLL")) Then
  117.     Killer.Writeline "del " & chr(34) & dllcache & "\DRMCLIEN.DLL" & chr(34)
  118. End If
  119. if (myfiles.FileExists(dllcache & "\DRMSTOR.DLL")) Then
  120.     Killer.Writeline "del " & chr(34) & dllcache & "\DRMSTOR.DLL" & chr(34)
  121. End If
  122. if (myfiles.FileExists(dllcache & "\DRMV2CLT.DLL")) Then
  123.     Killer.Writeline "del " & chr(34) & dllcache & "\DRMV2CLT.DLL" & chr(34) 
  124. End If
  125. if (myfiles.FileExists(dllcache & "\LAPRXY.DLL")) Then
  126.     Killer.Writeline "del " & chr(34) & dllcache & "\LAPRXY.DLL" & chr(34)
  127. End If
  128. If (myfiles.FileExists(dllcache & "\LOGAGENT.EXE")) Then
  129.     Killer.Writeline "del " & chr(34) & dllcache & "\LOGAGENT.EXE" & chr(34) 
  130. End If
  131. if (myfiles.FileExists(dllcache & "\MPG4DMOD.DLL")) Then
  132.     Killer.Writeline "del " & chr(34) & dllcache & "\MPG4DMOD.DLL" & chr(34) 
  133. End If
  134. if (myfiles.FileExists(dllcache & "\MSNETOBJ.DLL")) Then
  135.     Killer.Writeline "del " & chr(34) & dllcache & "\MSNETOBJ.DLL" & chr(34)
  136. End If
  137. if (myfiles.FileExists(dllcache & "\MSPMSP.DLL")) Then
  138.     Killer.Writeline "del " & chr(34) & dllcache & "\MSPMSP.DLL" & chr(34)
  139. End If
  140. if (myfiles.FileExists(dllcache & "\MSSCP.DLL")) Then
  141.     Killer.Writeline "del " & chr(34) & dllcache & "\MSSCP.DLL" & chr(34)
  142. End If
  143. if (myfiles.FileExists(dllcache & "\MSWMDM.DLL")) Then
  144.     Killer.Writeline "del " & chr(34) & dllcache & "\MSWMDM.DLL" & chr(34)
  145. End If
  146. if (myfiles.FileExists(dllcache & "\NPDRMV2.DLL")) Then
  147.     Killer.Writeline "del " & chr(34) & dllcache & "\NPDRMV2.DLL" & chr(34)
  148. End If
  149. if (myfiles.FileExists(dllcache & "\NPWMSDRM.DLL")) Then
  150.     Killer.Writeline "del " & chr(34) & dllcache & "\NPWMSDRM.DLL" & chr(34)
  151. End If
  152. if (myfiles.FileExists(dllcache & "\QASF.DLL")) Then
  153.     Killer.Writeline "del " & chr(34) & dllcache & "\QASF.DLL" & chr(34)
  154. End If
  155. if (myfiles.FileExists(dllcache & "\SETUP_WM.EXE")) Then
  156.     Killer.Writeline "del " & chr(34) & dllcache & "\SETUP_WM.EXE" & chr(34)
  157. End If
  158. if (myfiles.FileExists(dllcache & "\UNREGMP2.EXE")) Then
  159.     Killer.Writeline "del " & chr(34) & dllcache & "\UNREGMP2.EXE" & chr(34)
  160. End If
  161. if (myfiles.FileExists(dllcache & "\WMADMOD.DLL")) Then
  162.     Killer.Writeline "del " & chr(34) & dllcache & "\WMADMOD.DLL" & chr(34)
  163. End If
  164. if (myfiles.FileExists(dllcache & "\WMADMOE.DLL")) Then
  165.     Killer.Writeline "del " & chr(34) & dllcache & "\WMADMOE.DLL" & chr(34)
  166. End If
  167. if (myfiles.FileExists(dllcache & "\WMASF.DLL")) Then
  168.     Killer.Writeline "del " & chr(34) & dllcache & "\WMASF.DLL" & chr(34)
  169. End If
  170. if (myfiles.FileExists(dllcache & "\WMDMLOG.DLL")) Then
  171.     Killer.Writeline "del " & chr(34) & dllcache & "\WMDMLOG.DLL" & chr(34)
  172. End If
  173. if (myfiles.FileExists(dllcache & "\WMDMPS.DLL")) Then
  174.     Killer.Writeline "del " & chr(34) & dllcache & "\WMDMPS.DLL" & chr(34)
  175. End If
  176. if (myfiles.FileExists(dllcache & "\WMNETMGR.DLL")) Then
  177.     Killer.Writeline "del " & chr(34) & dllcache & "\WMNETMGR.DLL" & chr(34)
  178. End If
  179. if (myfiles.FileExists(dllcache & "\WMP.DLL")) Then
  180.     Killer.Writeline "del " & chr(34) & dllcache & "\WMP.DLL" & chr(34)
  181. End If
  182. if (myfiles.FileExists(dllcache & "\WMP.OCX")) Then
  183.     Killer.Writeline "del " & chr(34) & dllcache & "\WMP.OCX" & chr(34)
  184. End If
  185. if (myfiles.FileExists(dllcache & "\WMPCD.DLL")) Then
  186.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPCD.DLL" & chr(34)
  187. End If
  188. if (myfiles.FileExists(dllcache & "\WMPCORE.DLL")) Then
  189.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPCORE.DLL" & chr(34) 
  190. End If
  191. if (myfiles.FileExists(dllcache & "\WMPDXM.DLL")) Then
  192.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPDXM.DLL" & chr(34) 
  193. End If
  194. if (myfiles.FileExists(dllcache & "\WMPLAYER.EXE")) Then
  195.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPLAYER.EXE" & chr(34) 
  196. End If
  197. if (myfiles.FileExists(dllcache & "\WMPLOC.DLL")) Then
  198.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPLOC.DLL" & chr(34)
  199. End If
  200. if (myfiles.FileExists(dllcache & "\WMPSHELL.DLL")) Then
  201.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPSHELL.DLL" & chr(34)
  202. End If
  203. if (myfiles.FileExists(dllcache & "\WMPSTUB.EXE")) Then
  204.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPSTUB.EXE" & chr(34)
  205. End If
  206. if (myfiles.FileExists(dllcache & "\WMPUI.DLL")) Then
  207.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPUI.DLL" & chr(34)
  208. End If
  209. if (myfiles.FileExists(dllcache & "\WMSDMOD.DLL")) Then
  210.     Killer.Writeline "del " & chr(34) & dllcache & "\WMSDMOD.DLL" & chr(34)  
  211. End If
  212. if (myfiles.FileExists(dllcache & "\WMVCORE.DLL")) Then
  213.     Killer.Writeline "del " & chr(34) & dllcache & "\WMVCORE.DLL" & chr(34)  
  214. End If
  215. if (myfiles.FileExists(dllcache & "\WMVDMOD.DLL")) Then
  216.     Killer.Writeline "del " & chr(34) & dllcache & "\WMVDMOD.DLL" & chr(34)  
  217. End If
  218. if (myfiles.FileExists(dllcache & "\WMPVIS.DLL")) Then
  219.     Killer.Writeline "del " & chr(34) & dllcache & "\WMPVIS.DLL" & chr(34)  
  220. End If
  221. if (myfiles.FileExists(dllcache & "\BROWSEWM.DLL")) Then
  222.     Killer.Writeline "del " & chr(34) & dllcache & "\BROWSEWM.DLL" & chr(34)  
  223. End If
  224. if (myfiles.FileExists(windir & "\SYSTEM32\DRMCLIEN.DLL")) Then
  225.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\DRMCLIEN.DLL" & chr(34)  
  226. End If
  227. if (myfiles.FileExists(windir & "\SYSTEM32\DRMSTOR.DLL")) Then
  228.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\DRMSTOR.DLL" & chr(34)  
  229. End If
  230. if (myfiles.FileExists(windir & "\SYSTEM32\DRMV2CLT.DLL")) Then
  231.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\DRMV2CLT.DLL" & chr(34)  
  232. End If
  233. if (myfiles.FileExists(windir & "\SYSTEM32\GROUPPOLICY\ADM\WMPLAYER.ADM")) Then
  234.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\GROUPPOLICY\ADM\WMPLAYER.ADM" & Chr(34)
  235. End If
  236. if (myfiles.FileExists(windir & "\SYSTEM32\LAPRXY.DLL")) Then 
  237.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\LAPRXY.DLL" & chr(34)  
  238. End If
  239. if (myfiles.FileExists(windir & "\SYSTEM32\LOGAGENT.EXE")) Then
  240.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\LOGAGENT.EXE" & chr(34)
  241. End If
  242. if (myfiles.FileExists(windir & "\SYSTEM32\MP43DMOD.DLL")) Then
  243.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MP43DMOD.DLL" & chr(34)  
  244. End If
  245. if (myfiles.FileExists(windir & "\SYSTEM32\MP4SDMOD.DLL")) Then
  246.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MP4SDMOD.DLL" & chr(34)  
  247. End If
  248. if (myfiles.FileExists(windir & "\SYSTEM32\MPG4DMOD.DLL")) Then
  249.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MPG4DMOD.DLL" & chr(34)  
  250. End If
  251. if (myfiles.FileExists(windir & "\SYSTEM32\MSNETOBJ.DLL")) Then
  252.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSNETOBJ.DLL" & chr(34)  
  253. End If
  254. if (myfiles.FileExists(windir & "\SYSTEM32\MSPMSNSV.DLL")) Then
  255.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSPMSNSV.DLL" & chr(34)  
  256. End If
  257. if (myfiles.FileExists(windir & "\SYSTEM32\MSPMSP.DLL")) Then
  258.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSPMSP.DLL" & chr(34)  
  259. End If
  260. if (myfiles.FileExists(windir & "\SYSTEM32\MSSCP.DLL")) Then
  261.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSSCP.DLL" & chr(34)  
  262. End If
  263. if (myfiles.FileExists(windir & "\SYSTEM32\MSWMDM.DLL")) Then
  264.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\MSWMDM.DLL" & chr(34)  
  265. End If
  266. if (myfiles.FileExists(windir & "\SYSTEM32\QASF.DLL")) Then
  267.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\QASF.DLL" & chr(34)  
  268. End If
  269. if (myfiles.FileExists(windir & "\SYSTEM32\WMADMOD.DLL")) Then
  270.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMADMOD.DLL" & chr(34)  
  271. End If
  272. if (myfiles.FileExists(windir & "\SYSTEM32\WMADMOE.DLL")) Then
  273.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMADMOE.DLL" & chr(34)  
  274. End If
  275. if (myfiles.FileExists(windir & "\SYSTEM32\WMASF.DLL")) Then
  276.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMASF.DLL" & chr(34)  
  277. End If
  278. if (myfiles.FileExists(windir & "\SYSTEM32\WMDMLOG.DLL")) Then
  279.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMDMLOG.DLL" & chr(34)  
  280. End If
  281. if (myfiles.FileExists(windir & "\SYSTEM32\WMDMPS.DLL")) Then
  282.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMDMPS.DLL" & chr(34)  
  283. End If
  284. if (myfiles.FileExists(windir & "\SYSTEM32\WMERROR.DLL")) Then
  285.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMERROR.DLL" & chr(34)  
  286. End If
  287. if (myfiles.FileExists(windir & "\SYSTEM32\WMIDX.DLL")) Then
  288.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMIDX.DLL" & chr(34)  
  289. End If
  290. if (myfiles.FileExists(windir & "\SYSTEM32\WMNETMGR.DLL")) Then
  291.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMNETMGR.DLL" & chr(34)  
  292. End If
  293. if (myfiles.FileExists(windir & "\SYSTEM32\WMP.DLL")) Then
  294.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMP.DLL" & chr(34)  
  295. End If
  296. if (myfiles.FileExists(windir & "\SYSTEM32\WMP.OCX")) Then
  297.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMP.OCX" & chr(34)
  298. End If
  299. if (myfiles.FileExists(windir & "\SYSTEM32\WMPASF.DLL")) Then
  300.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPASF.DLL" & chr(34)  
  301. End If
  302. if (myfiles.FileExists(windir & "\SYSTEM32\WMPCD.DLL")) Then
  303.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPCD.DLL" & chr(34)  
  304. End If
  305. if (myfiles.FileExists(windir & "\SYSTEM32\WMPCORE.DLL")) Then
  306.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPCORE.DLL" & chr(34)  
  307. End If
  308. if (myfiles.FileExists(windir & "\SYSTEM32\WMPLOC.DLL")) Then
  309.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPLOC.DLL" & chr(34)  
  310. End If
  311. if (myfiles.FileExists(windir & "\SYSTEM32\WMPNS.DLL")) Then
  312.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPNS.DLL" & chr(34)  
  313. End If
  314. if (myfiles.FileExists(windir & "\SYSTEM32\WMPSHELL.DLL")) Then
  315.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPSHELL.DLL" & chr(34)  
  316. End If
  317. if (myfiles.FileExists(windir & "\SYSTEM32\WMPUI.DLL")) Then
  318.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPUI.DLL" & chr(34)  
  319. End If
  320. if (myfiles.FileExists(windir & "\SYSTEM32\WMPSCHEME.XML")) Then
  321.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPSCHEME.XML" & Chr(34)
  322. End If
  323. if (myfiles.FileExists(windir & "\SYSTEM32\WMPSTUB.EXE")) Then
  324.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPSTUB.EXE" & chr(34)  
  325. End If
  326. if (myfiles.FileExists(windir & "\SYSTEM32\WMSDMOD.DLL")) Then  
  327.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSDMOD.DLL" & chr(34)  
  328. End If
  329. if (myfiles.FileExists(windir & "\SYSTEM32\WMSDMOE2.DLL")) Then
  330.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSDMOE2.DLL" & chr(34)  
  331. End If
  332. if (myfiles.FileExists(windir & "\SYSTEM32\WMSDMOE.DLL")) Then
  333.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSDMOE.DLL" & chr(34)  
  334. End If
  335. if (myfiles.FileExists(windir & "\SYSTEM32\WMSPDMOD.DLL")) Then
  336.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSPDMOD.DLL" & chr(34)  
  337. End If
  338. if (myfiles.FileExists(windir & "\SYSTEM32\WMSPDMOE.DLL")) Then
  339.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSPDMOE.DLL" & chr(34)  
  340. End If
  341. if (myfiles.FileExists(windir & "\SYSTEM32\WMSTREAM.DLL")) Then
  342.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMSTREAM.DLL" & chr(34)  
  343. End If
  344. if (myfiles.FileExists(windir & "\SYSTEM32\WMV8DMOD.DLL")) Then
  345.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMV8DMOD.DLL" & chr(34)  
  346. End If
  347. if (myfiles.FileExists(windir & "\SYSTEM32\WMVCORE.DLL")) Then
  348.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVCORE.DLL" & chr(34) 
  349. End If
  350. if (myfiles.FileExists(windir & "\SYSTEM32\WMVCORE2.DLL")) Then
  351.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVCORE2.DLL" & chr(34)  
  352. End If
  353. if (myfiles.FileExists(windir & "\SYSTEM32\WMVDMOD.DLL")) Then
  354.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVDMOD.DLL" & chr(34)  
  355. End If
  356. if (myfiles.FileExists(windir & "\SYSTEM32\WMVDMOE2.DLL")) Then
  357.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVDMOE2.DLL" & chr(34)
  358. End If
  359. if (myfiles.FileExists(windir & "\SYSTEM32\WMVDMOE.DLL")) Then
  360.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMVDMOE.DLL" & chr(34)   
  361. End If
  362. if (myfiles.FileExists(windir & "\SYSTEM32\WMPVIS.DLL")) Then
  363.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\WMPVIS.DLL" & chr(34)  
  364. End If
  365. if (myfiles.FileExists(windir & "\SYSTEM32\BROWSEWM.DLL")) Then
  366.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\BROWSEWM.DLL" & chr(34)  
  367. End If
  368. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMP.INF")) Then
  369.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMP.INF" & chr(34)
  370. End If
  371. If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMP.DLL")) Then
  372.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMP.DLL" & chr(34)  
  373. End If
  374. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMP.OCX")) Then
  375.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMP.OCX" & chr(34)
  376. End If
  377. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPASF.DLL")) Then
  378.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPASF.DLL" & chr(34)  
  379. End If
  380. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPCD.DLL")) Then
  381.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPCD.DLL" & chr(34)  
  382. End If
  383. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPCORE.DLL")) Then
  384.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPCORE.DLL" & chr(34)  
  385. End If
  386. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPLOC.DLL")) Then
  387.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPLOC.DLL" & chr(34)  
  388. End If
  389. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPNS.DLL")) Then
  390.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPNS.DLL" & chr(34)  
  391. End If
  392. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPSHELL.DLL")) Then
  393.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPSHELL.DLL" & chr(34)  
  394. End If
  395. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPUI.DLL")) Then
  396.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPUI.DLL" & chr(34)  
  397. End If
  398. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPSCHEME.XML")) Then
  399.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPSCHEME.XML" & Chr(34)
  400. End If
  401. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPSTUB.EXE")) Then
  402.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPSTUB.EXE" & chr(34)  
  403. End If
  404. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSDMOD.DLL")) Then  
  405.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSDMOD.DLL" & chr(34)  
  406. End If
  407. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSDMOE2.DLL")) Then
  408.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSDMOE2.DLL" & chr(34)  
  409. End If
  410. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSDMOE.DLL")) Then
  411.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSDMOE.DLL" & chr(34)  
  412. End If
  413. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSPDMOD.DLL")) Then
  414.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSPDMOD.DLL" & chr(34)  
  415. End If
  416. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSPDMOE.DLL")) Then
  417.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSPDMOE.DLL" & chr(34)  
  418. End If
  419. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMSTREAM.DLL")) Then
  420.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMSTREAM.DLL" & chr(34)  
  421. End If
  422. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMV8DMOD.DLL")) Then
  423.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMV8DMOD.DLL" & chr(34)  
  424. End If
  425. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVCORE.DLL")) Then
  426.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVCORE.DLL" & chr(34) 
  427. End If
  428. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVCORE2.DLL")) Then
  429.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVCORE2.DLL" & chr(34)  
  430. End If
  431. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVDMOD.DLL")) Then
  432.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVDMOD.DLL" & chr(34)  
  433. End If
  434. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVDMOE2.DLL")) Then
  435.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVDMOE2.DLL" & chr(34)
  436. End If
  437. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMVDMOE.DLL")) Then
  438.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMVDMOE.DLL" & chr(34)   
  439. End If
  440. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPVIS.DLL")) Then
  441.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPVIS.DLL" & chr(34)  
  442. End If
  443. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\BROWSEWM.DLL")) Then
  444.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\BROWSEWM.DLL" & chr(34)  
  445. End If
  446. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMPLAYER.EXE")) Then
  447.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMPLAYER.EXE" & chr(34)  
  448. End If
  449. If (myfiles.FileExists(windir & "\SYSTEM\ASFERROR.DLL")) Then
  450.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\ASFERROR.DLL" & chr(34)
  451. End If
  452. if (myfiles.FileExists(windir & "\SYSTEM\BLACKBOX.DLL")) Then
  453.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\BLACKBOX.DLL" & chr(34)
  454. End If
  455. if (myfiles.FileExists(windir & "\SYSTEM\CEWMDM.DLL")) Then
  456.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\CEWMDM.DLL" & chr(34)
  457. End If
  458. if (myfiles.FileExists(windir & "\SYSTEM\DRMCLIEN.DLL")) Then
  459.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\DRMCLIEN.DLL" & chr(34)  
  460. End If
  461. if (myfiles.FileExists(windir & "\SYSTEM\DRMSTOR.DLL")) Then
  462.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\DRMSTOR.DLL" & chr(34)  
  463. End If
  464. if (myfiles.FileExists(windir & "\SYSTEM\DRMV2CLT.DLL")) Then
  465.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\DRMV2CLT.DLL" & chr(34)  
  466. End If
  467. If (myfiles.FileExists(windir & "\SYSTEM\LAPRXY.DLL")) Then 
  468.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\LAPRXY.DLL" & chr(34)  
  469. End If
  470. if (myfiles.FileExists(windir & "\SYSTEM\LOGAGENT.EXE")) Then
  471.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\LOGAGENT.EXE" & chr(34)
  472. End If
  473. if (myfiles.FileExists(windir & "\SYSTEM\MP43DMOD.DLL")) Then
  474.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MP43DMOD.DLL" & chr(34)  
  475. End If
  476. if (myfiles.FileExists(windir & "\SYSTEM\MP4SDMOD.DLL")) Then
  477.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MP4SDMOD.DLL" & chr(34)  
  478. End If
  479. if (myfiles.FileExists(windir & "\SYSTEM\MPG4DMOD.DLL")) Then
  480.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MPG4DMOD.DLL" & chr(34)  
  481. End If
  482. if (myfiles.FileExists(windir & "\SYSTEM\MSNETOBJ.DLL")) Then
  483.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSNETOBJ.DLL" & chr(34)  
  484. End If
  485. if (myfiles.FileExists(windir & "\SYSTEM\MSPMSNSV.DLL")) Then
  486.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSPMSNSV.DLL" & chr(34)  
  487. End If
  488. if (myfiles.FileExists(windir & "\SYSTEM\MSPMSP.DLL")) Then
  489.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSPMSP.DLL" & chr(34)  
  490. End If
  491. if (myfiles.FileExists(windir & "\SYSTEM\MSSCP.DLL")) Then
  492.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSSCP.DLL" & chr(34)  
  493. End If
  494. if (myfiles.FileExists(windir & "\SYSTEM\MSWMDM.DLL")) Then
  495.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\MSWMDM.DLL" & chr(34)  
  496. End If
  497. if (myfiles.FileExists(windir & "\SYSTEM\QASF.DLL")) Then
  498.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\QASF.DLL" & chr(34)  
  499. End If
  500. if (myfiles.FileExists(windir & "\SYSTEM\WMADMOD.DLL")) Then
  501.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMADMOD.DLL" & chr(34)  
  502. End If
  503. if (myfiles.FileExists(windir & "\SYSTEM\WMADMOE.DLL")) Then
  504.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMADMOE.DLL" & chr(34)  
  505. End If
  506. if (myfiles.FileExists(windir & "\SYSTEM\WMASF.DLL")) Then
  507.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMASF.DLL" & chr(34)  
  508. End If
  509. if (myfiles.FileExists(windir & "\SYSTEM\WMDMLOG.DLL")) Then
  510.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMDMLOG.DLL" & chr(34)  
  511. End If
  512. if (myfiles.FileExists(windir & "\SYSTEM\WMDMPS.DLL")) Then
  513.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMDMPS.DLL" & chr(34)  
  514. End If
  515. if (myfiles.FileExists(windir & "\SYSTEM\WMERROR.DLL")) Then
  516.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMERROR.DLL" & chr(34)  
  517. End If
  518. if (myfiles.FileExists(windir & "\SYSTEM\WMIDX.DLL")) Then
  519.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMIDX.DLL" & chr(34)  
  520. End If
  521. if (myfiles.FileExists(windir & "\SYSTEM\WMNETMGR.DLL")) Then
  522.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMNETMGR.DLL" & chr(34)  
  523. End If
  524. if (myfiles.FileExists(windir & "\SYSTEM\WMP.DLL")) Then
  525.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMP.DLL" & chr(34)  
  526. End If
  527. if (myfiles.FileExists(windir & "\SYSTEM\WMP.OCX")) Then
  528.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMP.OCX" & chr(34)
  529. End If
  530. if (myfiles.FileExists(windir & "\SYSTEM\WMPASF.DLL")) Then
  531.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPASF.DLL" & chr(34)  
  532. End If
  533. if (myfiles.FileExists(windir & "\SYSTEM\WMPCD.DLL")) Then
  534.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPCD.DLL" & chr(34)  
  535. End If
  536. if (myfiles.FileExists(windir & "\SYSTEM\WMPCORE.DLL")) Then
  537.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPCORE.DLL" & chr(34)  
  538. End If
  539. if (myfiles.FileExists(windir & "\SYSTEM\WMPLOC.DLL")) Then
  540.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPLOC.DLL" & chr(34)  
  541. End If
  542. if (myfiles.FileExists(windir & "\SYSTEM\WMPNS.DLL")) Then
  543.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPNS.DLL" & chr(34)  
  544. End If
  545. if (myfiles.FileExists(windir & "\SYSTEM\WMPSHELL.DLL")) Then
  546.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPSHELL.DLL" & chr(34)  
  547. End If
  548. if (myfiles.FileExists(windir & "\SYSTEM\WMPUI.DLL")) Then
  549.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPUI.DLL" & chr(34)  
  550. End If
  551. if (myfiles.FileExists(windir & "\SYSTEM\WMPSCHEME.XML")) Then
  552.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPSCHEME.XML" & Chr(34)
  553. End If
  554. if (myfiles.FileExists(windir & "\SYSTEM\WMPSTUB.EXE")) Then
  555.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPSTUB.EXE" & chr(34)  
  556. End If
  557. if (myfiles.FileExists(windir & "\SYSTEM\WMSDMOD.DLL")) Then  
  558.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSDMOD.DLL" & chr(34)  
  559. End If
  560. if (myfiles.FileExists(windir & "\SYSTEM\WMSDMOE2.DLL")) Then
  561.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSDMOE2.DLL" & chr(34)  
  562. End If
  563. if (myfiles.FileExists(windir & "\SYSTEM\WMSDMOE.DLL")) Then
  564.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSDMOE.DLL" & chr(34)  
  565. End If
  566. if (myfiles.FileExists(windir & "\SYSTEM\WMSPDMOD.DLL")) Then
  567.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSPDMOD.DLL" & chr(34)  
  568. End If
  569. if (myfiles.FileExists(windir & "\SYSTEM\WMSPDMOE.DLL")) Then
  570.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSPDMOE.DLL" & chr(34)  
  571. End If
  572. if (myfiles.FileExists(windir & "\SYSTEM\WMSTREAM.DLL")) Then
  573.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMSTREAM.DLL" & chr(34)  
  574. End If
  575. if (myfiles.FileExists(windir & "\SYSTEM\WMV8DMOD.DLL")) Then
  576.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMV8DMOD.DLL" & chr(34)  
  577. End If
  578. if (myfiles.FileExists(windir & "\SYSTEM\WMVCORE.DLL")) Then
  579.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVCORE.DLL" & chr(34) 
  580. End If
  581. if (myfiles.FileExists(windir & "\SYSTEM\WMVCORE2.DLL")) Then
  582.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVCORE2.DLL" & chr(34)  
  583. End If
  584. if (myfiles.FileExists(windir & "\SYSTEM\WMVDMOD.DLL")) Then
  585.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVDMOD.DLL" & chr(34)  
  586. End If
  587. if (myfiles.FileExists(windir & "\SYSTEM\WMVDMOE2.DLL")) Then
  588.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVDMOE2.DLL" & chr(34)
  589. End If
  590. if (myfiles.FileExists(windir & "\SYSTEM\WMVDMOE.DLL")) Then
  591.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMVDMOE.DLL" & chr(34)   
  592. End If
  593. if (myfiles.FileExists(windir & "\SYSTEM\WMPVIS.DLL")) Then
  594.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\WMPVIS.DLL" & chr(34)  
  595. End If
  596. if (myfiles.FileExists(windir & "\SYSTEM\BROWSEWM.DLL")) Then
  597.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM\BROWSEWM.DLL" & chr(34)  
  598. End If
  599. If (myfiles.FileExists(windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMPLAYER.CAT")) Then
  600.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMPLAYER.CAT" & chr(34)  
  601. End If
  602. if (myfiles.FileExists(windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMP.CAT")) Then
  603.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\WMP.CAT" & chr(34)  
  604. End If
  605. if (myfiles.FileExists(windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\DRM.CAT")) Then
  606.     Killer.Writeline "del " & chr(34) & windir & "\SYSTEM32\CATROOT\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\DRM.CAT" & chr(34)  
  607. End If
  608. If (myfiles.FileExists(userprofile & "\Startmenⁿ\Programme\Windows Media Player.LNK")) Then
  609.     Killer.Writeline "del " & chr(34) & userprofile & "\Startmenⁿ\Programme\Windows Media Player.LNK" & chr(34)
  610. End If
  611. if (myfiles.FileExists(userprofile & "\Startmenⁿ\Programme\Zubeh÷r\Unterhaltungsmedien\Windows Media Player.LNK")) Then
  612.     Killer.Writeline "del " & chr(34) & userprofile & "\Startmenⁿ\Programme\Zubeh÷r\Unterhaltungsmedien\Windows Media Player.LNK" & chr(34)
  613. End If
  614. if (myfiles.FileExists(userprofile & "\Desktop\Windows Media Player.LNK")) Then
  615.     Killer.Writeline "del " & chr(34) & userprofile & "\Desktop\Windows Media Player.LNK" & chr(34)
  616. End If
  617. if (myfiles.FileExists(allusersprofile & "\Anwendungsdaten\Microsoft\Media Index\WMPLIBRARY_V_0_12.DB")) Then
  618.     Killer.Writeline "del " & chr(34) & allusersprofile & "\Anwendungsdaten\Microsoft\Media Index\WMPLIBRARY_V_0_12.DB" & chr(34)
  619. End If
  620. if (myfiles.FileExists(windir & "\All Users\Anwendungsdaten\Microsoft\Media Index\WMPLIBRARY_V_0_12.DB")) Then
  621.     Set alluser = MyFiles.GetFolder(windir & "\All Users\Anwendungsdaten\Microsoft\Media Index")
  622.     kurz = alluser.ShortPath
  623.     Killer.Writeline "del " & chr(34) & kurz & "\WMPLIB~1.DB" & chr(34)
  624. End If
  625. if (myfiles.FileExists(windir & "\Startmenⁿ\Programme\Windows Media Player.LNK")) Then
  626.     loesch = Myfiles.Deletefile(windir & "\Startmenⁿ\Programme\Windows Media Player.LNK", TRUE)
  627. End If
  628. if (myfiles.FileExists(windir & "Startmenⁿ\Programme\Zubeh÷r\Unterhaltungsmedien\Windows Media Player.LNK")) Then
  629.     loesch = Myfiles.Deletefile(windir & "Startmenⁿ\Programme\Zubeh÷r\Unterhaltungsmedien\Windows Media Player.LNK", TRUE)
  630. End If
  631. if (myfiles.FileExists(windir & "\Desktop\Windows Media Player.LNK")) Then
  632.     loesch = Myfiles.Deletefile(windir & "\Desktop\Windows Media Player.LNK", TRUE)
  633. End If
  634. if (myfiles.FileExists(userprofile & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK")) Then
  635.     Killer.Writeline "del " & chr(34) & userprofile & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK" & chr(34)
  636. End If
  637. if (myfiles.FileExists(windir & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK")) Then
  638.     loesch = Myfiles.Deletefile(windir & "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Windows Media Player.LNK", TRUE)
  639. End If
  640.  
  641.  
  642. hardfolder = Programs & "\Windows Media Player"
  643. Set festverz = myfiles.GetFolder(hardfolder)
  644. Set Subfolder = festverz.Subfolders
  645. For Each folder in Subfolder
  646.     Set Currentfolder = Myfiles.GetFolder(festverz & "\" & folder.name)
  647.     Set ffiles = Currentfolder.Files
  648.     ords = Currentfolder.ShortPath
  649.     For Each file in ffiles
  650.         If NT = "" Then
  651.             Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
  652.             
  653.         Else
  654.             Killer.Writeline "del " & chr(34) & Currentfolder & "\" & file.name & Chr(34)
  655.         End If
  656.     Next
  657.     If (myfiles.FolderExists(programs & "\Windows Media Player")) Then
  658.         If NT="" Then
  659.             Killer.Writeline "rd " & chr(34) & ords & chr(34)
  660.         Else
  661.             Killer.Writeline "rd " & chr(34) & Currentfolder & mm & chr(34)
  662.         End If
  663.     End If
  664. Next
  665. Set ffiles = festverz.Files
  666. For Each file in ffiles
  667.         If NT = "" Then
  668.             ords = festverz.ShortPath
  669.             Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
  670.         Else
  671.             Killer.Writeline "del " & chr(34) & festverz & "\" & file.name & Chr(34)
  672.         End if
  673. Next
  674. If (myfiles.FolderExists(programs & "\Windows Media Player")) Then
  675.     If NT="" Then
  676.         Killer.Writeline "rd " & chr(34) & ords & chr(34)
  677.     Else
  678.         Killer.Writeline "rd " & chr(34) & programs & "\Windows Media Player" & chr(34)
  679.     End If
  680. End If
  681.  
  682. Killer.Writeline "echo off"
  683. Killer.Writeline "echo Starten Sie den Rechner im abgesicherten Modus und"
  684. Killer.Writeline "echo entfernen Sie alle Registry EintrΣge die Windows Media Player"
  685. Killer.Writeline "echo oder WMP enthalten mit unserem Tool pcwRegedt.exe"
  686. Killer.close
  687.  
  688. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmp.BAT", 1, False)
  689. Do While Not Killer.AtEndOfStream
  690.      Zeile = Killer.ReadLine
  691.      Nummer = Killer.Line-1
  692. Loop
  693. Killer.close
  694. Nummer = Nummer-5
  695.  
  696. loesch = Myfiles.Deletefolder(windir & "\Help\Tours\WindowsMediaPlayer", True)
  697. loesch = Myfiles.Deletefolder(userprofile  & "\Anwendungsdaten\Microsoft\Media Player", True)
  698. loesch = Myfiles.Deletefolder(userprofile  & "\Anwendungsdaten\Microsoft\Windows Media", True)
  699. loesch = Myfiles.Deletefolder(userprofile & "\Lokale Einstellungen\Anwendungsdaten\Microsoft\Media Player", True)
  700. loesch = Myfiles.Deletefolder(userprofile & "\Lokale Einstellungen\Anwendungsdaten\Microsoft\Windows Media", True)
  701. loesch = Myfiles.Deletefolder(windir  & "\Anwendungsdaten\Microsoft\Media Player", True)
  702. loesch = Myfiles.Deletefolder(windir  & "\Anwendungsdaten\Microsoft\Windows Media", True)
  703.  
  704. If NT = "" Then
  705.     Wo = "im DOS-Modus"
  706. Else
  707.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", 1, "REG_DWORD"
  708.     Wo = "in der Wiederherstellungskonsole"
  709. End If
  710.  
  711. Ende = MsgBox("Bitte starten Sie Ihren Rechner " & Wo & " und fⁿhren Sie die Batchdatei " & windir & "\pcwKmp.BAT aus, um die restlichen " & Nummer & " Media Player-Dateien zu l÷schen.", 64, "PC-WELT Kill Media Player: Fertig")
  712.  
  713.