Mal schauen - hört sich sehr interessant an.
Bei Interesse schreibe ich gewrade mal eine kleine GUI Anwendung, die diese Funktion freischaltet.
Interesse?
Muss mal testen, ob sich was ändert. Ich melde mich...
Ich glaube nicht, dass dafür extra ein Progrämmle nötig ist. Bei Heise steht ja drunter, wie man das bequem ändern kann, ohne in der Registry rumwuseln zu müssen:
Alles anzeigen
Wer sich nicht von Hand durch den Registry-Editor klicken möchte,
kann eine Textdatei beispielsweise namens MpEnablePus.reg (nur die
Endung ist wichtig) mit dem folgenden Inhalt anlegen:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\MpEngine]
"MpEnablePus"=dword:00000001
Mit Programm kann man die Funktion jederzeit wieder deaktivieren ohne in der Registry zu fummeln. Der erkennt scheinbar eine ganze Menge mehr als andere Programme.
Die Option ist für Firmenrechner gedacht. Lässt man die Option aktiviert, kann man auch viele Programme nicht herunterladen, bei denen das PUP optional deaktivierbar ist (CristalDiskInfo zum Beispiel).
Hier Downloadlink für das Proggie: Download WindefAdwProt.exe
Alles erkennt er nicht - ist aber gar nicht so schlecht, mit der Einstellung.
AHT, könntest Du den Quelltext des Tools noch posten? Einfach zum zu zeigen wie das geht, bzw. für die Transparenz.
$H Windows.PH
$H Messages.PH
$U RegEx.PCU = RegistryEx.
DEF GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Declare Font%, BtnLink%, BtnSet%, AdwOff%, AdwOn%, AdwGroup%, Link$, WDefAdwWert$
Declare Heigt&, Width&, MessADW%
Heigt& = 158
Width& = 420
Link$ = "http://www.paules-pc-forum.de"
WindowStyle 512 | 16 | 8
WindowTitle "MSE (Defender) Einstellungen"
Window int(abs((%MAXX / 2) - (Width& / 2))), int(abs((%MAXY / 2) - (Heigt& / 2))) - 420, 158
UserMessages ~WM_CLOSE
UseIcon "A"
Font% = ~GetStockObject(17)
SetDialogFont Font%
CLS ~GetSysColor(15)
AdwGroup% = Create("GroupBox", %HWnd, "Adwareerkennung in MSE", 4, 4, Width(%HWnd) - 10, 80)
BtnLink% = Control("SysLink", "<a href=\qwww.paules-pc-forum.de/\q>Paules-PC-Forum</a>", $50000002, 20, int(abs(Height(%HWnd) - 32)), 160, 25, %HWnd, 90001, %hInstance, 0)
AdwOn% = Create("RadioButton", AdwGroup%, "Adwareerkennung in MSE aktivieren", 4, 24, 200, 16)
AdwOff% = Create("RadioButton", AdwGroup%, "Adwareerkennung in MSE deaktivieren", 4, 44, 200, 16)
BtnSet% = Create("Button", %HWnd, "Setzen", int(abs(Width(%HWnd) - 88)), int(abs(Height(%HWnd) - 32)), 80, 24)
WDefAdwWert$ = RegistryEx.ReadRegistryValue("HKEY_2", "Software\Policies\Microsoft\Windows Defender\MpEngine", "MpEnablePus")
If WDefAdwWert$ = "1"
SetCheck AdwOn%, 1
else
SetCheck AdwOff%, 1
endif
While %UMessage <> $10
Sleep 100
IF %WMNOTIFY
IF &NotifyWnd = BtnLink%
IF %NotifyCode = -2
SetMenuitem 0
ShellExec(Link$, "open", 1)
endif
endif
endif
iF ButtonClicked(BtnSet%)
SetMenuItem 0
If GetCheck(AdwOn%)
RegistryEx.CreateKey("HKEY_2", "Software\Policies")
RegistryEx.CreateKey("HKEY_2", "Software\Policies\Microsoft")
RegistryEx.CreateKey("HKEY_2", "Software\Policies\Microsoft\Windows Defender")
RegistryEx.CreateKey("HKEY_2", "Software\Policies\Microsoft\Windows Defender\MpEngine")
RegistryEx.SetRegistryValue("HKEY_2", "Software\Policies\Microsoft\Windows Defender\MpEngine", "MpEnablePus", "REG_DWORD", "1")
WDefAdwWert$ = RegistryEx.ReadRegistryValue("HKEY_2", "Software\Policies\Microsoft\Windows Defender\MpEngine", "MpEnablePus")
If WDefAdwWert$ = "1"
SetCheck AdwOn%, 1
SetCheck AdwOff%, 0
else
SetCheck AdwOff%, 1
SetCheck AdwOn%, 0
endif
MessADW% = MessageBox("Der Rechner muss neu gestartet werden, damit die Einstellungen wirksam werden. Rechner neu starten?", "Neustart erforderlich", 4 | 32)
If MessADW% = 6
ExitWindows 1
endif
ElseIf GetCheck(AdwOff%)
RegistryEx.SetRegistryValue("HKEY_2", "Software\Policies\Microsoft\Windows Defender\MpEngine", "MpEnablePus", "REG_DWORD", "0")
WDefAdwWert$ = RegistryEx.ReadRegistryValue("HKEY_2", "Software\Policies\Microsoft\Windows Defender\MpEngine", "MpEnablePus")
If WDefAdwWert$ = "1"
SetCheck AdwOn%, 1
SetCheck AdwOff%, 0
else
SetCheck AdwOff%, 1
SetCheck AdwOn%, 0
endif
MessADW% = MessageBox("Der Rechner muss neu gestartet werden, damit die Einstellungen wirksam werden. Rechner neu starten?", "Neustart erforderlich", 4 | 32)
If MessADW% = 6
ExitWindows 1
endif
endif
EndIf
wendDanke! Tolle Idee mit dem kleinen Tool! 
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!