UltraVNC and profile

I have UltraVNC (remote desktop application) installed on each workstations
(XP).

Users are assigned man profile. However, each user logs on the PC, the VNC
will pop-up to request the user to enter the password. I dont want that
happen, coz user will key-in their own password.

Does anyone know how to overcome the issue?

bear wrote:
> I have UltraVNC (remote desktop application) installed on each
> workstations (XP).
>
> Users are assigned man profile. However, each user logs on the PC,
> the VNC will pop-up to request the user to enter the password. I dont
> want that happen, coz user will key-in their own password.
>
> Does anyone know how to overcome the issue?

Let me get this straight..
You want to open up UltraVNC to the world, essentially?

Why not (assuming XP Professional), just turn on Remote Desktop and allow
the users to connect using the remote desktop client - that way the only
request they see is for their username/password. You can add whatever
user(s)/group(s) to the local "Remote Desktop Users" group you need to allow
them to do this.

--
<- Shenan ->
--
The information is provided "as is", with no guarantees of
completeness, accuracy or timeliness, and without warranties of any
kind, express or implied. In other words, read up before you take any
advice - you are the one ultimately responsible for your actions.

I understand the issue. You want to use VnC for remote administration on your LAN, right? I use WinVnC and not sure if it's different from UltraVnC but I wrote this VB script which I run as a computer startup script through a GPO which sets the correct VnC password for the computer. You will have to figure out what the hashing is to set your own password though. The following script sets the password to "clmu" (had to change it so everyone doesn't get my passwords Copy everything form Option Explicit to End Function to a txt file and rename it with a .vbs extension.


'*****START SCRIPT******

Option Explicit

const HKLM = &H80000002 ' 32-bit representation of the root key HKEY_LOCAL_MACHINE
const HKCU = &H80000001 ' 32-bit representation of the root key HKEY_CURRENT_USER
const LOCATION = "Software\ORL\WinVNC3\Default\" ' HKLM Key Location
const CULOCATION = "Software\ORL\WinVNC3\" ' HKCU Key Location
const KEY = "Password" ' Key holding the password

Dim registry ' Will hold the registry provider object
Dim returnValue ' Hold status messages/error numbers
Dim pwd ' The password to set the key to

pwd = Array(49, 6, 85, 178)

' Create the registry provider object
Set registry = GetObject("winmgmts:root\default:StdRegProv")

' Set each registry key in turn (order not important)
returnValue = registry.SetBinaryValue(HKLM, LOCATION, KEY, pwd)
returnValue = registry.SetBinaryValue(HKCU, CULOCATION, KEY, pwd)

' String to binary function transforms a string value into a byte array.
Function StringToBinary(val)
Dim index, i
ReDim retval(Len(val)-1)
index = -1
For i = 1 To Len(val)
index = index + 1
retval(index) = Asc(Mid(val, i, 1)) ' This line does the real work converting the character at the current location into a byte.
Next
StringToBinary = retval
End Function

Function BinaryToString(val)
Dim bByte, retval, i
For i = 0 To UBound(val)
bByte = val(i)
If bByte <> "" Then retval = retval & Chr(bByte)
Next
BinaryToString = retval
End Function

'*****END SCRIPT******

Bradley Fox
Sr. Network Administrator
MCSE - W2K

>>> bear<(E-Mail Removed)> 07/28/04 11:19PM >>>
I have UltraVNC (remote desktop application) installed on each workstations
(XP).

Users are assigned man profile. However, each user logs on the PC, the VNC
will pop-up to request the user to enter the password. I dont want that
happen, coz user will key-in their own password.

Does anyone know how to overcome the issue?

Forgot to mention the numbers in the () after pwd = Array is what needs to be changed to change the password to something different.

Bradley Fox
Sr. Network Administrator
MCSE - W2K

>>> Brad Fox<(E-Mail Removed)> 07/29/04 09:20AM >>>

I understand the issue. You want to use VnC for remote administration on your LAN, right? I use WinVnC and not sure if it's different from UltraVnC but I wrote this VB script which I run as a computer startup script through a GPO which sets the correct VnC password for the computer. You will have to figure out what the hashing is to set your own password though. The following script sets the password to "clmu" (had to change it so everyone doesn't get my passwords Copy everything form Option Explicit to End Function to a txt file and rename it with a .vbs extension.


'*****START SCRIPT******

Option Explicit

const HKLM = &H80000002 ' 32-bit representation of the root key HKEY_LOCAL_MACHINE
const HKCU = &H80000001 ' 32-bit representation of the root key HKEY_CURRENT_USER
const LOCATION = "Software\ORL\WinVNC3\Default\" ' HKLM Key Location
const CULOCATION = "Software\ORL\WinVNC3\" ' HKCU Key Location
const KEY = "Password" ' Key holding the password

Dim registry ' Will hold the registry provider object
Dim returnValue ' Hold status messages/error numbers
Dim pwd ' The password to set the key to

pwd = Array(49, 6, 85, 178)

' Create the registry provider object
Set registry = GetObject("winmgmts:root\default:StdRegProv")

' Set each registry key in turn (order not important)
returnValue = registry.SetBinaryValue(HKLM, LOCATION, KEY, pwd)
returnValue = registry.SetBinaryValue(HKCU, CULOCATION, KEY, pwd)

' String to binary function transforms a string value into a byte array.
Function StringToBinary(val)
Dim index, i
ReDim retval(Len(val)-1)
index = -1
For i = 1 To Len(val)
index = index + 1
retval(index) = Asc(Mid(val, i, 1)) ' This line does the real work converting the character at the current location into a byte.
Next
StringToBinary = retval
End Function

Function BinaryToString(val)
Dim bByte, retval, i
For i = 0 To UBound(val)
bByte = val(i)
If bByte <> "" Then retval = retval & Chr(bByte)
Next
BinaryToString = retval
End Function

'*****END SCRIPT******

Bradley Fox
Sr. Network Administrator
MCSE - W2K

>>> bear<(E-Mail Removed)> 07/28/04 11:19PM >>>
I have UltraVNC (remote desktop application) installed on each workstations
(XP).

Users are assigned man profile. However, each user logs on the PC, the VNC
will pop-up to request the user to enter the password. I dont want that
happen, coz user will key-in their own password.

Does anyone know how to overcome the issue?

Yes, that is exactly what I need. Thanks Brad.

As I also posted the qestion about GPO for 2 networked printers, and you replied. Just wondering, can I put 2 scripts into the same GPO? or 1 of them has to be on local workstation, and the other one is on server?
"Brad Fox" <(E-Mail Removed)> wrote in message news:OwnVI$(E-Mail Removed)...
Forgot to mention the numbers in the () after pwd = Array is what needs to be changed to change the password to something different.

Bradley Fox
Sr. Network Administrator
MCSE - W2K

>>> Brad Fox<(E-Mail Removed)> 07/29/04 09:20AM >>>

I understand the issue. You want to use VnC for remote administration on your LAN, right? I use WinVnC and not sure if it's different from UltraVnC but I wrote this VB script which I run as a computer startup script through a GPO which sets the correct VnC password for the computer. You will have to figure out what the hashing is to set your own password though. The following script sets the password to "clmu" (had to change it so everyone doesn't get my passwords Copy everything form Option Explicit to End Function to a txt file and rename it with a .vbs extension.


'*****START SCRIPT******

Option Explicit

const HKLM = &H80000002 ' 32-bit representation of the root key HKEY_LOCAL_MACHINE
const HKCU = &H80000001 ' 32-bit representation of the root key HKEY_CURRENT_USER
const LOCATION = "Software\ORL\WinVNC3\Default\" ' HKLM Key Location
const CULOCATION = "Software\ORL\WinVNC3\" ' HKCU Key Location
const KEY = "Password" ' Key holding the password

Dim registry ' Will hold the registry provider object
Dim returnValue ' Hold status messages/error numbers
Dim pwd ' The password to set the key to

pwd = Array(49, 6, 85, 178)

' Create the registry provider object
Set registry = GetObject("winmgmts:root\default:StdRegProv")

' Set each registry key in turn (order not important)
returnValue = registry.SetBinaryValue(HKLM, LOCATION, KEY, pwd)
returnValue = registry.SetBinaryValue(HKCU, CULOCATION, KEY, pwd)

' String to binary function transforms a string value into a byte array.
Function StringToBinary(val)
Dim index, i
ReDim retval(Len(val)-1)
index = -1
For i = 1 To Len(val)
index = index + 1
retval(index) = Asc(Mid(val, i, 1)) ' This line does the real work converting the character at the current location into a byte.
Next
StringToBinary = retval
End Function

Function BinaryToString(val)
Dim bByte, retval, i
For i = 0 To UBound(val)
bByte = val(i)
If bByte <> "" Then retval = retval & Chr(bByte)
Next
BinaryToString = retval
End Function

'*****END SCRIPT******

Bradley Fox
Sr. Network Administrator
MCSE - W2K

>>> bear<(E-Mail Removed)> 07/28/04 11:19PM >>>
I have UltraVNC (remote desktop application) installed on each workstations
(XP).

Users are assigned man profile. However, each user logs on the PC, the VNC
will pop-up to request the user to enter the password. I dont want that
happen, coz user will key-in their own password.

Does anyone know how to overcome the issue?