I have a list of servers in excel and I would like to access a few
registry setting on each server and write that value to other column.
Can anyone help with this? I do not need to write to the registry,
just read.

Thanks in advance

Look at GetSetting in VBA's help. It has an example, too.

(E-Mail Removed) wrote:
>
> I have a list of servers in excel and I would like to access a few
> registry setting on each server and write that value to other column.
> Can anyone help with this? I do not need to write to the registry,
> just read.
>
> Thanks in advance

--

Dave Peterson

Ignore that last post. It'll work if you want to save or retrieve a setting for
your VBA program--but it's not used for accessing the registry in general:

Option Explicit

Sub testme()
Dim wsh As Object
Dim RegStr As String
Dim RegVal As String

RegStr = "HKLM\Software\Microsoft\mediaplayer\" _
& "settings\mp3encoding\PreferredCodecName"

Set wsh = CreateObject("WScript.Shell")

RegVal = "not found!!!!"
On Error Resume Next
RegVal = wsh.RegRead(RegStr)
On Error GoTo 0

If RegVal = "not found!!!!" Then
MsgBox "key wasn't found"
Else
MsgBox RegVal
End If
End Sub



(E-Mail Removed) wrote:
>
> I have a list of servers in excel and I would like to access a few
> registry setting on each server and write that value to other column.
> Can anyone help with this? I do not need to write to the registry,
> just read.
>
> Thanks in advance

--

Dave Peterson

Ahhhh.

Please ignore both these posts.

I have no idea how to access the registry on a server.

If you don't get a real answer in this newsgroup, you may want to post in a VB
newsgroup--explain that you want to use it in excel's VBA and maybe you'll get a
response you don't have to tweak.

Dave Peterson wrote:
>
> Ignore that last post. It'll work if you want to save or retrieve a setting for
> your VBA program--but it's not used for accessing the registry in general:
>
> Option Explicit
>
> Sub testme()
> Dim wsh As Object
> Dim RegStr As String
> Dim RegVal As String
>
> RegStr = "HKLM\Software\Microsoft\mediaplayer\" _
> & "settings\mp3encoding\PreferredCodecName"
>
> Set wsh = CreateObject("WScript.Shell")
>
> RegVal = "not found!!!!"
> On Error Resume Next
> RegVal = wsh.RegRead(RegStr)
> On Error GoTo 0
>
> If RegVal = "not found!!!!" Then
> MsgBox "key wasn't found"
> Else
> MsgBox RegVal
> End If
> End Sub
>
> (E-Mail Removed) wrote:
> >
> > I have a list of servers in excel and I would like to access a few
> > registry setting on each server and write that value to other column.
> > Can anyone help with this? I do not need to write to the registry,
> > just read.
> >
> > Thanks in advance
>
> --
>
> Dave Peterson

--

Dave Peterson

You sure try hard and solve most!

Dave Peterson <(E-Mail Removed)> wrote:

>Ahhhh.
>
>Please ignore both these posts.
>
>I have no idea how to access the registry on a server.
>
>If you don't get a real answer in this newsgroup, you may want to post in a VB
>newsgroup--explain that you want to use it in excel's VBA and maybe you'll get a
>response you don't have to tweak.
>
>Dave Peterson wrote:
>>
>> Ignore that last post. It'll work if you want to save or retrieve a setting for
>> your VBA program--but it's not used for accessing the registry in general:
>>
>> Option Explicit
>>
>> Sub testme()
>> Dim wsh As Object
>> Dim RegStr As String
>> Dim RegVal As String
>>
>> RegStr = "HKLM\Software\Microsoft\mediaplayer\" _
>> & "settings\mp3encoding\PreferredCodecName"
>>
>> Set wsh = CreateObject("WScript.Shell")
>>
>> RegVal = "not found!!!!"
>> On Error Resume Next
>> RegVal = wsh.RegRead(RegStr)
>> On Error GoTo 0
>>
>> If RegVal = "not found!!!!" Then
>> MsgBox "key wasn't found"
>> Else
>> MsgBox RegVal
>> End If
>> End Sub
>>
>> (E-Mail Removed) wrote:
>> >
>> > I have a list of servers in excel and I would like to access a few
>> > registry setting on each server and write that value to other column.
>> > Can anyone help with this? I do not need to write to the registry,
>> > just read.
>> >
>> > Thanks in advance
>>
>> --
>>
>> Dave Peterson

Lots of times, it's easier to answer the questions you read--instead of the
question they write <vbg>.

(E-Mail Removed) wrote:
>
> You sure try hard and solve most!
>
> Dave Peterson <(E-Mail Removed)> wrote:
>
> >Ahhhh.
> >
> >Please ignore both these posts.
> >
> >I have no idea how to access the registry on a server.
> >
> >If you don't get a real answer in this newsgroup, you may want to post in a VB
> >newsgroup--explain that you want to use it in excel's VBA and maybe you'll get a
> >response you don't have to tweak.
> >
> >Dave Peterson wrote:
> >>
> >> Ignore that last post. It'll work if you want to save or retrieve a setting for
> >> your VBA program--but it's not used for accessing the registry in general:
> >>
> >> Option Explicit
> >>
> >> Sub testme()
> >> Dim wsh As Object
> >> Dim RegStr As String
> >> Dim RegVal As String
> >>
> >> RegStr = "HKLM\Software\Microsoft\mediaplayer\" _
> >> & "settings\mp3encoding\PreferredCodecName"
> >>
> >> Set wsh = CreateObject("WScript.Shell")
> >>
> >> RegVal = "not found!!!!"
> >> On Error Resume Next
> >> RegVal = wsh.RegRead(RegStr)
> >> On Error GoTo 0
> >>
> >> If RegVal = "not found!!!!" Then
> >> MsgBox "key wasn't found"
> >> Else
> >> MsgBox RegVal
> >> End If
> >> End Sub
> >>
> >> (E-Mail Removed) wrote:
> >> >
> >> > I have a list of servers in excel and I would like to access a few
> >> > registry setting on each server and write that value to other column.
> >> > Can anyone help with this? I do not need to write to the registry,
> >> > just read.
> >> >
> >> > Thanks in advance
> >>
> >> --
> >>
> >> Dave Peterson

--

Dave Peterson

Try the vbscript group: this is the type of thing vbscript gets used for a
lot.

Tim

<(E-Mail Removed)> wrote in message
news:c3849139-59f2-4c93-a6e7-(E-Mail Removed)...
>I have a list of servers in excel and I would like to access a few
> registry setting on each server and write that value to other column.
> Can anyone help with this? I do not need to write to the registry,
> just read.
>
> Thanks in advance

Thanks

On Aug 6, 8:54*am, newsgroups...@gmail.com wrote:
> Thanks

I got a VBS script to work pulling remote registry data - could you
guys help me now figure ut how to put this into excel please??


-- code --


On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "remoteServer"
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root
\default:StdRegProv")
strKeyPath = "SOFTWARE\AssetInfo"

AssetTag = "AssetTag"
SerialNumber = "SerialNumber"

objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, AssetTag,
strValue1
objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath,
SerialNumber, strValue2

Wscript.Echo strValue1
Wscript.Echo strValue2


-- code --

Now I jsut need it to pull the strComputer from like excel cell A2 and
then instead of echo put the value in B2 and so on...

Thanks in advance.


JD

Untested, but it did compile:

Option Explicit
Sub testme02()

Dim myRng As Range
Dim myCell As Range
Dim strValue1 As String
Dim strValue2 As String
Dim strComputer As String
Dim objReg As Object
Dim strKeyPath As String
Dim AssetTag As String
Dim SerialNumber As String

Const HKEY_LOCAL_MACHINE = &H80000002

With Worksheets("sheet1")
Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
End With

On Error Resume Next
For Each myCell In myRng.Cells

strComputer = myCell.Value
Set objReg = GetObject("winmgmts:\\" & strComputer _
& "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\AssetInfo"

AssetTag = "AssetTag"
SerialNumber = "SerialNumber"

objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, _
AssetTag, strValue1

objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, _
SerialNumber, strValue2

myCell.Offset(0, 1).Value = strValue1
myCell.Offset(0, 2).Value = strValue2

Next myCell
On Error GoTo 0

End Sub

(E-Mail Removed) wrote:
>
> On Aug 6, 8:54 am, newsgroups...@gmail.com wrote:
> > Thanks
>
> I got a VBS script to work pulling remote registry data - could you
> guys help me now figure ut how to put this into excel please??
>
> -- code --
>
> On Error Resume Next
>
> Const HKEY_LOCAL_MACHINE = &H80000002
>
> strComputer = "remoteServer"
> Set objReg = GetObject("winmgmts:\\" & strComputer & "\root
> \default:StdRegProv")
> strKeyPath = "SOFTWARE\AssetInfo"
>
> AssetTag = "AssetTag"
> SerialNumber = "SerialNumber"
>
> objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, AssetTag,
> strValue1
> objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath,
> SerialNumber, strValue2
>
> Wscript.Echo strValue1
> Wscript.Echo strValue2
>
> -- code --
>
> Now I jsut need it to pull the strComputer from like excel cell A2 and
> then instead of echo put the value in B2 and so on...
>
> Thanks in advance.
>
> JD

--

Dave Peterson