Registry.

[Rob Boger]

I've been looking and trying for hours and haven't been able to figure out
how to read/write on the registry of a remote-computer with alternate
credentials. I've can do it easily on a local computer but not remotely.

I'm trying to convert my vbscripts to a vb.net program, though I'm thinking
of staying with my scripts after trying to figure this out :)

Any help would be greatly appreciated, here is the piece of VbScript code:

SET LOCATOR = CREATEOBJECT("WBEMSCRIPTING.SWBEMLOCATOR")
SET REGISTRY_SERVICE = LOCATOR.CONNECTSERVER(TARGET, "ROOT\DEFAULT",
ADMUSR, ADMPWD)
REGISTRY_SERVICE.SECURITY_.IMPERSONATIONLEVEL = 3
SET REGISTRY = REGISTRY_SERVICE.GET("STDREGPROV")
REGISTRY.GETSTRINGVALUE &H80000001,
"SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORE R\SHELL FOLDERS\", "LOCAL
SETTINGS", LOCAL_SETTINGS

[Ken Tucker [MVP]]

Hi,

http://msdn.microsoft.com/library/de...sekeytopic.asp

Ken
-------------------
"Rob Boger" <rb****@usa.com> wrote in message
news:OH****************@TK2MSFTNGP10.phx.gbl...

I've been looking and trying for hours and haven't been able to figure out
how to read/write on the registry of a remote-computer with alternate
credentials. I've can do it easily on a local computer but not remotely.

I'm trying to convert my vbscripts to a vb.net program, though I'm thinking of staying with my scripts after trying to figure this out :)

Any help would be greatly appreciated, here is the piece of VbScript code:

SET LOCATOR = CREATEOBJECT("WBEMSCRIPTING.SWBEMLOCATOR")
SET REGISTRY_SERVICE = LOCATOR.CONNECTSERVER(TARGET, "ROOT\DEFAULT",
ADMUSR, ADMPWD)
REGISTRY_SERVICE.SECURITY_.IMPERSONATIONLEVEL = 3
SET REGISTRY = REGISTRY_SERVICE.GET("STDREGPROV")
REGISTRY.GETSTRINGVALUE &H80000001,
"SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORE R\SHELL FOLDERS\", "LOCAL SETTINGS", LOCAL_SETTINGS

[Rob Boger]

Thanks Ken,

Unfortunately I'm not very bright but looking over that example, I'm not
quite sure where or how I can input specific credentials to use. In my work
environment, we log in with our regular NT accounts, but we also have an
domain admin account that we use for doing things like modifying the
registry on a remote computer, etc. So even though I run the application on
my system, it is under my normal account, not my domain admin account. I
guess once the application is done, I could do a 'runas' to open it up, but
would prefer to be able to specify a username and password.

Am I missing something in that code?

I really appreciate your response, sorry if the above is a little
incoherent, I've been up way too long :)
Rob


"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:ub**************@TK2MSFTNGP10.phx.gbl...

Hi,

http://msdn.microsoft.com/library/de...sekeytopic.asp
Ken
-------------------
"Rob Boger" <rb****@usa.com> wrote in message
news:OH****************@TK2MSFTNGP10.phx.gbl...

I've been looking and trying for hours and haven't been able to figure out how to read/write on the registry of a remote-computer with alternate
credentials. I've can do it easily on a local computer but not remotely.
I'm trying to convert my vbscripts to a vb.net program, though I'm

thinking

of staying with my scripts after trying to figure this out :)

Any help would be greatly appreciated, here is the piece of VbScript code:
SET LOCATOR = CREATEOBJECT("WBEMSCRIPTING.SWBEMLOCATOR")
SET REGISTRY_SERVICE = LOCATOR.CONNECTSERVER(TARGET, "ROOT\DEFAULT",
ADMUSR, ADMPWD)
REGISTRY_SERVICE.SECURITY_.IMPERSONATIONLEVEL = 3
SET REGISTRY = REGISTRY_SERVICE.GET("STDREGPROV")
REGISTRY.GETSTRINGVALUE &H80000001,
"SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORE R\SHELL FOLDERS\",

"LOCAL

SETTINGS", LOCAL_SETTINGS

[Ken Tucker [MVP]]

Hi,

The line I wanted you to see is The remote computer must be running
the remote registry service.
Ken
---------------
"Rob Boger" <rb****@usa.com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

Thanks Ken,

Unfortunately I'm not very bright but looking over that example, I'm not
quite sure where or how I can input specific credentials to use. In my work environment, we log in with our regular NT accounts, but we also have an
domain admin account that we use for doing things like modifying the
registry on a remote computer, etc. So even though I run the application on my system, it is under my normal account, not my domain admin account. I
guess once the application is done, I could do a 'runas' to open it up, but would prefer to be able to specify a username and password.

Am I missing something in that code?

I really appreciate your response, sorry if the above is a little
incoherent, I've been up way too long :)
Rob


"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:ub**************@TK2MSFTNGP10.phx.gbl...

Hi,

http://msdn.microsoft.com/library/de...sekeytopic.asp

Ken
-------------------
"Rob Boger" <rb****@usa.com> wrote in message
news:OH****************@TK2MSFTNGP10.phx.gbl...

I've been looking and trying for hours and haven't been able to figure out how to read/write on the registry of a remote-computer with alternate
credentials. I've can do it easily on a local computer but not remotely.
I'm trying to convert my vbscripts to a vb.net program, though I'm

thinking

of staying with my scripts after trying to figure this out :)

Any help would be greatly appreciated, here is the piece of VbScript code:
SET LOCATOR = CREATEOBJECT("WBEMSCRIPTING.SWBEMLOCATOR")
SET REGISTRY_SERVICE = LOCATOR.CONNECTSERVER(TARGET, "ROOT\DEFAULT",
ADMUSR, ADMPWD)
REGISTRY_SERVICE.SECURITY_.IMPERSONATIONLEVEL = 3
SET REGISTRY = REGISTRY_SERVICE.GET("STDREGPROV")
REGISTRY.GETSTRINGVALUE &H80000001,
"SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORE R\SHELL FOLDERS\",

"LOCAL

SETTINGS", LOCAL_SETTINGS

[Herfried K. Wagner [MVP]]

* "Rob Boger" <rb****@usa.com> scripsit:

I've been looking and trying for hours and haven't been able to figure out
how to read/write on the registry of a remote-computer with alternate
credentials. I've can do it easily on a local computer but not remotely.

I'm trying to convert my vbscripts to a vb.net program, though I'm thinking
of staying with my scripts after trying to figure this out :)

Any help would be greatly appreciated, here is the piece of VbScript code:

SET LOCATOR = CREATEOBJECT("WBEMSCRIPTING.SWBEMLOCATOR")
SET REGISTRY_SERVICE = LOCATOR.CONNECTSERVER(TARGET, "ROOT\DEFAULT",
ADMUSR, ADMPWD)
REGISTRY_SERVICE.SECURITY_.IMPERSONATIONLEVEL = 3
SET REGISTRY = REGISTRY_SERVICE.GET("STDREGPROV")
REGISTRY.GETSTRINGVALUE &H80000001,
"SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORE R\SHELL FOLDERS\", "LOCAL
SETTINGS", LOCAL_SETTINGS

Remove the 'Set's, then try to use the code in VB.NET. Enclose the
parameter list of 'GetStringValue' into '(', ')'.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Rob Boger]

Thanks so much, this did the trick!

Thanks again,
Rob
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...

Remove the 'Set's, then try to use the code in VB.NET. Enclose the
parameter list of 'GetStringValue' into '(', ')'.