VBS wird als virus erkannt?

Dim netzobjekt, benutzername, laufwerkarray, arraylaenge, zaehler 
set netzobjekt=wscript.createobject("wscript.network")  
benutzername = netzobjekt.UserName

Set test = netzobjekt.EnumNetworkDrives
	
'Laufwerknamen + gewünschten Pfad hier einstellen:'  
laufwerkarray = Array(	"H:",_  
			                  "\\Server2\Home\"&benutzername,_  
			                  "X:",_  
			                  "\\Server2\work",_  
			                  "Z:",_  
			                  "\\Server2\apps"_  
		                 )
		                 
zaehler = 0

If test.Count <> 0 Then
   
      	For h = 0 to UBound(laufwerkarray) - 1 Step 2
        	 For g = 0 to test.Count - 1 Step 2
      		    If laufwerkarray(h) = test.Item(g) And laufwerkarray(h+1) = test.Item(g+1) Then
              zaehler = zaehler + 1 
              Else	
      		    End If
           Next
        Next
        
        If zaehler = (UBound(laufwerkarray) + 1) / 2 AND zaehler < 26  Then
         
        Else
             call sublaufwerke 
        End If  
   
Else
   call sublaufwerke 
End If



Sub sublaufwerke 

      'Pfad der Protokoll-Datei hier einstellen:'  
      Name = "C:\Dokumente und Einstellungen\"&benutzername&"\Desktop\Protokoll_zu_neuen_Netzlaufwerken.txt"  


      Set InfoDateiObjekt = CreateObject("Scripting.FileSystemObject")  
      Set InfoDatei = InfoDateiObjekt.OpenTextFile(Name, 2, True)
      Set objFile = InfoDateiObjekt.GetFile(Name)
       
       
        InfoDatei.WriteLine "Die folgenden Netzlaufwerke wurden gelöscht: "  
        InfoDatei.WriteLine " "  
      	
      For i = 0 to test.Count - 1 Step 2
      	For j = 0 to UBound(laufwerkarray)			
      		If test.Item(i) = laufwerkarray(j) Then
          		InfoDatei.WriteLine test.Item(i) &" "& test.Item(i+1) 				  
              netzobjekt.RemoveNetworkDrive laufwerkarray(j), true, true				
      		End If
      	Next
      Next
      
      'bei mehr Laufwerken erweitern - pro Laufwerk werden 2 neue Werte benötigt'  
      netzobjekt.mapnetworkdrive laufwerkarray(0), laufwerkarray(1), true
      netzobjekt.mapnetworkdrive laufwerkarray(2), laufwerkarray(3), true
      netzobjekt.mapnetworkdrive laufwerkarray(4), laufwerkarray(5), true
      'hier erweitern für Laufwerkmapping'  
      	
        InfoDatei.WriteLine " "  
        InfoDatei.WriteLine " "  
        InfoDatei.WriteLine "Die gelöschten Netzlaufwerke wurden mit folgen Pfaden neu verbunden: "  
        InfoDatei.WriteLine " "  
        InfoDatei.WriteLine laufwerkarray(0) &" "& laufwerkarray(1) 	  
        InfoDatei.WriteLine laufwerkarray(2) &" "& laufwerkarray(3) 	  
        InfoDatei.WriteLine laufwerkarray(4) &" "& laufwerkarray(5) 	  
        'hier erweitern für Infodatei'  
        InfoDatei.Close 

End Sub