how do I modify remote registeries using VB.NET (and COM+)

[james]

I am attempting to write a VB.net program to alter remote registeries. I am
familiar with VBScript and so I was using WMI to connect to remote machines.
How would I do this in VB.Net?

I got this far..

=============== =============== =============== =========
Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles btRDesktop.Clic k
Const HKEY_CURRENT_US ER = &H80000001
Const HKEY_LOCAL_MACH INE = &H80000002

Dim myConnectionOpt ions As New System.Manageme nt.ConnectionOp tions
With myConnectionOpt ions
..Impersonation = System.Manageme nt.Impersonatio nLevel.Imperson ate
'* Use next line for XP
..Authenticatio n = System.Manageme nt.Authenticati onLevel.Packet
'* Use next line for Win prior XP
'*.Authenticati on = System.Manageme nt.Authenticati onLevel.Connect
End With
Dim myManagementSco pe As System.Manageme nt.ManagementSc ope
'* Replace the "." with an actual servername for remote connection
Dim myServerName As String = bxInputBox.Text
myManagementSco pe = New System.Manageme nt.ManagementSc ope("\\" & _
myServerName & "\root\cimv2:St dRegProv", myConnectionOpt ions)
'* connect to WMI namespace
myManagementSco pe.Connect()
If myManagementSco pe.IsConnected = False Then
bxOutputBox.App endText("Could not connect to WMI namespace")
End If
Dim myObjectSearche r As System.Manageme nt.ManagementOb jectSearcher
Dim myCollection As System.Manageme nt.ManagementOb jectCollection
Dim myObject As System.Manageme nt.ManagementOb ject
Dim strKeyPath = "SOFTWARE\Micro soft\Windows Script Host\Settings"
Dim strValueName = "TrustPolic y"
'myObjectSearch er = New System.Manageme nt.ManagementOb jectSearcher( _
' myManagementSco pe.Path.ToStrin g, "Select * From Win32_Product")

'myObjectSearch er.Get(HKEY_LOC AL_MACHINE, strKeyPath, strValueName,
strValue)
'bxOutputBox.Ap pendText("Curre nt WSH Trust Policy Value: " & strValue)

End Sub
End Class
=============== =============== =============== ===========

[Rajesh Mishra [MSFT]]

StdRegProv registry Provider class will do the trick for you. However I see
one problem wiht your connect string below

You currently have
root\cimv2:StdR egProv

change this to
root\default:St dRegProv

Please look at the 2nd link below for examples

--
Thanks,
Rajesh

Key WMI Resources:
1> Official WMI FAQ from WMI Development Team:
http://www.microsoft.com/technet/scr...es/wmifaq.mspx
2> Technet Scriptcenter Resource for lots of common system administration
problems:
http://www.microsoft.com/technet/scr...r/default.mspx

"james" <ja*******@hotm ail.com> wrote in message
news:eD******** ********@tk2msf tngp13.phx.gbl. ..

I am attempting to write a VB.net program to alter remote registeries. I am
familiar with VBScript and so I was using WMI to connect to remote
machines.
How would I do this in VB.Net?

I got this far..

=============== =============== =============== =========
Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles btRDesktop.Clic k
Const HKEY_CURRENT_US ER = &H80000001
Const HKEY_LOCAL_MACH INE = &H80000002

Dim myConnectionOpt ions As New System.Manageme nt.ConnectionOp tions
With myConnectionOpt ions
.Impersonation = System.Manageme nt.Impersonatio nLevel.Imperson ate
'* Use next line for XP
.Authentication = System.Manageme nt.Authenticati onLevel.Packet
'* Use next line for Win prior XP
'*.Authenticati on = System.Manageme nt.Authenticati onLevel.Connect
End With
Dim myManagementSco pe As System.Manageme nt.ManagementSc ope
'* Replace the "." with an actual servername for remote connection
Dim myServerName As String = bxInputBox.Text
myManagementSco pe = New System.Manageme nt.ManagementSc ope("\\" & _
myServerName & "\root\cimv2:St dRegProv", myConnectionOpt ions)
'* connect to WMI namespace
myManagementSco pe.Connect()
If myManagementSco pe.IsConnected = False Then
bxOutputBox.App endText("Could not connect to WMI namespace")
End If
Dim myObjectSearche r As System.Manageme nt.ManagementOb jectSearcher
Dim myCollection As System.Manageme nt.ManagementOb jectCollection
Dim myObject As System.Manageme nt.ManagementOb ject
Dim strKeyPath = "SOFTWARE\Micro soft\Windows Script Host\Settings"
Dim strValueName = "TrustPolic y"
'myObjectSearch er = New System.Manageme nt.ManagementOb jectSearcher( _
' myManagementSco pe.Path.ToStrin g, "Select * From Win32_Product")

'myObjectSearch er.Get(HKEY_LOC AL_MACHINE, strKeyPath, strValueName,
strValue)
'bxOutputBox.Ap pendText("Curre nt WSH Trust Policy Value: " & strValue)

End Sub
End Class
=============== =============== =============== ===========