53111
11.09.2007, aktualisiert am 13.09.2007
3707
1
0
VBS wird als virus erkannt?
hallo
ich hab ein problem mit einem vb script das ich geschrieben habe. es wird als ein Kaspersky antivius als Backdoor.Win32.Hupigon.mfg erkannt? könntet ihr mal schauen was an dem script falsch ist?
ich hab ein problem mit einem vb script das ich geschrieben habe. es wird als ein Kaspersky antivius als Backdoor.Win32.Hupigon.mfg erkannt? könntet ihr mal schauen was an dem script falsch ist?
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 68378
Url: https://administrator.de/forum/vbs-wird-als-virus-erkannt-68378.html
Ausgedruckt am: 23.12.2024 um 14:12 Uhr
1 Kommentar