<OBJECT language="vbscript" id="MsTsc" codeBase="msrdp.cab#version=5,1,2600,1095" classid="CLSID:9059f30f-4eb1-4bd2-9fdc-36f43a218f4a" width="1280" height="1024" VIEWASTEXT></OBJECT>
<script language="VBScript"> sub window_onLoad() srvTSName = Form1.txtServerName.value Form1.MsTsc.SecuredSettings.StartProgram = Form1.txtSoftDir.value Form1.MsTsc.Server = srvTSName Form1.MsTsc.AdvancedSettings2.RedirectPrinters = FALSE Form1.MsTsc.AdvancedSettings2.RedirectDrives = FALSE Form1.MsTsc.Domain = Form1.txtDomainName.value Form1.MsTsc.UserName = Form1.txtUserName.value Form1.MsTsc.AdvancedSettings2.ClearTextPassword = Form1.txtPassword.value Form1.MsTsc.Connect() end sub </script>