Új hozzászólás Aktív témák

• #19131 Steelmanus addikt WonderCSabo #19130

  Új Válasz 2011-05-10 18:37:00 #19131

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Steelmanus

  addikt

  válasz WonderCSabo #19130 üzenetére

  Persze mert en kitoroltem elotte majd ujrainditottam a gepet igy meg nem toltodott fel.
  Ez van a *.vbs fajlban:
  On Error Resume Next
  Dim wmi, fso, shell, prefetchdir, querydir, query, monevts, evt
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set shell = WScript.CreateObject("WScript.Shell")
  prefetchdir = shell.ExpandEnvironmentStrings("%windir%") & "\Prefetch"
  If fso.FolderExists(prefetchdir) Then
  fso.DeleteFile prefetchdir & "\FIREFOX.EXE*", True

  querydir = Replace(prefetchdir, "\", "\\\\")
  Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  query = "SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " & _
  "Targetinstance ISA 'CIM_DirectoryContainsFile' and " & _
  "TargetInstance.GroupComponent= " & _
  "'Win32_Directory.Name=""" & querydir & """'"
  Set monevts = wmi.ExecNotificationQuery(query)
  Do
  Set evt = monevts.NextEvent
  If fso.FolderExists(prefetchdir) Then
  fso.DeleteFile prefetchdir & "\FIREFOX.EXE*", True
  End If
  Loop
  End If

  Ez az sajat inditopultomba tettem nem az All Users-be.

Új hozzászólás Aktív témák