Hi,
this part...
---------------
Set objSWbemServices3 = objSWbemLocator.ConnectServer(strServer3, "root\cimv2", strUser3, strPword3, "MS_409", "ntlmdomain:" + strDomain3)
Set colSwbemObjectSet3 = objSWbemServices3.ExecQuery("Select * From Win32_Process",,48)
---------------
...is working well...