VBS: Ordner sperren

    • VBScript (VBS)

      VBS: Ordner sperren

      Folgender Code in eine .VBS-Datei gepackt schützt einen Ordner vor Zugriff. Zwar nicht sehr sicher, aber doch für den Standard-DAU kaum zu knacken:

      Visual Basic-Quellcode

      1. dim ordner(40)
      3. Set dat = CreateObject("Scripting.FileSystemObject")
      4. Set MyShell=Wscript.CreateObject("Wscript.Shell")
      5. w = WScript.ScriptFullName
      6. Set a = dat.OpenTextFile(w, 1)
      7. Set b = dat.CreateTextFile("c:\$tmp$.BAT", True)
      9. do
      10. n=n+1
      11. zeile=a.readline
      12. ordner(n)=mid(zeile,2)
      13. loop until instr(ordner(n),"========")
      14. code=a.readall
      15. a.Close
      17. for x = 1 to n - 1
      18. liste = liste & chr(13) & chr(10) & ordner(x)
      19. next
      21. if n > 1 then
      22. modus = MyShell.Popup ("Ordner verschliessen?",,"",3)
      23. else
      24. modus = 6
      25. end if
      27. if modus=2 then
      28. wscript.quit
      29. else
      30. if modus=6 then
      31. WinDisable
      32. else
      33. WinEnable
      34. end if
      35. end if
      37. a.Writeline "'================================================"
      38. a.Write code
      39. a.Close
      40. b.close
      41. MyShell.run "command.com /c c:\$tmp$.BAT",2,True
      42. set del=dat.Getfile("c:\$tmp$.BAT")
      43. del.delete
      45. Sub WinDisable()
      46. Set a = dat.CreateTextFile(w, True)
      47. for x = 1 to n - 1
      48. a.writeline "'" & ordner(x)
      49. next
      50. do
      51. verz=inputbox("Neues Verzeichnis angeben" & chr(13) & chr(10) & liste)
      52. if verz <> "" then
      53. on error resume next
      54. set check=dat.getfolder(verz)
      55. if err.Number = 0 then
      56. a.writeline "'" & verz
      57. befehl="ren " & chr(34) & verz & chr(34) & " " & chr(34) & chr(223) & check.name & chr(34)
      58. b.writeline befehl
      59. liste=liste & chr(13) & chr(10) & verz
      60. else
      61. msgbox "Verzeichnis nicht vorhanden!"
      62. err.clear
      63. end if
      64. end if
      65. loop until verz=""
      66. end sub
      69. sub WinEnable()
      70. Set a = dat.CreateTextFile(w, True)
      71. frei=MyShell.popup("Alle Ordner freigeben?" & chr(13) & chr(10) & liste,,"",4)
      72. if frei = 6 then
      73. for x = 1 to n - 1
      74. nurname=ordner(x)
      75. do
      76. i=instr(nurname,"\")
      77. if i > 0 then nurname=mid(nurname,i+1)
      78. loop until i=0
      79. vorne=len(ordner(x))-len(nurname)
      80. befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname & chr(34) & " " & chr(34) & nurname & chr(34)
      81. b.writeline befehl
      82. next
      83. end if
      85. if frei = 7 then
      86. for x = 1 to n - 1
      87. frei=MyShell.popup(ordner(x) & " freigeben?",,"",4)
      88. if frei=7 then a.writeline "'" & ordner(x)
      89. if frei=6 then
      90. nurname=ordner(x)
      91. do
      92. i=instr(nurname,"\")
      93. if i > 0 then nurname=mid(nurname,i+1)
      94. loop until i=0
      95. vorne=len(ordner(x))-len(nurname)
      96. befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname & chr(34) & " " & chr(34) & nurname & chr(34)
      97. b.writeline befehl
      98. end if
      99. next
      100. end if
      101. end sub

      mfG,

      Malcolm

      Edit by Agent: vb-tag eingefügt

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Agent“ ()