soweit bin ich gekommen aber was hab ich falsch gemacht?
Server="ip"
UID="Username"
PWD=""
set obj = CreateObject("WBEMScripting.SWBEMLocator")
set wmi = obj.ConnectServer(Server,"root/cimv2",UID,PWD)
set result = wmi.ExecQuery("select * from win32_process WHERE name='" & Prog & "'")
set prg = wmi.Get("Win32_process")
msgbox "TEXT VON MASGBOX DAS SOLL AUF DEM ANGEGEBENEN PC ERSCHEINEN"