Flasher
|
 Posted: Sun Dec 04, 2011 20:24 Post subject: |
 |
|
Не выдержал...
По-человечески (vbs):
| Code: | '============================================================================
' 1. Снять у папок в корнях флешек атрибуты "скрытый" и "системный"
' 2. Переместить ярлыки, имеющие данные атрибуты, в папку "Скрытые ярлыки"
' 3. Добавить к имени autorun.inf дату и переместить в папку "Скрытые ярлыки"
' Параметр по желанию (флаг на обработку autorun.inf): <любой символ>
'============================================================================
With CreateObject("Scripting.FileSystemObject")
For Each D in .Drives
If .GetDrive(D).DriveType = 1 Then
HLinks = D & "\Скрытые ярлыки\"
Set Fd = CreateObject("Shell.Application").NameSpace(D & "\")
For Each F in .GetFolder(D).SubFolders
Attr = Fd.GetDetailsOf(Fd.ParseName(F.Name), 6)
A = .GetFolder(F).Attributes
H = InStr(Attr, "H") : S = InStr(Attr, "S")
If H Then A = A - 2 : If S Then A = A - 4
If H Or S Then .GetFolder(F).Attributes = A
Next
For Each F in .GetFolder(D).Files
Set PN = Fd.ParseName(F.Name)
Attr = Fd.GetDetailsOf(PN, 6)
If PN.IsLink And (InStr(Attr, "H") Or InStr(Attr, "S")) Then
If Not .FolderExists(HLinks) Then .CreateFolder(HLinks)
F.Move HLinks
End If
If WScript.Arguments.Count Then
If F.Name = "autorun.inf" Then _
F.Move HLinks & "autorun_" & Replace(Replace(Now, "/", "."), ":", "-") & ".inf"
End If
Next
End If
Next
End With
CreateObject("WScript.Shell").Popup "Исполнено!", 1.4, "Результат", 64
WScript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
