Private Obj As IMsTscNonScriptable
Private Sub Command1_Click()
End
End Sub
 
Private Sub Command2_Click()
MsTscAx1.SetFocus
 
 
End Sub
 
Private Sub Form_Load()
 
Dim Program
Dim Pfad
Dim Server
Dim Domain
Dim Username
Dim Passwort
 
 
'Programmeinstellungen bitte hier einstellen:
 
'###############################################
Program = "F:\hsg\m.exe"
Pfad = "F:\hsg\"
Server = "fm"
Domain = "fdg"
Username = "user"
Passwort = "pass"
'###############################################
 
Me.Show
Text1.Text = Server
Text2.Text = Username
 
  Set Obj = MsTscAx1.Object
  MsTscAx1.AdvancedSettings2.RedirectDrives = False
  MsTscAx1.AdvancedSettings2.RedirectPorts = False
  MsTscAx1.AdvancedSettings2.RedirectPrinters = False
  MsTscAx1.AdvancedSettings2.RedirectSmartCards = False
  MsTscAx1.DesktopHeight = Screen.Height \ Screen.TwipsPerPixelY
  MsTscAx1.DesktopWidth = Screen.Width \ Screen.TwipsPerPixelX
  MsTscAx1.SecuredSettings.StartProgram = Program
  MsTscAx1.SecuredSettings.WorkDir = Pfad
  MsTscAx1.FullScreen = True
  MsTscAx1.Server = Server
  MsTscAx1.Domain = Domain
  MsTscAx1.Username = Username
  Obj.ClearTextPassword = Passwort
  MsTscAx1.Connect
End Sub