Различия

Показаны различия между двумя версиями страницы.

@@ Строка 1: / Строка 1: @@
+USB cleaner VBS
+<code ini| title>
+Wscript.Echo "USB cleaner Запущен"
+Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
+Set objEvents = objWMIService.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_LogicalDisk' AND TargetInstance.DriveType = 2")
+Set objFS = CreateObject("Scripting.FileSystemObject")
+Do
+    Set objReceivedEvent = objEvents.NextEvent
+    strPath = objFS.BuildPath(objReceivedEvent.TargetInstance.Caption, "\")
+    If objFS.FolderExists(strPath) Then
+        On Error Resume Next
+        Set objFolder = objFS.GetFolder(strPath)
+        If Err.Number = 0 Then
+            For Each objItem In objFolder.SubFolders
+                If objItem.Attributes And 2 Then objItem.Attributes = objItem.Attributes - 2
+                If Err.Number <> 0 Then Err.Clear
+            Next
+            For Each objItem In objFolder.Files
+                If objItem.Attributes And 2 Then objItem.Attributes = objItem.Attributes - 2
+                If Err.Number <> 0 Then Err.Clear
+            Next
+			For Each File in objFolder.Files
+				If LCase(objFS.GetExtensionName(File)) = "lnk" Then
+				File.Delete true
+			End If
+			Next
+			For Each File in objFolder.Files
+				If LCase(objFS.GetExtensionName(File)) = "nil" Then
+				File.Delete true
+			End If
+			Next
+			For Each File in objFolder.Files
+				If LCase(objFS.GetExtensionName(File)) = "inf" Then
+				File.Delete true
+			End If
+			Next
+			For Each File in objFolder.Files
+				If LCase(objFS.GetFileName(File)) = "autorun.exe" Then
+				File.Delete true
+			End If
+			Next
+		 Else
+            Err.Clear
+        End If
+        Set objItem = Nothing: Set objFolder = Nothing
+    End If
+    Wscript.Echo "USB флешка успешно очищена"
+Loop
+</code>

writer.logalhost.ru

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы