Jimmy,
It's Fantastic!
In this way I can verify from client if there is a running application in my server
oWMI := oLocator:ConnectServer( "srvmng" , , user , password )
Many thanks
IF VAL( OS(OS_VERSION) ) > 6
IF strComputer == "Localhost"
objWMIServices := CreateObject( "WbemScripting.SWbemLocator" ):ConnectServer(strComputer, "Root\CIMv2")
ELSE
IF EMPTY(cPassword)
MSGBOX("Need Password")
QUIT
ELSE
objWMIServices := CreateObject( "WbemScripting.SWbemLocator" ):ConnectServer(strComputer, "Root\CIMv2",strComputer+"\"+cUser,cPassword)
ENDIF
ENDIF
ELSE
objWMIServices := GetObject("WinMgmts:{impersonationLevel=impersonate}\\"+strComputer+"\Root\CIMv2")
ENDIF
Is it possible to read Open Files in Shared folders via WMI?. (My Computer, Manage, System Tools, Shared folder, Open Files)
get-service winrm
enable-PSRemoting -force
winrm s winrm/config/client '@{TrustedHosts="REMOTECOMPUTERNAME/IP"}'
get-wmiobject CIM_Memory -computername "192.xxx.xxx.xxx" -credential "username"
Horizon wrote:Is it possible to read Open Files in Shared folders via WMI?. (My Computer, Manage, System Tools, Shared folder, Open Files)
compmgmt.msc
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 53 guests