How To Log On to a Terminal Server Session Programmatically from Visual Basic (281417)

MORE INFORMATION

1. Log on to the Terminal Server locally as an administrator.
2. On the Start button, click Programs, click Administrative Tools, and then click Terminal Services Configuration.
3. Click on Connections.
4. In the right pane, right-click RDP-Tcp, and then choose Properties.
5. Click on the Logon Settings tab.
6. Deselect Always prompt for password, and then click OK.

Sample Code

1. Start a new Standard EXE project. Form1 is created by default.
2. On the Project menu, click to select Components, select Microsoft Terminal Services Control(redist), and then click OK. If this control is not available, see the "References" section of this article for information on how to download and install it.
3. Add one Terminal Services Control to Form1, making sure it is big enough to handle the display of the session.
4. Add three Label controls, three TextBox controls, and one CommandButton control to Form1. Make sure that Lable1 and Text1 are on the same line, and that Label2, Text2, Label3, and Text3 are on the same line.
5. Paste the following code into the General Declarations of Form1:

   ' This code only works when you set the configuration on the Server-side.
   ' Log on to the Terminal Server as an administrator
   ' Start\Programs\Administrative Tools\Terminal Services Configuration
   ' Click on Connections
   ' On the Right Pane, right-click on RDP-Tcp and choose Properties
   ' Click on the "Logon Settings" Tab
   ' Uncheck "Always prompt for password" and click OK
   
   Option Explicit
   
   Private Obj As IMsTscNonScriptable
   
   Private Sub Form_Load()
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
     Label1.Caption = "Server"
     Label2.Caption = "UserName"
     Label3.Caption = "Password"
     Command1.Caption = "Connect"
     Text3.PasswordChar = "*"
   End Sub
   
   Private Sub Command1_Click()
     Set Obj = MsTscAx1.Object
     MsTscAx1.Server = Text1.Text
     MsTscAx1.UserName = Text2.Text
     Obj.ClearTextPassword = Text3.Text
     MsTscAx1.Connect
   End Sub
   					

6. Save the project, press the F5 key to run it, and note that after you supply your username, password, and server name, you are not prompted for a logon screen at the server. Microsoft recommends that you enlarge the Terminal Server .ocx file so that you are able to manipulate the Shut Down dialog box.