FiveTech Software tech support forums

... para detectar subidas de memoria He buscado por el foro y la wiki y no he visto nada. Sé que se puede hacer trasteando con CreateObject ( "wbemScripting.SwbemLocator" ), pero por si ya hay algo standard. Gracias y salud!

Has anybody every got this code to work: Function WiFiSignalStrength() local oWMI, objWMI, oBios, oData oWmi := CreateObject( "wbemScripting.SwbemLocator" ) objWMI := oWmi:ConnectServer() oBios := objWMI:ExecQuery( "Select * From MSNdis_80211_ReceivedSignalStrength" ) ...

... NOTA: - Esta basada en el resultado de un comando DOS. - En el foro vi otras opciones con CreateObject ( "wbemScripting.SwbemLocator" ), pero no lo puede hacer funcionar. Rolando Cochabamba, Bolivia

... WMIService() // It would be useful to keep this function in the library static oWMI local oLocator if oWMI == nil oLocator := CREATEOBJECT( "wbemScripting.SwbemLocator" ) oWMI := oLocator:ConnectServer() endif return oWMI Stefano

Noe;
acá una solución interesante
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25108&p=136822&hilit=wbemScripting.SwbemLocator#p136737
Uso esta función, hasta ahora no me enteré si la violaron... y creo que nunca me enteraré

Mira se ayuda:

viewtopic.php?f=6&t=25108&start=0&hilit=WBEMScripting.SWBEMLocator

salu2

// Origen: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25108&start=0&hilit=WBEMScripting.SWBEMLocator # include "fivewin.ch"Function W_Main_Info ()   Local oDatos, oSrv, oJob, i, sMensaje := ""   Local ...

Watch this thread I think it says as see mapped drives http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25108&p=136822&hilit=WBEMScripting.SWBEMLocator#p136822 * --------------------------- // -------------------------- * sMensaje += CRLF + "Lista de unidades Mapeadas por ...

... Function W_Main_Info () Local oDatos, oSrv, oJob, i, sMensaje := "" Local nFree := "" Local oLoc := CreateObject ( "wbemScripting.SwbemLocator" ) Local objWMI Local oSerial_Board Local oDisco Local oParticiones Local oDiskettes Local oHard_Unidades Local oDVD_CD ...

Function WMainInfo() LOCAL oDatos, oSrv, oJob, i LOCAL nFree:= "" LOCAL oLoc:= CreateObject( "wbemScripting.SwbemLocator" ) LOCAL objWMI LOCAL oSistema LOCAL oDisco LOCAL oParti LOCAL oDisket LOCAL objUnd LOCAL oUnd LOCAL oResolu LOCAL oSistem LOCAL oUsers ...

... local oLoc,oWmi,oList,oItem default cClass:="Win32_ComputerSystem",cProperty:="Name" oLoc:= CreateObject( "wbemScripting.SwbemLocator" ) oWmi:= oLoc:ConnectServer() if oWmi == NIL return "" end if oList := oWmi:ExecQuery("SELECT * FROM ...

... and then. Here is the code I use: FUNCTION WMIService()   static oWMI   local oLoc   if oWMI == nil      oLoc  := CREATEOBJECT( "wbemScripting.SwbemLocator" )      oWMI  := oLoc:ConnectServer()   endifreturn oWMIFUNCTION KillExcel()   local oWmi, oList, ...

... #Include "WinApi.ch" FUNCTION KillProceso ( cProceso ) Local oWMIob, oWMIserver, aProcess, objProcess try oWMIob := CreateObject( "wbemScripting.SwbemLocator" ) catch RETURN nil END oWMIserver := oWMIob:ConnectServer() aProcess :=oWMIserver:ExecQuery( "Select * from Win32_Process" ...

... XP but gives an error in Vista. Anyone know how I can have it work in Vista ? FUNCTION cSerialMB()   LOCAL oLoc := CREATEOBJECT( "wbemScripting.SwbemLocator" )   LOCAL oSrv := oLoc:ConnectServer()   LOCAL oJbs := oSrv:ExecQuery( "SELECT * FROM Win32_BaseBoard" ...

... saber como se hace de la otra manera; STATIC FUNCTION ListProcess() Local strNameOfUser, strUserDomain Local objWMIService := CreateObject( "wbemScripting.SwbemLocator") Local colRunningServices Local objService , colProcessList, objProcess, colProperties LOCAL oSrv := objWMIService:ConnectServer() ...