Eigengemaakt script wordt gezien als VBS/BadJoke.H

[gamefreak23]

Goedemiddag help-mijers,


Ik heb een eigengemaakt script gemaakt (vbs) die de CD-ROM opent , een piepje geeft , "Ghost Typing" doet en wat msgbox's laat zien.
Nou wou mijn vriend het hebben op zijn computer proberen. Dus ik heb het via Skype door gestuurd en hij opent het op zijn computer.
Dan krijgt hij van zijn Anti Virus (Avira) een virus detectie van VBS/BadJoke.H. Terwijl ik ZEKER weet dat dat echt niet waar is.
Mijn virusscanner (MSE en G Data) zeggen er niks over.

Mijn vraag is dus , heb ik nou iets fout gedaan in het script?
Ik weet niet of het mag maar hier is het script:

msgbox"Hacked by *naam*"
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "HA"
WScript.Sleep 70
WshShell.SendKeys "CK"
WScript.Sleep 70
WshShell.SendKeys "ED"
WScript.Sleep 50
WshShell.SendKeys " "
WScript.Sleep 70
WshShell.SendKeys "BY"
WScript.Sleep 70
WshShell.SendKeys "*naam*"
WScript.Sleep 70

Set oWMP = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = oWMP.cdromCollection 
if colCDROMs.Count >= 1 then 
For i = 0 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
Next 
For i = 0 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
Next 
End If

msgbox"Lol , you scared yet?"

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
msgbox"Lolz"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
Set vo = CreateObject("SAPI.SpVoice")
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
x = msgbox("Are you scared yet?",vbYesNo,"Error")
If (x) = VbYes Then msgbox "Okay i'll stop , have a nice day."
If (x) = VBYes Then Set vo = CreateObject("SAPI.SpVoice")
vo.speak "Have a good day sir."
If (x) = VbNo Then msgbox "No , well I'll just continue!"
If (x) = VBNo Then Set vo = CreateObject("SAPI.SpVoice")
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"
vo.speak "HAHAHAHAHAHAHAHAHaHAHAHAHAHAHAHAHAHAHAHAHAHAHA"

Groeten , gamefreak23
*scan van Virustotal*