MSLogon single sign-on

justforthispost · Post by **justforthispost** » 2011-10-18 09:51

Hi,

we've just started to use UltraVNC and I'm still playing around with some settings. I've configured UltraVNC to use the New MSLogon feature. Works as it should so no problems there. But some of our administrators prefer an auto login option. Would it be possible for UltraVNC to see who is logged in into the workstation and then check in the Active Directory if that user is allowed to take over other workstations so that it's not needed to enter your credetials?

Kind regards

Bonji · Post by **Bonji** » 2011-10-18 14:41

I'm thinking you're referring to a single sign-on sort of feature, and as far as I know this doesn't exist (hence the location of the post

).

I wrote an application that intiates VNC connections (among lots of other stuff) and it remembers the username/password combo for subsequent VNC sessions so I only have to enter it the first time. I also added a feature to prompt because sometimes you need local credentials or for some reason alternate ones.

It's not quite as seamless as built-in functionality, but it is extremely efficient.

VMlevel666 · Post by **VMlevel666** » 2012-09-06 08:35

Would you share your application?

Bonji · Post by **Bonji** » 2012-09-14 18:28

Well, it's a heavily customized script (very similar to vbscript + GUI) that has quite a lot of client management features. It's probably more effort than it's worth for me to make it available outside my workplace.

However, I can probably provide a basic VNC Viewer wrapper based on my script that would do most of what you're asking about. I don't code in vbscript, but I could probably throw something together in that language that would do the trick. Let me see what I can come up with...

Bonji · Post by **Bonji** » 2012-09-14 19:59

Well, it's a quick and dirty script that does what I explained previously. It's also my first HTA script ever. It was the easiest way I could think of to give vbscript a GUI...which reminded me why I don't use vbscript. Anyway, I think it should get you over the hump as the code is trivial to modify going forward.

My own application actually prompts for a username and password when one has not been provided previously, but with HTA it was just easier to have textboxes that could be left filled in for future use. Anyway, I hope it's helpful.

Save the contents of the Code segment to a text file with an ".hta" extension.

Code: Select all

<title>VNC Viewer Wrapper</title>
<HTA:APPLICATION 
	ID="objVNCWrap"
	INNERBORDER="no"
	MAXIMIZEBUTTON="no"
	MINIMIZEBUTTON="no"
	CONTEXTMENU="no"
	APPLICATIONNAME="VNCWrap"
	SCROLL="no"
	SINGLEINSTANCE="no"
>
</head>
<style>
BODY
{
   background-color: buttonface;
   font-family: Helvetica;
   font-size: 10pt;
   margin-top: 10px;
   margin-left: 20px;
   margin-right: 20px;
   margin-bottom: 10px;
}
.button
{
   font-family: Helvetica;
   font-size: 8pt;
   width: 92px;

}
textarea
{
   font-family: arial;
   font-size: 8pt;
}
select
{
   font-family: arial;
   font-size: 8pt;
   width: 350px;
   margin-left: 0px;
}
td
{
   font-family: arial;
   font-size: 10pt;
}
</style>

<SCRIPT LANGUAGE="VBScript">

Public strVNCUser, strVNCPW

Sub Window_Onload
	Window.ResizeTo 300,270
	chkUseCreds.Checked = -1
	rdoEncoding(0).Checked = -1
End Sub

Sub cmdVNC_Click
	Dim strOptions
	If chkUseCreds.Checked = -1 Then
		strOptions = " /user " & txtVNCUser.Value & " /password " & txtVNCPW.Value
	End If
	If chk256Colors.Checked = -1 Then
		strOptions = strOptions & " /256colors "
	End If
	If chkAutoScale.Checked = -1 Then
		strOptions = strOptions & " /AutoScaling "
	End If
	If chkSecureVNC.Checked = -1 Then
		strOptions = strOptions & " /DSMPlugin SecureVNCPlugin.dsm "
	End If
	If rdoEncoding(0).Checked = -1 Then
		strOptions = strOptions & " /Encoding Tight "
	End If
	If rdoEncoding(1).Checked = -1 Then
		strOptions = strOptions & " /Encoding ZLib "
	End If
	If rdoEncoding(2).Checked = -1 Then
		strOptions = strOptions & " /Encoding Ultra "
	End If
	Set objShell = CreateObject("WScript.Shell")
	Set objVNC = objShell.Exec("VNCViewer.exe /QuickOption 6 /NoAuto " & strOptions & txtCompName.Value)
End Sub

</SCRIPT>

<body>
&nbsp;<BR>
<input type="text" name="txtCompName" size="15">
<input id=runbutton class="button" type="button" value="VNC" name="cmdVNC" onClick="cmdVNC_Click"><br>
<br>
<input type="text" name="txtVNCUser" size="15"> VNC Username<br>
<input type="password" name="txtVNCPW" size="15"> VNC Password<br>
<br>
<table width="100%">
	<tr>
		<td width = "50%" valign="top">
			<input type="checkbox" name="chkUseCreds" value="1"> Use Credentials<br>
			<input type="checkbox" name="chk256Colors" value="1"> 256 Colors<br>
			<input type="checkbox" name="chkAutoScale" value="1"> AutoScaling<br>
			<input type="checkbox" name="chkSecureVNC" value="1"> SecureVNCPlugin
		</td>
		<td width = "20%" valign="top">
			<Font Size=3><b>Encoding</b></font><br>
			<input type="radio" name="rdoEncoding" value="Tight">Tight<br>
			<input type="radio" name="rdoEncoding" value="ZLib">ZLib<br>
			<input type="radio" name="rdoEncoding" value="Ultra">Ultra
		</td>
	</tr>
</table>
</body>

UltraVNC

MSLogon single sign-on

MSLogon single sign-on

Re: MSLogon single sign-on

Re: MSLogon single sign-on

Re: MSLogon single sign-on

Re: MSLogon single sign-on