[MOD] duda sobre vbs

Hola creo que este es el apartado del foro sobre preguntas de programacion si no disculpen bueno al caso resulta que estaba buscando una forma de que cuando le ordenase a mi cliente RAT que se desistalase el server pues eso que se borre pero claro primero se tiene que cerrar el proceso y esto me esta dando vueltas y vueltas. Pensé en una forma pero no se si se podra no soy muy experto en VB6 y bueno pensé en si se podría añadir al SRC del server un archivo .vbs exactamente este y bueno lo de ya que se copiase en un ruta TEMP?

Código:

Option Explicit
On Error Resume Next 
Dim WshShell, objEnv
dim variable
dim prog
Set WshShell = CreateObject("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
Set variable = CreateObject("Scripting.FileSystemObject")
Set WScript = CreateObject("WScript.Shell")          
Set prog = WshShell.exec("cmd /c taskkill /F /IM server.exe")
WScript.Sleep 2000
variable.DeleteFile objEnv("TEMP") & "\Batch.bat" 
variable.DeleteFile objEnv("TEMP") & "\server.exe" 
variable.DeleteFile objEnv("TEMP") & "\xxx.vbs"

este code funciona de perla luego hize otro en batch

Código:

@echo off
taskkill /f /im server.exe
FOR /l %%a IN (%1,-1,1) do (ECHO 1 >NULL %%as&ping -n 5 -w 1 127.0.0.1>NUL)
del /Q /F %temp%\server.exe
del /Q /F %temp%\Batch.bat
del /Q /F %temp%\xxx.bat

pero igual en los 2 casos aparece momentaneamente una pantalla de msdos y bueno seguro que hay otras formas de desistalar el server sin una fea imagen de msdos

Salu2! y gracias de antemano