Solved

Using RDP in  802.1x

Posted on 2008-10-31
3
2,100 Views
Last Modified: 2012-08-14
We have a corporate network of over 1500 XP users and are in the process of implementing 802.1x authentication>  We have one concern that will cause issues for our help desk.

Once a user is logged of, for whatever reason, our help desk can not get to the system via RDP to perform after hours maintenance to troubleshooting. We are using a park zone of 198.168.x.x.  

I thought about setting up a workstation on this network to allow for RDP to the target system but logically it does not seem like it would be doable.

Anyone have any tried and true methods to accomplish my goal?
0
Comment
Question by:gordonmann
3 Comments
 
LVL 18

Accepted Solution

by:
sk_raja_raja earned 500 total points
ID: 22853435
0
 
LVL 1

Expert Comment

by:141ANG
ID: 22854204
You could also try running the remote desktop web connection by building an htm page with this code. I have it defaulting to our ideal settings but it is all configurable.
<html>

<head>

<title>Remote Desktop Web Connection</title>

<style type="text/css" media="screen">

p { color:"#000000"; font-family: "Verdana, Arial, Helvetica"; font-size:"65%"}

h1 { font-size: 100%; font-family: verdana, arial, helvetica; font-weight: bold;

		margin-top: 0em;}

p.indent { margin-left: 3em; margin-top: .5em; line-height: 1.25em; margin-bottom: .2em; margin-right: 1em;}

.button {

	FONT-FAMILY: Verdana, Helvetica, Arial, San-Serif;

	font-weight:normal;

	font-size:70%;

	color:#000000;

	background-color:#ffffff;

	border-color:#6699ff;

	margin-top:6pt;

	margin-left: .5em;
 

}

.topspace {margin-top: .08em; }

</style>

</head>
 

<body bgcolor="#ffffff">

<script language="vbscript">

<!--

          username = Request.ServerVariables("AUTH_USER")
 

          If Len(username) = 0 Then

      response.write("<br>Error logging in - please try again!<br>")

          End If
 

          domainLen = InStr(username, "\")

          if domainLen = 0 then

                   username = Mid(username, 6, (Len(username)-6))      '<------ alter the 6 to the length of your domain name

          else

                  username = Mid(username, (domainLen+1), (Len(username)-domainLen))

          end if

          username = Lcase(username)

          session("user") = username                '<--------------- sets the username

          session("pass") = Request.ServerVariables("AUTH_PASSWORD").ToString()    '<--------------- sets the password

const L_FullScreenWarn1_Text = "Your current security settings do not allow automatically switching to fullscreen mode."

const L_FullScreenWarn2_Text = "You can use ctrl-alt-pause to toggle your remote desktop session to fullscreen mode"

const L_FullScreenTitle_Text = "Remote Desktop Web Connection "

const L_ErrMsg_Text         = "Error connecting to remote computer: "

const L_PlatformCheck_ErrorMessage = "The Remote Desktop Web connection ActiveX control can only run in the 32-bit version of Internet Explorer."
 

' error messages

const L_RemoteDesktopCaption_ErrorMessage =  "Remote Desktop Connection"

const L_DisconnectedCaption_ErrorMessage =  "Remote Desktop Disconnected"

const L_ErrConnectCallFailed_ErrorMessage =  "An error occurred when the client attempted to connect to the remote computer. Check your system memory and then try the connection again."

const L_DisconnectRemoteByServer_ErrorMessage = "The remote computer has ended the connection."

const L_LowMemory_ErrorMessage = "The local computer is low on memory. Close some programs, and then connect to the remote computer again."

const L_SecurityErr_ErrorMessage = "Because of a security error, the client could not connect to the remote computer. Verify that you are logged on to the network, and then try connecting again."

const L_BadServerName_ErrorMessage = "The specified remote computer could not be found. Verify that you have typed the correct computer name or IP address, and then try connecting again."

const L_ConnectFailedProtocol_ErrorMessage = "Because of a protocol error, the client could not connect to the remote computer. Please try connecting to the remote computer again. If the client still fails to connect, contact your network administrator."

const L_CannotLoopBackConnect_ErrorMessage = "The client could not connect. You cannot connect to the console from a console session of the same computer."

const L_NetworkErr_ErrorMessage = "The connection was ended because of a network error. Please try connecting to the remote computer again."

const L_InternalErr_ErrorMessage = "An internal error has occurred."

const L_NotResponding_ErrorMessage = "The client could not connect to the remote computer. Remote connections might not be enabled or the computer might be too busy to accept new connections.It is also possible that network problems are preventing your connection.Please try connecting again later. If the problem continues to occur, contact your administrator."

const L_VersionMismatch_ErrorMessage = "Client and server versions do not match. Please upgrade your client software and then try connecting again."

const L_EncryptionError_ErrorMessage = "Because of an error in data encryption, this session will end. Please try connecting to the remote computer again."

const L_ProtocolErr_ErrorMessage = "Because of a protocol error, this session will be disconnected. Please try connecting to the remote computer again."

const L_IllegalServerName_ErrorMessage = "The specified computer name contains invalid characters. Please verify the name and try again."

const L_ConnectionTimeout_ErrorMessage = "The remote connection has timed out. Please try connecting to the remote computer again."

const L_DisconnectIdleTimeout_ErrorMessage = "The remote session was ended because the idle timeout limit was reached. This limit is set by the server administrator or by network policies."

const L_DisconnectLogonTimeout_ErrorMessage ="The remote session ended because the total logon time limit was reached. This limit is set by the server administrator or by network policies."

const L_ProtocolErrWITHCODE_ErrorMessage  = "Client disconnected due to internal protocol error: "

const L_LicensingTimeout_ErrorMessage = "A licensing error occurred while the client was attempting to connect (Licensing timed out).Please try connecting to the remote computer again."

const L_LicensingNegotFailed_ErrorMessage = "The remote computer disconnected the session because of an error in the licensing protocol.Please try connecting to the remote computer again or contact your server administrator."

const L_DisconnectRemoteByServerTool_ErrorMessage = "The remote session to the remote computer was ended by means of an administration tool.Your administrator might have ended your connection."

const L_LogoffRemoteByServer_ErrorMessage = "The remote session was disconnected because your session was logged off at the remote computer.Your administrator or another user might have ended your connection."

const L_DisconnectByOtherConnection_ErrorMessage = "The remote session was disconnected because another user has connected to the session."

const L_ConnectionBroken_ErrorMessage  = "The connection to the remote computer was broken. This may have been caused by a network error.Please try connecting to the remote computer again."

const L_ServerOutOfMemory_ErrorMessage = "The connection was disconnected because the remote computer is low on memory."

const L_LicenseInternal_ErrorMessage = "The remote session was disconnected because there was an internal error in the remote computer's licensing protocol."

const L_NoLicenseServer_ErrorMessage = "The remote session was disconnected because there are no Terminal Server License Servers available to provide a license.Please contact the server administrator."

const L_NoLicense_ErrorMessage = "The remote session was disconnected because there are no Terminal Server client access licenses available for this computer.Please contact the server administrator."

const L_LicenseBadClientMsg_ErrorMessage = "The remote session was disconnected because the remote computer received an invalid licensing message from this computer."

const L_LicenseHwidDoesntMatch_ErrorMessage = "The remote session was disconnected because the Terminal Server client access license stored on this computer has been modified."

const L_BadClientLicense_ErrorMessage = "The remote session was disconnected because the Terminal Server client access license stored on this computer is in an invalid format."

const L_LicenseCantFinishProtocol_ErrorMessage = "The remote session was disconnected because there were network problems during the licensing protocol.Please try connecting to the remote computer again."

const L_LicenseClientEndedProtocol_ErrorMessage = "The remote session was disconnected because the client prematurely ended the licensing protocol."

const L_LicenseBadClientEncryption_ErrorMessage = "The remote session was disconnected because a licensing message was incorrectly encrypted."

const L_CantUpgradeLicense_ErrorMessage = "The remote session was disconnected because the local computer's client access license could not be upgraded or renewed.Please contact the server administrator."

const L_LicenseNoRemoteConnections_ErrorMessage = "The remote session was disconnected because the remote computer is not licensed to accept remote connections.Please contact the server administrator."

const L_DecompressionFailed_ErrorMessage = "The remote session was disconnected because of a decompression failure at the client side. Please try connecting to the remote computer again."

const L_ServerDeniedConnection_ErrorMessage ="The client could not establish a connection to the remote computer.The most likely causes for this error are:1) Remote connections might not be enabled at the remote computer.2) The maximum number of connections was exceeded at the remote computer.3) A network error occurred while establishing the connection."

const L_ControlLoadFailed_ErrorMessage= "Remote Desktop Web Connection ActiveX control could not be installed. A connection cannot be made without a working installed version of the control. Please contact the server administrator."

const L_InvalidServerName_ErrorMessage = "An invalid server name was specified."
 

sub window_onload()

   if not LCase(Navigator.CpuClass) = "x86" then

      msgbox L_PlatformCheck_ErrorMessage

   end if

   if not autoConnect() then

       Document.all.editServer.Focus

   end if

end sub
 

function autoConnect()

	Dim sServer

	Dim iFS, iAutoConnect
 
 

	sServer = getQS ("Server")

	iAutoConnect = getQS ("AutoConnect")

	iFS = getQS ("FS")
 

	if NOT IsNumeric ( iFS ) then

		iFS = 0

	else

		iFS = CInt ( iFS )

	end if
 

	if iAutoConnect <> 1 then

		autoConnect = false

		exit function

	else

		if iFS < 0 or iFS >= Document.all.comboResolution.options.length then

			iFS = 0

		end if
 

		if IsNull ( sServer ) or sServer = "" then

			sServer = window.location.hostname

		end if
 

		Document.all.comboResolution.selectedIndex	= iFS

		Document.all.Server.value = sServer
 

		btnConnect ()
 

		autoConnect = true

	end if
 

end function
 

function getQS ( sKey )

	Dim iKeyPos, iDelimPos, iEndPos

	Dim sURL, sRetVal

	iKeyPos = iDelimPos = iEndPos = 0

	sURL = window.location.href
 

	if sKey = "" Or Len(sKey) < 1 then

		getQS = ""

		exit function

	end if
 

	iKeyPos = InStr ( 1, sURL, sKey )
 

	if iKeyPos = 0 then

		sRetVal = ""

		exit function

	end if
 

	iDelimPos = InStr ( iKeyPos, sURL, "=" )

	iEndPos = InStr ( iDelimPos, sURL, "&" )
 

	if iEndPos = 0 then

		sRetVal = Mid ( sURL, iDelimPos + 1 )

	else

		sRetVal = Mid ( sURL, iDelimPos + 1, iEndPos - iDelimPos - 1 )

	end if
 

	getQS = sRetVal

end function
 

sub checkClick

      if Document.all.Check1.Checked then

         Document.all.tableLogonInfo.style.display = ""

         Document.all.editUserName.Disabled = false

         Document.all.editDomain.Disabled = false

      else

         Document.all.tableLogonInfo.style.display = "none"

         Document.all.editUserName.Disabled = true

         Document.all.editDomain.Disabled = true

      end if

end sub
 

sub OnControlLoadError

    msgbox L_ControlLoadFailed_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessage

end sub
 

sub OnControlLoad

   set Control = Document.getElementById("MsRdpClient")

   if Not Control is Nothing then

      if Control.readyState = 4 then

         Document.all.connectButton.disabled = FALSE

      end if

   end if

end sub
 
 

sub BtnConnect

   Dim serverName

   'server

   if not Document.all.Server.value = "" then

      serverName = Document.all.Server.value

   else

      serverName = Document.location.hostname

   end if

   

   serverName = trim(serverName)

   

   On Error Resume Next

   MsRdpClient.server = serverName

   If Err then 

      msgbox L_InvalidServerName_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessage

      Err.Clear

      exit sub

   end if

   On Error Goto 0

   

   'serverName name text

   Document.all.srvNameField.innerHtml = serverName

   

   'Username/Domain

   if Document.all.CheckBoxAutoLogon.checked then

      MsRdpClient.UserName.value = objNetwork.UserName

      MsRdpClient.Domain.value = objNetwork.UserDomain & "\"

   end if

   

   'Resolution

   MsRdpClient.FullScreen = FALSE

   select case document.all.comboResolution.value

   case "1"

      MsRdpClient.FullScreen = TRUE

      resWidth  = screen.width

      resHeight = screen.height

   case "2"

      resWidth  = "640"

      resHeight = "480"

   case "3"

      resWidth  = "800"

      resHeight = "600"

   case "4"

      resWidth  = "1024"

      resHeight = "768"

   case "5"

      resWidth  = "1280"

      resHeight = "1024"

   case "6"

      resWidth  = "1600"

      resHeight = "1200"

     

   end select

   MsRdpClient.DesktopWidth = resWidth

   MsRdpClient.DesktopHeight = resHeight

   

   

   MsRdpClient.Width = resWidth

   MsRdpClient.Height = resHeight

   MsRdpClient.AdvancedSettings2.SmartSizing = TRUE
 

   'Software redirection options

   select case document.all.SelectApp.value

   case "7"

   MsRdpClient.SecuredSettings.StartProgram = "C:\Program Files\NetIQ\DRA\UserConsole.exe"

   case "8"

   MsRdpClient.SecuredSettings.StartProgram = "F:\Program Files\DameWare\DameWare NT Utilities\DNTU.exe"

   case "9"

   MsRdpClient.SecuredSettings.StartProgram = "C:\offerremote.bat"

   case "10"

   MsRdpClient.SecuredSettings.StartProgram = "C:\launchoffice.bat"

   case "11"

   MsRdpClient.SecuredSettings.StartProgram = "C:\windows\explorer.exe"

   end select
 
 

   'Device redirection options

   if Document.all.CheckBoxSmartCards.checked then MsRdpClient.AdvancedSettings2.RedirectSmartCards = TRUE else MsRdpClient.AdvancedSettings2.RedirectSmartCards = FALSE

   MsRdpClient.AdvancedSettings2.RedirectDrives = FALSE

   if Document.all.CheckBoxPrinter.checked then MsRdpClient.AdvancedSettings2.RedirectPrinters = TRUE else MsRdpClient.AdvancedSettings2.RedirectPrinters = FALSE

   MsRdpClient.AdvancedSettings2.RedirectPorts = FALSE

   MsRdpClient.AdvancedSettings2.EnableAutoReconnect = TRUE

   

    'FullScreen title

   MsRdpClient.FullScreenTitle = L_FullScreenTitle_Text & "(" & serverName & ")"

   

   'Display connect region

   Document.all.loginArea.style.display = "none"

   Document.all.connectArea.style.display = "block"

   

   'Connect

   MsRdpClient.Connect

end sub
 

-->
 

</script>
 

<!--   

-->
 

<!-- =========================LOGIN AREA   ==========================

-->

<div id=loginArea>

<font size="4">
 
 
 
 
 

<img border="0" src="images\win2000l.gif" id=leftalign align="left" width="124" height="123" hspace="10"></font><font id=Tahoma1 face="Tahoma" size="1"><br>

</font><font size="6" id=Tahoma2 face="Tahoma">

<img border="0" src="images\win2000r.gif" hspace="0" vspace="7" width="145" height="45"></font><font id=Tahoma3 face="Tahoma" size="4"><br>

</font><b>

<font id=Tahoma4 face="Tahoma" size="4"><ID id=bigtitle>Remote Desktop Web Connection </ID></font></b><p>&nbsp;</p>
 

<table border="0" width="640" cellspacing="0" cellpadding=0 style="margin-top: -1em;">

<!-- Graphic bar row  -->

<tr>

<td width="50%"></td>

<td colspan=3 align="left" valign="middle">

<img src="images\bluebarh.gif" alt="blue bar graphic" width="325" height="8"></td>

</tr> 

<!-- Row 1 -->

    <tr>

<!-- Column 1 spans 4 rows -->

    <td valign="top" width="50% "rowspan=4>

          <p class=indent><ID id=remotecomputername>Type the name of the remote computer you want to use, select the screen size for your connection, and then click <b>Connect</b>.</ID></p>

          <p class=indent><ID id=helpfultip1>When the connection page opens, you can add it to your Favorites for easy connection to the same computer.</ID></p>

    </td>

<!-- Column 2 spans 4 rows-->

	<td rowspan=4 valign="top" align="left">

    <img src="images\bluebarv.gif" alt="blue bar graphic" border=0 width="8" height="330">

	</td>

	

<!-- Column 3 -->		

    <td id="ServerNameKeyWidth" style="width:10%;" valign="middle">     

         <label id=ServerNameKey accessKey="S" for="editServer">

         <br><p align="right">&nbsp;<ID id=ServerName><u>S</u>erver:</ID></label><p></p>

         </td>

		  

<!-- Column 4 -->		  

	<td id="ServerKeyWidth" width="40%" valign="bottom">

	<br>&nbsp;&nbsp;

        <input type="text" name="Server" size="41" id="editServer" value="______">

	

	</td>

	</tr>

<!-- Row 2 -->

<tr>

<!-- Column 3 -->

<td valign="middle">

<p align="right"><label id=sizeKey accessKey="Z" for="comboRes" class="sizespace"><ID id=size>

Si<u>z</u>e:</ID></p></td>

<!-- Column 4 -->

<td valign="bottom">&nbsp;&nbsp;<select size="1" name="comboResolution" id=comboRes class="topspace">

              <option value="1"><id id="option1">  Full-screen</id></option>

              <option value="2"><id id="option2">  640 by 480</id></option>

              <option value="3"><id id="option3">  800 by 600</id></option>

              <option value="4" selected=""><id id="option4">  1024 by 768</id></option>

              <option value="5"><ID id=option5>1280 by 1024</ID></option>

              <option value="6"><ID id=option6>1600 by 1200</ID></option>

              <option value="7"><id id="option7">Smart-Sizing</id></option>

            </select> </label>

</td>

</tr>

<!-- Row 3 -->

<tr>

<!-- Column 3 -->

<td></td>

<!-- Column 4 -->

<td align="bottom">			

	 <p class=topspace>&nbsp;<input type="checkbox" name="CheckBoxAutoLogon" ID=Check1 value="OFF" onclick = "checkClick"><label for="Check1" ID=SendLogonKey accesskey="l"><ID id=logoninfo>Send <u>l</u>ogon information for this connection&nbsp;</ID></label><br>

<p class=topspace>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="CheckBoxPrinter" ID=Check4 value="OFF"><label for="Check4" ID=ConnectPrinters accesskey="p"><ID id ConnectPrinters>Connect Printers</ID></label><br>

<p class=topspace>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="CheckBoxSmartCards" ID=Check3 value="Off"><ID id ConnectSmartCards>Connect Smart Cards</ID><br>

<p class=topspace><label for="Check3" ID=ConnectSmartCards accesskey="p">

<form method="post">

	<select name="SelectApp">

	<option selected="" value="7">DRA-G</option>

	<option value="8">DameWare</option>

	<option value="9">Offer Remote Assistance</option>	

	<option value="10">Microsoft Office</option>

	<option value="11">Full Server Interaction</option>

	</select></form>

Select Remote Application</label><br>
 

<span ID="tableLogonInfo" style="display: none">
 

            <p align="right" class=topspace>

			<br> 

			<ID id=usernamelabel><u>U</u>ser&nbsp;name:</ID>

                <label id=UserNameKey accessKey="U" for="editUserName"><input type="text" name="UserName" id=editUserName value= objNetwork.UserName size="25"></label><br>

			<ID id=domainlabel><u>D</u>omain:</ID>

          <label id=editDomainKey accessKey="D" for="editDomain">

          <input type="text" name="Domain" id=editDomain size="25" value="ANG"></label></p></span>	

          <input type="submit" id=connectbutton value="Connect" disabled="TRUE" name="ButtonLogin" OnClick=BtnConnect class="button">

</td>

</tr>

<!-- Row 4 -->

<tr>

<!-- Column 3 -->

<td  height="215">&nbsp;</td>

<!-- Column 4 -->

<td>&nbsp;</td>

</tr>
 

 

     

</table>

</div>

<!-- ================================= LOGIN FORM =================

-->
 

<!-- ================================= CONNECT ====================

-->

<div id=connectArea style="display: none">

<center>

        <table>

        <tr>

        <OBJECT language="vbscript" ID="MsRdpClient"

        onerror="OnControlLoadError"

        onreadystatechange="OnControlLoad"

        CLASSID="CLSID:7584c670-2274-4efb-b00b-d6aaba6d3850"

        CODEBASE="msrdp.cab#version=5,2,3790,3959"

        WIDTH=<% resWidth = Request.QueryString("rW")

            if  resWidth < 200 or resWidth > 1600 then

               resWidth = 800

            end if

            Response.Write resWidth %>

        HEIGHT=<% resHeight = Request.QueryString("rH")

            if  resHeight < 200 or resHeight > 1200 then

               resHeight = 600

            end if

            Response.Write resHeight %>>

        </OBJECT>

        </tr>

        <tr>

        <br>

        <div id=connectDisplay style="display:none">

        <font size="1" color="#000000" id="srvfontname" face="Verdana, Arial, Helvetica">

        <ID id=loggedinsrv>Connected to </ID><i><span id="srvNameField"></span></i></font><br></div>

        </tr>

        

<script language="VBScript">

<!--

sub ReturnToConnectPage()

   Window.Navigate("rdwc.htm")

end sub
 

sub MsRdpClient_OnConnected()

   Document.All.connectDisplay.style.display = "block"

end sub
 

sub MsRdpClient_OnDisconnected(disconnectCode)

   extendedDiscReason = MsRdpClient.ExtendedDisconnectReason

   majorDiscReason = disconnectCode And &hFF
 

   if (disconnectCode = &hB08 or majorDiscReason = 2 or majorDiscReason = 1) and not (extendedDiscReason = 5) then

      'Switch back to login area

      ReturnToConnectPage

      exit sub

   end if

   

   errMsgText = L_DisconnectRemoteByServer_ErrorMessage

   if not extendedDiscReason = 0 then

      'Use the extended disconnect code

      select case extendedDiscReason

      case 0   errMsgText  = ""

      case 1   errMsgText  = L_DisconnectRemoteByServerTool_ErrorMessage

      case 2   errMsgText  = L_LogoffRemoteByServer_ErrorMessage

      case 3   errMsgText  = L_DisconnectIdleTimeout_ErrorMessage

      case 4   errMsgText  = L_DisconnectLogonTimeout_ErrorMessage

      case 5   errMsgText  = L_DisconnectByOtherConnection_ErrorMessage

      case 6   errMsgText  = L_ServerOutOfMemory_ErrorMessage

      case 7   errMsgText  = L_ServerDeniedConnection_ErrorMessage

      case 256 errMsgText  = L_LicenseInternal_ErrorMessage

      case 257 errMsgText  = L_NoLicenseServer_ErrorMessage

      case 258 errMsgText  = L_NoLicense_ErrorMessage

      case 259 errMsgText  = L_LicenseBadClientMsg_ErrorMessage

      case 260 errMsgText  = L_LicenseHwidDoesntMatch_ErrorMessage

      case 261 errMsgText  = L_BadClientLicense_ErrorMessage

      case 262 errMsgText  = L_LicenseCantFinishProtocol_ErrorMessage

      case 263 errMsgText  = L_LicenseClientEndedProtocol_ErrorMessage

      case 264 errMsgText  = L_LicenseBadClientEncryption_ErrorMessage

      case 265 errMsgText  = L_CantUpgradeLicense_ErrorMessage

      case 266 errMsgText  = L_LicenseNoRemoteConnections_ErrorMessage

      case else errMsgText = L_ErrMsg_Text

      end select

      if extendedDiscReason > 4096 then

         errMsgText = L_ProtocolErrWITHCODE_ErrorMessage  & errMsgText

      end if

   else

      ' no extended error information, use the disconnect code

      select case disconnectCode

      case 0   errMsgText  = L_ErrMsg_Text

      case 1   errMsgText  = L_ErrMsg_Text

      case 2   errMsgText  = L_ErrMsg_Text

      case 260 errMsgText  = L_BadServerName_ErrorMessage

      case 262 errMsgText  = L_LowMemory_ErrorMessage

      case 264 errMsgText  = L_ConnectionTimeout_ErrorMessage

      case 516 errMsgText  = L_NotResponding_ErrorMessage

      case 518 errMsgText  = L_LowMemory_ErrorMessage

      case 520 errMsgText  = L_BadServerName_ErrorMessage

      case 772 errMsgText  = L_NetworkErr_ErrorMessage

      case 774 errMsgText  = L_LowMemory_ErrorMessage

      case 776 errMsgText  = L_BadServerName_ErrorMessage

      case 1028 errMsgText = L_NetworkErr_ErrorMessage

      case 1030 errMsgText = L_SecurityErr_ErrorMessage

      case 1032 errMsgText = L_IllegalServerName_ErrorMessage

      case 1286 errMsgText = L_EncryptionError_ErrorMessage

      case 1288 errMsgText = L_BadServerName_ErrorMessage

      case 1540 errMsgText = L_BadServerName_ErrorMessage

      case 1542 errMsgText = L_SecurityErr_ErrorMessage

      case 1544 errMsgText = L_LowMemory_ErrorMessage

      case 1796 errMsgText = L_NotResponding_ErrorMessage

      case 1798 errMsgText = L_SecurityErr_ErrorMessage

      case 1800 errMsgText = L_CannotLoopBackConnect_ErrorMessage

      case 2052 errMsgText = L_BadServerName_ErrorMessage

      case 2056 errMsgText = L_LicensingNegotFailed_ErrorMessage

      case 2310 errMsgText = L_SecurityErr_ErrorMessage

      case 2566 errMsgText = L_SecurityErr_ErrorMessage

      case 2822 errMsgText = L_EncryptionError_ErrorMessage

      case 3078 errMsgText = L_EncryptionError_ErrorMessage

      case 3080 errMsgText = L_DecompressionFailed_ErrorMessage

      case 3334 errMsgText = L_ProtocolErr_ErrorMessage

      case 10500 errMsgText = L_ProtocolErr_ErrorMessage

      case else errMsgText = L_InternalErr_ErrorMessage

      end select

   end if

   

   msgbox errMsgText,0,L_DisconnectedCaption_ErrorMessage

   ReturnToConnectPage

   

end sub

-->

        </script>

</table>

</center>

</div>
 
 

</body>

</html>

Open in new window

0
 
LVL 1

Author Closing Comment

by:gordonmann
ID: 31512111
Not what I wanted to hear but it appears it is so.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

When you upgrade from Windows 8 to 8.1 or to Windows 10 or if you are like me you are on the Insider Program you may find yourself with many 450MB recovery partitions.  With a traditional disk that may not be a problem but with relatively smaller SS…
Quality of Service (QoS) options are nearly endless when it comes to networks today. This article is merely one example of how it can be handled in a hub-n-spoke design using a 3-tier configuration.
Windows 8 comes with a dramatically different user interface known as Metro. Notably missing from the new interface is a Start button and Start Menu. Many users do not like it, much preferring the interface of earlier versions — Windows 7, Windows X…
With the advent of Windows 10, Microsoft is pushing a Get Windows 10 icon into the notification area (system tray) of qualifying computers. There are many reasons for wanting to remove this icon. This two-part Experts Exchange video Micro Tutorial s…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now