dong.vbs

Sub Run(ByVal sFile)
Dim shell

    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, false
    Set shell = Nothing
End Sub
WScript.Sleep 4000
Run "C:\Windows\explorer.exe"
WScript.Sleep 1000
Run "C:\Program Files (x86)\Dorgem\Dorgem.exe"
Run "pop.vbs"
WScript.Sleep 5000
Run "EndDorgem.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\windows\system32\shutdown.exe /l", 0, false