' AUTOPLAY.VBS ' Copyright © 2009-2022, Stefan Kanthak ' * The software is provided "as is" without any warranty, neither express ' nor implied. ' * In no event will the author be held liable for any damage(s) arising ' from the use of the software. ' * Redistribution of the software is allowed only in unmodified form. ' * Permission is granted to use the software solely for personal private ' and non-commercial purposes. ' * An individuals use of the software in his or her capacity or function ' as an agent, (independent) contractor, employee, member or officer of ' a business, corporation or organization (commercial or non-commercial) ' does not qualify as personal private and non-commercial purpose. ' * Without written approval from the author the software must not be used ' for a business, for commercial, corporate, governmental, military or ' organizational purposes of any kind, or in a commercial, corporate, ' governmental, military or organizational environment of any kind. Option Explicit If WScript.Arguments.Count <> 1 Then WScript.Quit With WScript.CreateObject("Shell.Application").NameSpace(WScript.Arguments.Item(0)).Self Dim objVerb For Each objVerb In .Verbs If InStr(1, objVerb.Name, "Windows Defender...", vbTextCompare) <> 0 _ Then objVerb.DoIt WScript.Quit End If Next MsgBox "Windows Defender kann auf '" & .Name & "' nicht gestartet werden!", vbCritical, WScript.ScriptName End With