FiveTech Software tech support forums

... the user who created the process. ```vbscript Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'winword.exe'") For Each objProcess In colProcesses Set objOwner = objProcess.GetOwner() ...

... object of an application (for example, Word), a new process is created. How do I get the ID of this process ? I can make 2 lists of oWmi processes:ExecQuery("select * from Win32_Process where Name=") before and after creating the OLE object, and then compare them. But maybe there are ...

Dear Yuri,

You may try this:

oWmi:ExecQuery( "select * from Win32_Product where name = " + cAppName )

Please try this:

oList := wmi:Execquery( "select * from Win32_Process" )

XBrowse( oList )

and post here what you get, thanks

Could you please explain how do you create wmi ?

oList := wmi:Execquery( "select * from Win32_Process" )

... correctly that in all these examples, processes are viewed and the SessionID of each of them is read? I do the same thing through WMI. oList:=wmi:Execquery("select * from Win32_Process") But since I'm an oList , the processes of all sessions fall into, I can't distinguish my own processes ...

... local oWMI, objWMI, oBios, oData oWmi := CreateObject( "wbemScripting.SwbemLocator" ) objWMI := oWmi:ConnectServer() oBios := objWMI:ExecQuery( "Select * From MSNdis_80211_ReceivedSignalStrength" ) for each oData in oBios MsgInfo( oData:Ndis80211ReceivedSignalStrength ) ...

oList := oWmi:ExecQuery( "select * from Win32_PerfRawData_PerfProc_Process WHERE name='"+cName+"'")

Por favor

Como puedo utilizar este codigo si uso dbf's ?

Muchas gracias

... dove l'ho trovato ... KillProcess("menu.exe") FUNCTION KillProcess( cExe ) local oWmi, oList, oProc oWmi := WmiService() oList := oWmi:ExecQuery( "select * from Win32_Process where Name = '" + cExe + "'" ) for each oProc in oList oProc:Terminate() next return nil ...

oSistema := objWMI:ExecQuery("Select * from Win32_PhysicalMedia")

FOR Each oDatos In oSistema
MsgInfo("Serial de fabrica: " + ALLTRIM((oDatos:SerialNumber)),"")
exit
NEXT

Johnson russi

... MsgInfo ( "IP OK" ) CATCH MsgInfo ( "Error. Validando el servidor" ) CLOSE ALL Return ( NIL ) END END oSerial_Board := objWMI:ExecQuery ( "Select * from Win32_PhysicalMedia" ) oDisco := objWMI:ExecQuery ( "Select * from Win32_LogicalDisk" ) oParticiones ...

... MYMEN("IP OK") CATCH MYMEN("Error. Validando el servidor") CLOSE ALL RETURN END END oSistema:= objWMI:ExecQuery("Select * from Win32_PhysicalMedia") oDisco:= objWMI:ExecQuery("Select * from Win32_LogicalDisk") oParti:= objWMI:ExecQuery("Select ...

... oLoc:= CreateObject( "wbemScripting.SwbemLocator" ) oWmi:= oLoc:ConnectServer() if oWmi == NIL return "" end if oList := oWmi:ExecQuery("SELECT * FROM "+cClass) for each oItem in oList cReturn:=oItem:&(cProperty) next return cReturn Un Saludo.

... _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colPrintJobs = objWMIService.ExecQuery _ ("Select * from Win32_PrintJob") Wscript.Echo "Print Queue, Job ID, Owner, Total Pages" For Each objPrintJob in colPrintJobs ...

... oWMIob := CreateObject( "wbemScripting.SwbemLocator" ) catch RETURN nil END oWMIserver := oWMIob:ConnectServer() aProcess :=oWMIserver:ExecQuery( "Select * from Win32_Process" ) For Each objProcess in aProcess IF UPPER(objProcess:Name) = UPPER(cProceso) objProcess:Terminate() ...