Forum Programosy

Chcę usunąć starą wersje WMM aby zainstalować nowszą. Kiedy wchodze w c/programfiles/moviemaker i usuwam cały folder to wyskakuje mi że nie może być usunięty ponieważ jest używany przez inną osobe lub program. Ale jak może być przez coś używany jak go usuwam zaraz po włączeniu kompa?
Prosze o pomoc

po pierwsze nie usuwa sie aplikacji tak jak Ty piszesz a po drugie ten program jest dosyc mocno zintegrowany z systemem wiec nie ma zapewne mozliwosci usuniecia, jesli chcesz aktualizowac sprobuj nalozyc poprostu nowa wersje i zobacz co bedzie

ok.
hehe teraz próbowałem usuwać po jesdym pliku to one wracały niewiadomo skąd
srobuje tak ja mowiles

jest poprostu mocno zintegrowany z systemem stad powracanie, byc moze sa jakies tweakery wylaczalajace czesc powiazan i wtedy mozna ale to trzeba byloby poszukac

Kod: Zaznacz wszystko

Set MyShell = CreateObject("Wscript.Shell")

Set MyFiles = CreateObject("Scripting.FileSystemObject")

Set srodowisko=MyShell.Environment("PROCESS")

On Error Resume Next

windir=srodowisko("windir")

userprofile=srodowisko("userprofile")



NT = MyShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")

Programs = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")

dllcache = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCDllCacheDir")



usun = Myfiles.Deletefolder(Programs & "\Movie Maker\MUI", True)

usun = Myfiles.Deletefolder(Programs & "\Movie Maker\TOUR", True)



If dllcache = "" Then

   dllcache = windir & "\System32\dllcache"

End If

If Right(dllcache, 1) = "\" Then dllcache = Mid(dllcache, 1, Len(dllcache)-1)



Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmm.BAT", 2, True)

If not NT="" Then

   Killer.Writeline "Set AllowAllPaths = True"

End If

If (myfiles.FileExists(dllcache & "\MOVIEMK.EXE")) Then

   Killer.Writeline "del " & chr(34) & dllcache & "\MOVIEMK.EXE" & chr(34)

End If

if (myfiles.FileExists(dllcache & "\WMMFILT.DLL")) Then

   Killer.Writeline "del " & chr(34) & dllcache & "\WMMFILT.DLL" & chr(34)

End If

if (myfiles.FileExists(dllcache & "\WMMRES.DLL")) Then

   Killer.Writeline "del " & chr(34) & dllcache & "\WMMRES.DLL" & chr(34)

End If

if (myfiles.FileExists(dllcache & "\WMMUTIL.DLL")) Then

   Killer.Writeline "del " & chr(34) & dllcache & "\WMMUTIL.DLL" & chr(34)

End If

If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\MOVIEMK.EXE")) Then

   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\MOVIEMK.EXE" & chr(34)

End If

if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMMFILT.DLL")) Then

   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMMFILT.DLL" & chr(34)

End If

if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMMRES.DLL")) Then

   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMMRES.DLL" & chr(34)

End If

if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\WMMUTIL.DLL")) Then

   Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\WMMUTIL.DLL" & chr(34)

End If

If (myfiles.FileExists(userprofile & "\Menu Start\Programy\Akcesoria\Windows Movie Maker.LNK")) Then

   Killer.Writeline "del " & chr(34) & userprofile & "\Menu Start\Programy\Akcesoria\Windows Movie Maker.LNK" & chr(34)

End If

If (myfiles.FileExists(windir & "\Menu Start\Programy\Akcesoria\Windows Movie Maker.LNK")) Then

   usun = MyFiles.DeleteFile(windir & "\Menu Start\Programy\Akcesoria\Windows Movie Maker.LNK")

End If



hardfolder = Programs & "\Movie Maker"

Set staly_katalog = myfiles.GetFolder(hardfolder)

Set Subfolder = staly_katalog.Subfolders

For Each folder in Subfolder

   Set Currentfolder = Myfiles.GetFolder(staly_katalog & "\" & folder.name)

   Set ffiles = Currentfolder.Files

   ords = Currentfolder.ShortPath

   For Each file in ffiles

      If NT = "" Then

         Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)

         

      Else

         Killer.Writeline "del " & chr(34) & Currentfolder & "\" & file.name & Chr(34)

      End If

   Next

   If (myfiles.FolderExists(programs & "/Movie Maker")) Then

      If NT="" Then

         Killer.Writeline "rd " & chr(34) & ords & chr(34)

      Else

         Killer.Writeline "rd " & chr(34) & Currentfolder & mm & chr(34)

      End If

   End If

Next

Set ffiles = staly_katalog.Files

For Each file in ffiles

      If NT = "" Then

         ords = staly_katalog.ShortPath

         Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)

      Else

         Killer.Writeline "del " & chr(34) & staly_katalog & "\" & file.name & Chr(34)

      End if

Next

If (myfiles.FolderExists(programs & "\Movie Maker")) Then

   If NT="" Then

      Killer.Writeline "rd " & chr(34) & ords & chr(34)

   Else

      Killer.Writeline "rd " & chr(34) & programs & "\Movie Maker" & chr(34)

   End If

End If



Killer.close



Set Killer = MyFiles.OpenTextFile(windir & "\pcwKmm.BAT", 1, False)

Do While Not Killer.AtEndOfStream

     wiersz = Killer.ReadLine

     numer = Killer.Line-1

Loop

Killer.close



Set RegKill = MyFiles.OpenTextFile(windir & "\pcwRk.REG", 2, True)

RegKill.Writeline "REGEDIT4"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_CLASSES_ROOT\.MSWMM]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_CLASSES_ROOT\Windows.Movie.Maker]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.MSWMM]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Windows.Movie.Maker]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OptionalComponents\Moviemk]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\moviemk.exe]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\moviemk.exe]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\DeviceClasses\{CC7BFB41-F175-11D1-A392-00E0291F3959}]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\DeviceHandlers\VideoCameraDeviceHandler]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\VideoCameraArrival]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\MSVideoCameraArrival]"

RegKill.Writeline ""

RegKill.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\MovieMaker]"

RegKill.Writeline ""

RegKill.Close



wczytaj=MyShell.Run("regedit.exe /s " & windir & "\pcwRk.REG", 0, True)

usun = Myfiles.Deletefile(windir & "\pcwRk.REG", True)



If NT = "" Then

   Gdzie = "tryb MS-DOS"

   usun = Myfiles.Deletefolder(windir & "\Dane aplikacji\Microsoft\Movie Maker", True)

Else

   usun = Myfiles.Deletefolder(userprofile & "\Dane aplikacji\Microsoft\Movie Maker", True)

   MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", 1, "REG_DWORD"

   Gdzie = "Konsolê odzyskiwania"

End If



Koniec = MsgBox("Zrestartuj komputer, uaktywniaj¹c " & Gdzie & ", po czym przywo³aj plik wsadowy " & windir & "\pcwKmm.BAT, aby usun¹æ resztê, czyli " & numer & " plik/i/ów Movie Makera.", 64, "Usuwanie Movie Makera: Gotowe!")




Zapisz powyższe w notatniku jako MM-deinst.vbs i odpal. Po wykonaniu skryptu wejdx do trybu awaryjnego i w katalogu C:\windows wyszukaj pliczek pcwKmm.bat i także jego odpal.
PO tym zabiegu Movie Maker nie będzie istniał w systsemie.