none
Defender blockiert shell .. .CopyHere

    Frage

  • Hallo,

    seit einigen Wochen wird bei aktivem Defender (Viren- & Bedrohungsschutz - Echtzeitschutz EIN) das Ausführen von .CopyHere erheblich blockiert. Je nach Dateigröße dauert das auch schon mal 20-30sec.

    System: Win10 Pro 64Bit, 1803

    Wie kann da abhilfe geschaffen werden.

    Gruß

    rawa

    Hier der Beispielcode (VBA):

    Sub TestZIP()
      Dim objShell As Object
      Dim sSFile As Variant
      Dim sDFile As Variant
      Dim dTime As Double

      sDFile = ThisWorkbook.Path & "\"
      sSFile = ThisWorkbook.Path & "\Test2.xlsx.zip\docProps"
     
      Set objShell = CreateObject("Shell.Application")
     
      dTime = Timer
     
      Call objShell.Namespace(sDFile).CopyHere(objShell.Namespace(sSFile).Items)
      Debug.Print Timer - dTime
     
      Call Kill(sDFile & "core.xml")
      Call Kill(sDFile & "app.xml")

    ' Times Defender activ
    ' 9,56640625
    ' 3,056640625
    ' 5,0546875
    ' 3,8984375
    ' 5,14453125
    ' 4,76953125
     
    ' Times Defender deactivate
    ' 0,3515625
    ' 0,376953125
    ' 0,35546875
    ' 0,3828125
    ' 0,38671875
    ' 0,416015625
    End Sub
    Freitag, 12. Oktober 2018 05:18

Antworten

Alle Antworten

  • Hallo community,

    can see anybody a little light about my issue? See below my question in ~english:

    For several weeks, running Defender (Virus & Threat Protection - Real-Time Protection ON) significantly blocks running .CopyHere. Depending on the file size that takes sometimes 20-30sec.

    System: Win10 Pro 64Bit, 1803

    How can this be remedied?

    greeting
    rawa

    Here is the example code (VBA):

    Sub TestZIP()
      Dim objShell As Object
      Dim sSFile As Variant
      Dim sDFile As Variant
      Dim dTime As Double

      sDFile = ThisWorkbook.Path & "\"
      sSFile = ThisWorkbook.Path & "\Test2.xlsx.zip\docProps"

      Set objShell = CreateObject("Shell.Application")

      dTime = Timer

      Call objShell.Namespace(sDFile).CopyHere(objShell.Namespace(sSFile).Items)
      Debug.Print Timer - dTime

      Call Kill(sDFile & "core.xml")
      Call Kill(sDFile & "app.xml")

    ' Times Defender activ
    ' 9,56640625
    ' 3,056640625
    ' 5,0546875
    ' 3,8984375
    ' 5,14453125
    ' 4,76953125

    ' Times Defender deactivate
    ' 0,3515625
    ' 0,376953125
    ' 0,35546875
    ' 0,3828125
    ' 0,38671875
    ' 0,416015625
    End Sub

    Dienstag, 23. Oktober 2018 09:22
  • Hallo,

    etwas über CopyHere hab ich hier gefunden: https://www.tek-tips.com/viewthread.cfm?qid=1231961

    Vielleicht solltest du aber ein anderes Forum probieren, anstatt deine Frage im gleichen Forum nun auf Englisch zu stellen.
    Versuche es mal dort:
    https://social.technet.microsoft.com/Forums/en-US/home?forum=winserversecurity
    https://social.msdn.microsoft.com/Forums/en-US/home?forum=isvvba
    https://answers.microsoft.com/en-us/protect/forum/all/windows-defender/

    Gruß Guido

    • Als Antwort markiert scrawa Freitag, 26. Oktober 2018 13:16
    Mittwoch, 24. Oktober 2018 08:22
  • Hallo Guido,

    danke für die Tipps. Habe die Frage hier https://social.technet.microsoft.com/Forums/en-US/967523e4-2132-4db7-8b40-fb06d7f93952/why-defender-blocks-shell-copyhere?forum=win10itprosecurity

    neu gestellt.

    Gruß

    Ralf

    Freitag, 26. Oktober 2018 13:17