mhwlng
April 11th, 2004, 05:56 AM
Just a tip (for win32 users) :
If your home theatre/JRMC/Girder PC uses XP, then it has a stripped down version of terminal server on board (called remote assistance, only one client can be active)
You can take over the desktop of that pc from another pc using any terminal server client.
On an xp machine, you can use the mstsc.exe program pre-installed in the windows\system32 directory.
There is also an active-x control terminal server client available, meant for use in web pages.
But it also works directly from netremote :
the ocx can be downloaded here (first check if it isn't already installed !!)
http://www.microsoft.com/windowsxp/pro/downloads/rdwebconn.asp
After installation, double click on C:\Inetpub\wwwroot\TSWeb\default.htm
a popup should appear asking you to install the ocx.
then in tonto create a button called NRREMOTE (or whatever)
IR action
{9059f30f-4eb1-4bd2-9fdc-36f43a218f4a}
NRREMOTE.Server:=BSTR(192.168.1.6)
NRREMOTE.UserName:=BSTR(Administrator)
NRREMOTE.Connect()
data
5001 0000 0000 0002 fc19 0000 0031 0000
change the ip address to your server name and user name to whatever is required. You still need to type in the password to log in....
Note that there is only ONE IR action where you have to put each item on a different line. (press ENTER, not OK)
Also Note, that for some reason, if the focus is lost from the ocx (e.g. by clicking on some NR button on the same page or switching to another application) that the mouse/keyboard stops working inside the ocx. (exit the panel with the ocx and enter it again to get going again...)
To automatically log on, you would have to do something like :
NRREMOTE.AdvancedSettings2.ClearTextPassword:= BSTR(secret)
BUT, only base variable types are supported, so this doesn't work in NR (AdvancedSettings2 is of type IMsRdpClientAdvancedSettings)
Correct me if I am wrong here, Ben :D
<UPDATE>
I created a simple wrapper OCX, that supports auto login by allowing :
NRREMOTE.ClearTextPassword:= BSTR(secret)
instead of :
NRREMOTE.AdvancedSettings2.ClearTextPassword:= BSTR(secret)
Option Explicit
Private Const m_def_UserName = ""
Private Const m_def_Server = ""
Private Const m_def_ClearTextPassword = ""
Private m_UserName As String
Private m_Server As String
Private m_ClearTextPassword As String
Private Sub UserControl_Initialize()
MsRdpClient1.Top = 0
MsRdpClient1.Left = 0
End Sub
Private Sub UserControl_Resize()
MsRdpClient1.Width = Width
MsRdpClient1.Height = Height
End Sub
Private Sub UserControl_InitProperties()
m_UserName = m_def_UserName
m_Server = m_def_Server
m_ClearTextPassword = m_def_ClearTextPassword
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_UserName = PropBag.ReadProperty("UserName", m_def_UserName)
m_Server = PropBag.ReadProperty("Server", m_def_Server)
m_ClearTextPassword = PropBag.ReadProperty("ClearTextPassword", m_def_ClearTextPassword)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "UserName", m_UserName, m_def_UserName
PropBag.WriteProperty "Server", m_Server, m_def_Server
PropBag.WriteProperty "ClearTextPassword", m_ClearTextPassword, m_def_ClearTextPassword
End Sub
Public Property Get UserName() As String
UserName = m_UserName
End Property
Public Property Let UserName(ByVal New_UserName As String)
m_UserName = New_UserName
PropertyChanged "UserName"
End Property
Public Property Get Server() As String
Server = m_Server
End Property
Public Property Let Server(ByVal New_Server As String)
m_Server = New_Server
PropertyChanged "Server"
End Property
Public Property Get ClearTextPassword() As String
ClearTextPassword = m_ClearTextPassword
End Property
Public Property Let ClearTextPassword(ByVal New_ClearTextPassword As String)
m_ClearTextPassword = New_ClearTextPassword
PropertyChanged "ClearTextPassword"
End Property
Public Sub Connect()
On Error Resume Next
MsRdpClient1.SecuredSettings.AudioRedirectionMode = 1 ' play sounds at the remote computer
MsRdpClient1.SecuredSettings.KeyboardHookMode = 2 'Only apply key combinations to the remote server when the client is running in full screen mode
MsRdpClient1.Server = m_Server
MsRdpClient1.UserName = m_UserName
MsRdpClient1.AdvancedSettings2.ClearTextPassword = ClearTextPassword
MsRdpClient1.Connect
End Sub
Public Sub Disconnect()
On Error Resume Next
MsRdpClient1.Disconnect
End Sub
Marcel
If your home theatre/JRMC/Girder PC uses XP, then it has a stripped down version of terminal server on board (called remote assistance, only one client can be active)
You can take over the desktop of that pc from another pc using any terminal server client.
On an xp machine, you can use the mstsc.exe program pre-installed in the windows\system32 directory.
There is also an active-x control terminal server client available, meant for use in web pages.
But it also works directly from netremote :
the ocx can be downloaded here (first check if it isn't already installed !!)
http://www.microsoft.com/windowsxp/pro/downloads/rdwebconn.asp
After installation, double click on C:\Inetpub\wwwroot\TSWeb\default.htm
a popup should appear asking you to install the ocx.
then in tonto create a button called NRREMOTE (or whatever)
IR action
{9059f30f-4eb1-4bd2-9fdc-36f43a218f4a}
NRREMOTE.Server:=BSTR(192.168.1.6)
NRREMOTE.UserName:=BSTR(Administrator)
NRREMOTE.Connect()
data
5001 0000 0000 0002 fc19 0000 0031 0000
change the ip address to your server name and user name to whatever is required. You still need to type in the password to log in....
Note that there is only ONE IR action where you have to put each item on a different line. (press ENTER, not OK)
Also Note, that for some reason, if the focus is lost from the ocx (e.g. by clicking on some NR button on the same page or switching to another application) that the mouse/keyboard stops working inside the ocx. (exit the panel with the ocx and enter it again to get going again...)
To automatically log on, you would have to do something like :
NRREMOTE.AdvancedSettings2.ClearTextPassword:= BSTR(secret)
BUT, only base variable types are supported, so this doesn't work in NR (AdvancedSettings2 is of type IMsRdpClientAdvancedSettings)
Correct me if I am wrong here, Ben :D
<UPDATE>
I created a simple wrapper OCX, that supports auto login by allowing :
NRREMOTE.ClearTextPassword:= BSTR(secret)
instead of :
NRREMOTE.AdvancedSettings2.ClearTextPassword:= BSTR(secret)
Option Explicit
Private Const m_def_UserName = ""
Private Const m_def_Server = ""
Private Const m_def_ClearTextPassword = ""
Private m_UserName As String
Private m_Server As String
Private m_ClearTextPassword As String
Private Sub UserControl_Initialize()
MsRdpClient1.Top = 0
MsRdpClient1.Left = 0
End Sub
Private Sub UserControl_Resize()
MsRdpClient1.Width = Width
MsRdpClient1.Height = Height
End Sub
Private Sub UserControl_InitProperties()
m_UserName = m_def_UserName
m_Server = m_def_Server
m_ClearTextPassword = m_def_ClearTextPassword
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_UserName = PropBag.ReadProperty("UserName", m_def_UserName)
m_Server = PropBag.ReadProperty("Server", m_def_Server)
m_ClearTextPassword = PropBag.ReadProperty("ClearTextPassword", m_def_ClearTextPassword)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "UserName", m_UserName, m_def_UserName
PropBag.WriteProperty "Server", m_Server, m_def_Server
PropBag.WriteProperty "ClearTextPassword", m_ClearTextPassword, m_def_ClearTextPassword
End Sub
Public Property Get UserName() As String
UserName = m_UserName
End Property
Public Property Let UserName(ByVal New_UserName As String)
m_UserName = New_UserName
PropertyChanged "UserName"
End Property
Public Property Get Server() As String
Server = m_Server
End Property
Public Property Let Server(ByVal New_Server As String)
m_Server = New_Server
PropertyChanged "Server"
End Property
Public Property Get ClearTextPassword() As String
ClearTextPassword = m_ClearTextPassword
End Property
Public Property Let ClearTextPassword(ByVal New_ClearTextPassword As String)
m_ClearTextPassword = New_ClearTextPassword
PropertyChanged "ClearTextPassword"
End Property
Public Sub Connect()
On Error Resume Next
MsRdpClient1.SecuredSettings.AudioRedirectionMode = 1 ' play sounds at the remote computer
MsRdpClient1.SecuredSettings.KeyboardHookMode = 2 'Only apply key combinations to the remote server when the client is running in full screen mode
MsRdpClient1.Server = m_Server
MsRdpClient1.UserName = m_UserName
MsRdpClient1.AdvancedSettings2.ClearTextPassword = ClearTextPassword
MsRdpClient1.Connect
End Sub
Public Sub Disconnect()
On Error Resume Next
MsRdpClient1.Disconnect
End Sub
Marcel