home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 December / PCWorld_2003-12_cd.bin / Software / Vyzkuste / utility / utility.exe / NTFS-compact.vbs
Text File  |  2003-10-11  |  5KB  |  126 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set Schalter=wscript.arguments
  4. Set umgebung=MyShell.Environment("PROCESS")
  5.  
  6. windir=umgebung("windir")
  7.  
  8. neu="wscript.exe " & windir & "\NTFS-compact.vbs "
  9. On Error Resume Next
  10. mode=Schalter(0)
  11. Ordner = Schalter(1)
  12. installpath=windir & "\NTFS-compact.VBS"
  13. If mode = "" then 
  14.     a = myshell.regread("HKCR\Directory\shell\-> Komprese\command\")
  15.     If a = "" Then
  16.         a = myshell.regread("HKCR\Directory\shell\-> Zav°φt menu Komprese\command\")
  17.         If a = "" Then
  18.             pcwscript=wscript.scriptfullname
  19.             Set pcwcopy=MyFiles.GetFile(pcwscript)
  20.             pcwcopy.copy(installpath)
  21.             myshell.regwrite("HKCR\Directory\shell\-> Komprese\command\"), neu & "-max"
  22.             msgbox "Menu Komprese bylo nainstalovßno"
  23.             wscript.quit
  24.         Else
  25.             myshell.regdelete("HKCR\Directory\shell\-> Zav°φt menu Komprese\")
  26.             myshell.regdelete("HKCR\Directory\shell\-> Prov∞°it stav komprese\command\")
  27.             myshell.regdelete("HKCR\Directory\shell\-> Prov∞°it stav komprese\")
  28.             myshell.regdelete("HKCR\Directory\shell\-> Zkomprimovat\command\")
  29.             myshell.regdelete("HKCR\Directory\shell\-> Zkomprimovat\")
  30.             myshell.regdelete("HKCR\Directory\shell\-> Dekomprimovat\command\")
  31.             myshell.regdelete("HKCR\Directory\shell\-> Dekomprimovat\command\")
  32.             myshell.regdelete("HKCR\Directory\shell\-> ZaÜifrovat\command\")
  33.             myshell.regdelete("HKCR\Directory\shell\-> ZaÜifrovat\")
  34.             myshell.regdelete("HKCR\Directory\shell\-> DeÜifrovat\command\")
  35.             myshell.regdelete("HKCR\Directory\shell\-> DeÜifrovat\")
  36.         End If
  37.     Else
  38.         myshell.regdelete("HKCR\Directory\shell\-> Komprese\command\")
  39.         myshell.regdelete("HKCR\Directory\shell\-> Komprese\")
  40.     End If
  41. Myfiles.deletefile(Installpath)
  42. MsgBox "Menu Komprese bylo odinstalovßno"
  43.         
  44. end if
  45.  
  46. Select case mode
  47.  
  48.     Case "-max"
  49.     myshell.regdelete("HKCR\Directory\shell\-> Komprese\command\")
  50.     myshell.regdelete("HKCR\Directory\shell\-> Komprese\")
  51.     myshell.regwrite("HKCR\Directory\shell\-> Zav°φt menu Komprese\command\"), neu & "-min" 
  52.     myshell.regwrite("HKCR\Directory\shell\-> Zav°φt menu Komprese\")
  53.     myshell.regwrite("HKCR\Directory\shell\-> Prov∞°it stav komprese\command\"), neu & "-proof " & Chr(34) & "%1" & chr(34)
  54.     myshell.regwrite("HKCR\Directory\shell\-> Zkomprimovat\command\"), neu & "-comp " & Chr(34) & "%1" & chr(34)
  55.     myshell.regwrite("HKCR\Directory\shell\-> Dekomprimovat\command\"), neu & "-decomp " & Chr(34) & "%1" & chr(34)
  56.     myshell.regwrite("HKCR\Directory\shell\-> ZaÜifrovat\command\"), neu & "-ciph " & Chr(34) & "%1" & chr(34)
  57.     myshell.regwrite("HKCR\Directory\shell\-> DeÜifrovat\command\"), neu & "-deciph " & Chr(34) & "%1" & chr(34)
  58.     myshell.Sendkeys "+{F10}"
  59.     Case "-min"
  60.     myshell.regwrite("HKCR\Directory\shell\-> Komprese\command\"), neu & "-max"
  61.     myshell.regdelete("HKCR\Directory\shell\-> Zav°φt menu Komprese\command\")
  62.     myshell.regdelete("HKCR\Directory\shell\-> Zav°φt menu Komprese\")
  63.     myshell.regdelete("HKCR\Directory\shell\-> Prov∞°it stav komprese\command\")
  64.     myshell.regdelete("HKCR\Directory\shell\-> Prov∞°it stav komprese\")
  65.     myshell.regdelete("HKCR\Directory\shell\-> Zkomprimovat\command\")
  66.     myshell.regdelete("HKCR\Directory\shell\-> Zkomprimovat\")
  67.     myshell.regdelete("HKCR\Directory\shell\-> Dekomprimovat\command\")
  68.     myshell.regdelete("HKCR\Directory\shell\-> Dekomprimovat\")
  69.     myshell.regdelete("HKCR\Directory\shell\-> ZaÜifrovat\command\")
  70.     myshell.regdelete("HKCR\Directory\shell\-> ZaÜifrovat\")
  71.     myshell.regdelete("HKCR\Directory\shell\-> DeÜifrovat\command\")
  72.     myshell.regdelete("HKCR\Directory\shell\-> DeÜifrovat\")
  73.     
  74.     wscript.quit
  75.             
  76.     Case "-proof"
  77.     Set d = Myfiles.GetDrive(MyFiles.GetDriveName(Ordner))
  78.     s = d.FileSystem
  79.     If s = "NTFS" then
  80.         myshell.run "cmd.exe /k compact.exe /s:" & Ordner
  81.         myshell.run neu & "-max"
  82.     Else
  83.         x = MsgBox("Slo₧ka se nachßzφ na diskovΘm oddφlu" & s & ", komprimovat se dajφ pouze slo₧ky na diskov²ch oddφlech NTFS.", 48, "Chyba")
  84.     End If
  85.     
  86.     Case "-comp"
  87.     Set d = Myfiles.GetDrive(MyFiles.GetDriveName(Ordner))
  88.     s = d.FileSystem
  89.     If s = "NTFS" then
  90.         myshell.run "cmd.exe /k compact.exe /c /s:" & Ordner
  91.         myshell.run neu & "-min"
  92.     Else
  93.         x=MsgBox("Slo₧ka se nachßzφ na diskovΘm oddφlu " & s & ", komprimovat se dajφ pouze slo₧ky na diskov²ch oddφlech NTFS.", 48, "Chyba")
  94.     End If
  95.     
  96.     Case "-decomp"
  97.     Set d = Myfiles.GetDrive(MyFiles.GetDriveName(Ordner))
  98.     s = d.FileSystem
  99.     If s = "NTFS" then
  100.         myshell.run "cmd.exe /k compact.exe /u /s:" & Ordner
  101.         myshell.run neu & "-min"
  102.     Else
  103.         x=MsgBox("Slo₧ka se nachßzφ na diskovΘm oddφlu " & s & ", komprimovat se dajφ pouze slo₧ky na diskov²ch oddφlech NTFS.", 48, "Chyba")
  104.     End If
  105.     
  106.     Case "-ciph"
  107.     Set d = Myfiles.GetDrive(MyFiles.GetDriveName(Ordner))
  108.     s = d.FileSystem
  109.     If s = "NTFS" Then
  110.         myshell.run "cmd.exe /k cipher.exe /e /s:" & Ordner & " /a"
  111.         myshell.run neu & "-min"
  112.     Else
  113.         x=MsgBox("Slo₧ka se nachßzφ na diskovΘm oddφlu " & s & ", Üifrovat se dajφ pouze slo₧ky na diskov²ch oddφlech NTFS.", 48, "Chyba")
  114.     End If
  115.     
  116.     Case "-deciph"
  117.     Set d = Myfiles.GetDrive(MyFiles.GetDriveName(Ordner))
  118.     s = d.FileSystem
  119.     If s = "NTFS" Then
  120.         myshell.run "cmd.exe /k cipher.exe /d /s:" & Ordner & " /a"
  121.         myshell.run neu & "-min"
  122.     Else
  123.         x=MsgBox("Slo₧ka se nachßzφ na diskovΘm oddφlu " & s & ", Üifrovat se dajφ pouze slo₧ky na diskov²ch oddφlech NTFS.", 48, "Chyba")
  124.     End If
  125. End Select
  126.