Registry on Vista again

I'm asking for help one more time. Below are 2 procedures. The first one is
used in VB 2005 Windows Form project. It works fine on XP, Vista.

Private Sub RegistryReadingTest()
Try
Dim f As New RegistryPermission(RegistryPermissionAccess.Read, _
"HKEY_LOCAL_MACHINE\SOFTWARE\SRS
Enterprises\Coordinator\Settings")
f.Demand()

Dim pRegKey As RegistryKey = Registry.LocalMachine
pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
Enterprises\Coordinator\Settings")

Dim val2 As Object
val2 = pRegKey.GetValue("CSSLQ")
TextBox1.Text = val2.ToString()
Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Sub
'************************************************* ***********************
The second procedure is used in Windows Service application. The code is the
same except I write the return value into file. This procedure does work on
XP, but returns an error 'object reference not set to an instance of an
object' on Vista Business.
What is wrong with this code. How can I make it work on Vista?

Private Sub RegistryReadingTest()
Try
Dim f As New RegistryPermission(RegistryPermissionAccess.Read, _
"HKEY_LOCAL_MACHINE\SOFTWARE\SRS
Enterprises\Coordinator\Settings")
f.Demand()

Dim pRegKey As RegistryKey = Registry.LocalMachine
pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
Enterprises\Coordinator\Settings")
Dim val2 As Object
val2 = pRegKey.GetValue("CSSLQ")
WriteToLog("Connection String From Registry: " &
val2.ToString())
Catch ex As Exception
WriteToLog("Error: " & ex.Message())

End Try
End Sub

Where is your logfile written?


"vovan" <> wrote in message
news:...
> I'm asking for help one more time. Below are 2 procedures. The first one
> is used in VB 2005 Windows Form project. It works fine on XP, Vista.
>
> Private Sub RegistryReadingTest()
> Try
> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
> _
> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
> f.Demand()
>
> Dim pRegKey As RegistryKey = Registry.LocalMachine
> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
>
> Dim val2 As Object
> val2 = pRegKey.GetValue("CSSLQ")
> TextBox1.Text = val2.ToString()
> Catch ex As Exception
> MessageBox.Show(ex.Message)
>
> End Try
>
> End Sub
> '************************************************* ***********************
> The second procedure is used in Windows Service application. The code is
> the same except I write the return value into file. This procedure does
> work on XP, but returns an error 'object reference not set to an instance
> of an object' on Vista Business.
> What is wrong with this code. How can I make it work on Vista?
>
> Private Sub RegistryReadingTest()
> Try
> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
> _
> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
> f.Demand()
>
> Dim pRegKey As RegistryKey = Registry.LocalMachine
> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
> Dim val2 As Object
> val2 = pRegKey.GetValue("CSSLQ")
> WriteToLog("Connection String From Registry: " &
> val2.ToString())
> Catch ex As Exception
> WriteToLog("Error: " & ex.Message())
>
> End Try
> End Sub
>

In the same directory as service exe located - c:\MyServices
I think the problem not with log file, becase it's accessible, that
procedure writes to it.
I think this line produces an error:
val2 = pRegKey.GetValue("CSSLQ")

By some reason when it's running from Windows Service app it doesn't work.
From Windows Form project no problem with it.
One more thing - I tried to run Windows Form sample as a regular user
(double click) and it works. Now I decided to try to run it via right
click - run as Administrator. It doesn't work, producing the same error.
So it looks like Service app running with admin previlidges and that code is
not allowed.
Maybe stupid idea, but I think now I need to find the way to lower
previlidges for my service.

Thank you
Vovan

"Stuart" <> wrote in message
news:66B5CD6F-C76D-4AEB-9DBF-...
> Where is your logfile written?
>
>
> "vovan" <> wrote in message
> news:...
>> I'm asking for help one more time. Below are 2 procedures. The first one
>> is used in VB 2005 Windows Form project. It works fine on XP, Vista.
>>
>> Private Sub RegistryReadingTest()
>> Try
>> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
>> _
>> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>> f.Demand()
>>
>> Dim pRegKey As RegistryKey = Registry.LocalMachine
>> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>>
>> Dim val2 As Object
>> val2 = pRegKey.GetValue("CSSLQ")
>> TextBox1.Text = val2.ToString()
>> Catch ex As Exception
>> MessageBox.Show(ex.Message)
>>
>> End Try
>>
>> End Sub
>> '************************************************* ***********************
>> The second procedure is used in Windows Service application. The code is
>> the same except I write the return value into file. This procedure does
>> work on XP, but returns an error 'object reference not set to an instance
>> of an object' on Vista Business.
>> What is wrong with this code. How can I make it work on Vista?
>>
>> Private Sub RegistryReadingTest()
>> Try
>> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
>> _
>> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>> f.Demand()
>>
>> Dim pRegKey As RegistryKey = Registry.LocalMachine
>> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>> Dim val2 As Object
>> val2 = pRegKey.GetValue("CSSLQ")
>> WriteToLog("Connection String From Registry: " &
>> val2.ToString())
>> Catch ex As Exception
>> WriteToLog("Error: " & ex.Message())
>>
>> End Try
>> End Sub
>>
>

sorry bud, VB 2005 on vista is yet ANOTHER visual fred moment

MS ****ED YOU ALL GROW A BACKBONE OR DIE LIKE A PUSSY





On Feb 13, 8:40 am, "vovan" <some...@vovan.com> wrote:
> In the same directory as service exe located - c:\MyServices
> I think the problem not with log file, becase it's accessible, that
> procedure writes to it.
> I think this line produces an error:
> val2 = pRegKey.GetValue("CSSLQ")
>
> By some reason when it's running from Windows Service app it doesn't work.
> From Windows Form project no problem with it.
> One more thing - I tried to run Windows Form sample as a regular user
> (double click) and it works. Now I decided to try to run it via right
> click - run as Administrator. It doesn't work, producing the same error.
> So it looks like Service app running with admin previlidges and that code is
> not allowed.
> Maybe stupid idea, but I think now I need to find the way to lower
> previlidges for my service.
>
> Thank you
> Vovan
>
> "Stuart" <n...@thanks.com> wrote in message
>
> news:66B5CD6F-C76D-4AEB-9DBF-...
>
>
>
> > Where is your logfile written?
>
> > "vovan" <some...@vovan.com> wrote in message
> >news:...
> >> I'm asking for help one more time. Below are 2 procedures. The first one
> >> is used in VB 2005 Windows Form project. It works fine on XP, Vista.
>
> >> Private Sub RegistryReadingTest()
> >> Try
> >> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
> >> _
> >> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> >> Enterprises\Coordinator\Settings")
> >> f.Demand()
>
> >> Dim pRegKey As RegistryKey = Registry.LocalMachine
> >> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
> >> Enterprises\Coordinator\Settings")
>
> >> Dim val2 As Object
> >> val2 = pRegKey.GetValue("CSSLQ")
> >> TextBox1.Text = val2.ToString()
> >> Catch ex As Exception
> >> MessageBox.Show(ex.Message)
>
> >> End Try
>
> >> End Sub
> >> '************************************************* ***********************
> >> The second procedure is used in Windows Service application. The code is
> >> the same except I write the return value into file. This procedure does
> >> work on XP, but returns an error 'object reference not set to an instance
> >> of an object' on Vista Business.
> >> What is wrong with this code. How can I make it work on Vista?
>
> >> Private Sub RegistryReadingTest()
> >> Try
> >> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
> >> _
> >> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> >> Enterprises\Coordinator\Settings")
> >> f.Demand()
>
> >> Dim pRegKey As RegistryKey = Registry.LocalMachine
> >> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
> >> Enterprises\Coordinator\Settings")
> >> Dim val2 As Object
> >> val2 = pRegKey.GetValue("CSSLQ")
> >> WriteToLog("Connection String From Registry: " &
> >> val2.ToString())
> >> Catch ex As Exception
> >> WriteToLog("Error: " & ex.Message())
>
> >> End Try
> >> End Sub- Hide quoted text -
>
> - Show quoted text -

The problem is related to Vista Registry Virtualization.
Regular Windows program running under regular user credentials let's say
need to read from "HKEY_LOCAL_MACHINE\SOFTWARE\SRS Enterprises\Coordinator"
In reality during the installation this hive was not created. Instead of it
there is a new location in HKEY_USERS.
But Windows program can see that new location and read from it.
Windows Service will still look for "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
Enterprises\Coordinator", not for a new location.
So, temporarily I added manually values into HKEY_USERS. And now my service
works under Vista

Vovan

"vovan" <> wrote in message
news:...
> I'm asking for help one more time. Below are 2 procedures. The first one
> is used in VB 2005 Windows Form project. It works fine on XP, Vista.
>
> Private Sub RegistryReadingTest()
> Try
> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
> _
> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
> f.Demand()
>
> Dim pRegKey As RegistryKey = Registry.LocalMachine
> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
>
> Dim val2 As Object
> val2 = pRegKey.GetValue("CSSLQ")
> TextBox1.Text = val2.ToString()
> Catch ex As Exception
> MessageBox.Show(ex.Message)
>
> End Try
>
> End Sub
> '************************************************* ***********************
> The second procedure is used in Windows Service application. The code is
> the same except I write the return value into file. This procedure does
> work on XP, but returns an error 'object reference not set to an instance
> of an object' on Vista Business.
> What is wrong with this code. How can I make it work on Vista?
>
> Private Sub RegistryReadingTest()
> Try
> Dim f As New RegistryPermission(RegistryPermissionAccess.Read,
> _
> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
> f.Demand()
>
> Dim pRegKey As RegistryKey = Registry.LocalMachine
> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
> Enterprises\Coordinator\Settings")
> Dim val2 As Object
> val2 = pRegKey.GetValue("CSSLQ")
> WriteToLog("Connection String From Registry: " &
> val2.ToString())
> Catch ex As Exception
> WriteToLog("Error: " & ex.Message())
>
> End Try
> End Sub
>

Thanks for letting us know how you got it to work.

Robin S>
------------------------------
"vovan" <> wrote in message
news:...
> The problem is related to Vista Registry Virtualization.
> Regular Windows program running under regular user credentials let's say
> need to read from "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> Enterprises\Coordinator"
> In reality during the installation this hive was not created. Instead of
> it there is a new location in HKEY_USERS.
> But Windows program can see that new location and read from it.
> Windows Service will still look for "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
> Enterprises\Coordinator", not for a new location.
> So, temporarily I added manually values into HKEY_USERS. And now my
> service works under Vista
>
> Vovan
>
> "vovan" <> wrote in message
> news:...
>> I'm asking for help one more time. Below are 2 procedures. The first one
>> is used in VB 2005 Windows Form project. It works fine on XP, Vista.
>>
>> Private Sub RegistryReadingTest()
>> Try
>> Dim f As New
>> RegistryPermission(RegistryPermissionAccess.Read, _
>> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>> f.Demand()
>>
>> Dim pRegKey As RegistryKey = Registry.LocalMachine
>> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>>
>> Dim val2 As Object
>> val2 = pRegKey.GetValue("CSSLQ")
>> TextBox1.Text = val2.ToString()
>> Catch ex As Exception
>> MessageBox.Show(ex.Message)
>>
>> End Try
>>
>> End Sub
>> '************************************************* ***********************
>> The second procedure is used in Windows Service application. The code is
>> the same except I write the return value into file. This procedure does
>> work on XP, but returns an error 'object reference not set to an
>> instance of an object' on Vista Business.
>> What is wrong with this code. How can I make it work on Vista?
>>
>> Private Sub RegistryReadingTest()
>> Try
>> Dim f As New
>> RegistryPermission(RegistryPermissionAccess.Read, _
>> "HKEY_LOCAL_MACHINE\SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>> f.Demand()
>>
>> Dim pRegKey As RegistryKey = Registry.LocalMachine
>> pRegKey = pRegKey.OpenSubKey("SOFTWARE\SRS
>> Enterprises\Coordinator\Settings")
>> Dim val2 As Object
>> val2 = pRegKey.GetValue("CSSLQ")
>> WriteToLog("Connection String From Registry: " &
>> val2.ToString())
>> Catch ex As Exception
>> WriteToLog("Error: " & ex.Message())
>>
>> End Try
>> End Sub
>>
>
>

Hello,

If you are developing your application to make it work for Windows Vista
under a standard user account, you should STOP writing to HKLM and instead
write to HKCU directly.

This will solve both problems - the program not running correctly as
administrator, and the service failing.

In the next version of Windows, virtualization will probably not be there -
so your application will always fail with the error you are seeing now on
the next version of windows, regardless of whether it is being ran as a
standard user or not, if you do not fix it now.


--
- JB
Microsoft MVP - Windows Shell/User

Windows Vista Support Faq
http://www.jimmah.com/vista/