>Hi Gregory,
>
>Your code has been very useful for a number of years, thank you.
>
>I now have a slightly different situation and am taking a new look at it. Since your code is written in a non VFP style I wonder if you adapted it from some other code. If so, do you have a reference to it? I'd like to create something more generic and VFP like.
>
>TIA,
>
>Alex

(1) No, I did not adapt from any other code - my only reference is mircosoft.com, eg http://msdn.microsoft.com/en-us/library/aa383838(VS.85).aspx

(2) Each one has his own style - mine happens to be like this

(3) A more complete example, attached, with a class

 set proc to tse_info additive
  local obj

  do case
  case !TSE_Session()
    ?'not running under TSE'

  case !tse_info_object(@m.obj)
    ?'error creating object'

  otherwise
    with m.obj

      ?'InitialProgram', .InitialProgram
      ?'ApplicationName', .ApplicationName
      ?'WorkingDirectory', .WorkingDirectory
      ?'SessionId', .SessionId
      ?'UserName', .UserName
      ?'WinStationName', .WinStationName
      ?'DomainName', .DomainName
      ?'ConnectState', .ConnectState
      ?'ConnectStateString', .ConnectStateString
      ?'ClientBuildNumber', .ClientBuildNumber
      ?'ClientName', .ClientName
      ?'ClientDirectory', .ClientDirectory
      ?'ClientProductId', .ClientProductId
      ?'ClientHardwareId', .ClientHardwareId
      ?'ClientAddress', .ClientAddress

      ?'ClientDisplay_Horizontal', .ClientDisplay_Horizontal
      ?'ClientDisplay_Vertical', .ClientDisplay_Vertical
      ?'ClientDisplay_ColorDepth', .ClientDisplay_ColorDepth

      ?'ClientProtocolType', .ClientProtocolType

    endwith

  endcase