FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour client RDP info
Posts: 283
Joined: Sat Oct 15, 2005 06:40 AM
client RDP info
Posted: Thu Dec 01, 2011 10:44 AM

hi all,

I need to know a unique value of the remote client from the server rdp.

is possible?

Thank you for your reponse.

Ciao, best regards,

Ugo
Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
Re: client RDP info
Posted: Thu Dec 01, 2011 12:06 PM
Hello,
What I do is to take the user name with which the user entered.

Code (fw): Select all Collapse
Function ListUsersTs()
local oLoc := CreateObject( "wbemScripting.SwbemLocator" )
local oSrv := oLoc:ConnectServer(,"root\cimv2")
local aDat := oSrv:ExecQuery( "SELECT * FROM Win32_UserAccount" )
Local oDat
Local aRet := {""}

 For each oDat in aDat
  AADD(aRet, AllTrim( Upper( oDat:Name ) ) )
 Next

Return( aRet )
Saludos,



Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

Continue the discussion