Labtrueorfalse.Text = aduser.EmailAddress;
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}

Public Class TerminalServer

#Region “Constants”
Private Const WTS_CURRENT_SESSION As Integer = -1
#End Region

#Region “Dll Imports”
‘ _
‘Private Shared Function WTSEnumerateSessions(ByVal hwnd As IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer
‘ End Function

_
Private Shared Function WTSEnumerateSessions( _
ByVal hServer As IntPtr, _
_
ByVal Reserved As Int32, _
_
ByVal Version As Int32, _
ByRef ppSessionInfo As IntPtr, _
_
ByRef pCount As Int32) As Int32
End Function

‘[DllImport("wtsapi32.dll")]
‘static extern int WTSEnumerateSessions(
‘ IntPtr pServer,
‘ [MarshalAs(UnmanagedType.U4)] int iReserved,
‘ [MarshalAs(UnmanagedType.U4)] int iVersion,
‘ ref IntPtr pSessionInfo,
‘ [MarshalAs(UnmanagedType.U4)] ref int iCount);

‘[DllImport("Wtsapi32.dll")]
‘public static extern bool WTSQuerySessionInformation(
‘ System.IntPtr pServer,
‘ int iSessionID,
‘ WTS_INFO_CLASS oInfoClass,
‘ out System.IntPtr pBuffer,
‘ out uint iBytesReturned);
Private Declare Auto Function WTSQuerySessionInformation Lib “wtsapi32.dll” ( _
ByVal hServer As System.IntPtr, _
ByVal SessionId As Int32, _
ByVal InfoClass As WTS_INFO_CLASS, _
ByRef ppBuffer As IntPtr, _
ByRef pCount As UInt32) As Boolean

‘[DllImport("wtsapi32.dll")]
‘static extern void WTSFreeMemory(
‘ IntPtr pMemory);
_
Private Shared Sub WTSFreeMemory(ByVal pMemory As IntPtr)
End Sub

#End Region

#Region “Structures”
‘Structure for Terminal Service Client IP Address
_
Private Structure WTS_CLIENT_ADDRESS
Public iAddressFamily As Integer ‘AF_INET, (AF_INET6), AF_IPX, AF_NETBIOS, AF_UNSPEC
_
Public bAddress() As Byte
End Structure

‘Structure for Terminal Service Session Info
_
Private Structure WTS_SESSION_INFO
Public iSessionID As Integer
_
Public sWinsWorkstationName As String
Public oState As WTS_CONNECTSTATE_CLASS
End Structure

‘Structure for Terminal Service Session Client Display
_
Private Structure WTS_CLIENT_DISPLAY

Public iHorizontalResolution As Integer
Public iVerticalResolution As Integer
’1 = The display uses 4 bits per pixel for a maximum of 16 colors.
’2 = The display uses 8 bits per pixel for a maximum of 256 colors.
’4 = The display uses 16 bits per pixel for a maximum of 2^16 colors.
’8 = The display uses 3-byte RGB values for a maximum of 2^24 colors.
’16 = The display uses 15 bits per pixel for a maximum of 2^15 colors.
Public iColorDepth As Integer
End Structure
#End Region

#Region “Enumurations”
Private Enum WTS_CONNECTSTATE_CLASS
WTSActive
WTSConnected
WTSConnectQuery
WTSShadow
WTSDisconnected
WTSIdle
WTSListen
WTSReset
WTSDown
WTSInit
End Enum

Private Enum WTS_INFO_CLASS
WTSInitialProgram
WTSApplicationName
WTSWorkingDirectory
WTSOEMId
WTSSessionId
WTSUserName
WTSWinStationName
WTSDomainName
WTSConnectState
WTSClientBuildNumber
WTSClientName
WTSClientDirectory
WTSClientProductId
WTSClientHardwareId
WTSClientAddress
WTSClientDisplay
WTSClientProtocolType
WTSIdleTime
WTSLogonTime
WTSIncomingBytes
WTSOutgoingBytes
WTSIncomingFrames
WTSOutgoingFrames
WTSClientInfo
WTSSessionInfo
WTSConfigInfo
WTSValidationInfo
WTSSessionAddressV4
WTSIsRemoteSession
End Enum
#End Region

‘fonte: http://www.codeproject.com/Articles/111430/Grabbing-Information-of-a-Terminal-Services-Sessio
‘Public Sub Test()
‘ Dim pServer As IntPtr = IntPtr.Zero
‘ Dim sUserName As String = String.Empty
‘ Dim sDomain As String = String.Empty
‘ Dim sClientName As String = String.Empty
‘ Dim sSessionId As String = String.Empty
‘ Dim sClientApplicationDirectory As String = String.Empty
‘ Dim sIPAddress As String = String.Empty

‘ Dim oClientAddres As WTS_CLIENT_ADDRESS = New WTS_CLIENT_ADDRESS()
‘ Dim oClientDisplay As WTS_CLIENT_DISPLAY = New WTS_CLIENT_DISPLAY()

‘ Dim pSessionInfo As IntPtr = IntPtr.Zero

‘ Dim iCount As Integer = 0
‘ Dim iReturnValue As Integer = WTSEnumerateSessions(pServer, 0, 1, pSessionInfo, iCount)
‘ ‘dim iDataSize as Integer = Marshal.SizeOf(typeof(WTS_SESSION_INFO))
‘ Dim iDataSize As Integer = Marshal.SizeOf(GetType(WTS_SESSION_INFO))

‘ Dim iCurrent As Integer = pSessionInfo.ToInt32
‘ Dim _Message As String = String.Empty

‘ Dim _ThisProcess As Process = Process.GetCurrentProcess()
‘ Dim _SessionId As Integer = _ThisProcess.SessionId
‘ _Message += “Session ID:” + _SessionId.ToString

‘ If (iReturnValue 0) Then

‘ ‘Go to all sessions
‘ For i As Integer = 0 To iCount – 1
‘ _Message += ” ” + i.ToString

‘ Dim oSessionInfo As WTS_SESSION_INFO = _
‘ CType(Marshal.PtrToStructure(New IntPtr(iCurrent), _
‘ GetType(WTS_SESSION_INFO)), WTS_SESSION_INFO)
‘ iCurrent += iDataSize

‘ Dim iReturned As UInteger = 0

‘ ‘Get the IP address of the Terminal Services User
‘ Dim pAddress As IntPtr = IntPtr.Zero
‘ If (WTSQuerySessionInformation(pServer, _
‘ oSessionInfo.iSessionID, WTS_INFO_CLASS.WTSClientAddress, _
‘ pAddress, iReturned) = True) Then

‘ oClientAddres = DirectCast(Marshal.PtrToStructure _
‘ (pAddress, oClientAddres.GetType()), WTS_CLIENT_ADDRESS)
‘ sIPAddress = oClientAddres.bAddress(2).ToString() + “.” + _
‘ oClientAddres.bAddress(3).ToString() + “.” + oClientAddres.bAddress(4).ToString() _
‘ + “.” + oClientAddres.bAddress(5).ToString()
‘ _Message += ” IPAddress:” + sIPAddress
‘ End If
‘ ‘Get the User Name of the Terminal Services User
‘ If (WTSQuerySessionInformation(pServer, _
‘ oSessionInfo.iSessionID, WTS_INFO_CLASS.WTSUserName, _
‘ pAddress, iReturned) = True) Then
‘ ‘sUserName = Marshal.PtrToStringAnsi(pAddress) ‘, CType(iReturned, Integer))
‘ sUserName = Marshal.PtrToStringUni(pAddress)
‘ _Message += ” UserName:” + sUserName
‘ End If
‘ ‘Get the Domain Name of the Terminal Services User
‘ If (WTSQuerySessionInformation(pServer, _
‘ oSessionInfo.iSessionID, WTS_INFO_CLASS.WTSDomainName, _
‘ pAddress, iReturned) = True) Then
‘ ‘sDomain = Marshal.PtrToStringAnsi(pAddress, CType(iReturned, Integer))
‘ sDomain = Marshal.PtrToStringUni(pAddress)
‘ _Message += ” Domain:” + sDomain
‘ End If
‘ ‘Get the User Name of the Terminal Services User
‘ If (WTSQuerySessionInformation(pServer, _
‘ oSessionInfo.iSessionID, WTS_INFO_CLASS.WTSClientName, _
‘ pAddress, iReturned) = True) Then
‘ ‘sUserName = Marshal.PtrToStringAnsi(pAddress) ‘, CType(iReturned, Integer))
‘ sClientName = Marshal.PtrToStringUni(pAddress)
‘ _Message += ” ClientName:” + sClientName
‘ End If
‘ ‘Get the Domain Name of the Terminal Services User
‘ If (WTSQuerySessionInformation(pServer, _
‘ oSessionInfo.iSessionID, WTS_INFO_CLASS.WTSSessionId, _
‘ pAddress, iReturned) = True) Then
‘ ‘sDomain = Marshal.PtrToStringAnsi(pAddress, CType(iReturned, Integer))
‘ sSessionId = Marshal.PtrToStringUni(pAddress)
‘ _Message += ” SessionId:” + sSessionId
‘ End If
‘ ”Get the Display Information of the Terminal Services User
‘ ‘If (WTSQuerySessionInformation(pServer, _
‘ ‘ oSessionInfo.iSessionID, WTS_INFO_CLASS.WTSClientDisplay, _
‘ ‘ pAddress, iReturned) = True) Then
‘ ‘ oClientDisplay = CType(Marshal.PtrToStructure _
‘ ‘ (pAddress, oClientDisplay.GetType()), WTS_CLIENT_DISPLAY)
‘ ‘End If
‘ ”Get the Application Directory of the Terminal Services User
‘ ‘If (WTSQuerySessionInformation(pServer, oSessionInfo.iSessionID, _
‘ ‘ WTS_INFO_CLASS.WTSClientDirectory, pAddress, iReturned) = True) Then
‘ ‘ ‘sClientApplicationDirectory = Marshal.PtrToStringAnsi(pAddress)
‘ ‘ sClientApplicationDirectory = Marshal.PtrToStringUni(pAddress)
‘ ‘End If
‘ Next

‘ WTSFreeMemory(pSessionInfo)
‘ End If

‘ Dim _logger As ILog = LogManager.GetLogger(“IDE”)
‘ _logger.Debug(_Message)
‘End Sub

Public Function ClientName(ByVal p_LocalName As String) As String
Dim pServer As IntPtr = IntPtr.Zero
Dim sClientName As String = p_LocalName

Dim pSessionInfo As IntPtr = IntPtr.Zero

Dim iCount As Integer = 0
Dim iReturnValue As Integer = WTSEnumerateSessions(pServer, 0, 1, pSessionInfo, iCount)
‘dim iDataSize as Integer = Marshal.SizeOf(typeof(WTS_SESSION_INFO))
Dim iDataSize As Integer = Marshal.SizeOf(GetType(WTS_SESSION_INFO))

Dim iCurrent As Integer = pSessionInfo.ToInt32
Dim oSessionInfo As WTS_SESSION_INFO
If (iReturnValue 0) Then

Dim _ThisProcess As Process = Process.GetCurrentProcess()
Dim _SessionId As Integer = _ThisProcess.SessionId
If _SessionId 0 Then
sClientName = _Name
End If
End If
End If
WTSFreeMemory(pSessionInfo)
End If
Return sClientName
End Function
End Class

rsProcessingAborted
rsInvalidDataSourceCredentialSettingForITokenDataExtension

I googeled those messages but didnt find anything.
Can u help me ?

Greetings
Thomas S.

The idea would be to add all of the missing items so that they could be set in code.

It would be helpful to see not only how they get set, but how they would then get used in code..

Thanks in advance.

Scott

Here is some sample code….

[DirectoryProperty("initials")]
public string initials
{
get
{
object[] result = this.ExtensionGet(“initials”);
if (result != null)
{
return (string)result[0];
}
else
{
return null;
}
}
set { this.ExtensionSet(“initials”, value); }
}

How do i make the numbers fit inside the image.? Few numbers are not visible fully since I changed the height to 50 and the numbers are getting cut

I think the instructions above just assume the default name is correct, which it might be on a single-server test farm.