Const HIDDEN_WINDOW = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
; objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject( _
    "winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create( _
    "C:\ICOM\POS2100\WRemote.exe", null, objConfig, intProcessID)