hi, i need a vba routine to read the value of the registry on a remote desktop. the key i am interested in is comment=("\\"&remotepc&"\hklm\system\CurrentContro lSet\Services\lanmanserver\parameter","srvcomment" )
but i can not get it to work.

Hi,

   In order to do this you need to do the following:

1. Make sure all computers you want o run remote scripts on have WSH Version 5.6 or higher. Your computer must have this as well.

2. Make sure all the computers you want to run remote scripts on have the following registry entry:
   HKLM\Software\Microsoft\Windows Script Host\Settings
   "Remote"
   REG_SZ
   Value = 1

3. Then use WshController

Example:

Set objController = WScript.CreateObject("WshController")

Getting the value of the registry key from the remote script is problematic.

If this is something you need to get regularly from some remote computers, install a script locally, run the script at start up, maybe wait 5 mins to be sure the user is logged in good, and then report the value to a local database.

I use this technique a lot to great effect. Each computer reports to a SQL server at login, and once a month reports a whole list of hardware configurations, registry settings, software installed, printers installed, etc etc.

HTH


mmcdonal

thank you mmcdonal,

After a long trial and error i found this code working for me. I would like to share it to you all. It was found on the technetsite of microsoft for VBS but it seems to work fine for AccessVBA; source http://www.microsoft.com/technet/scr.../osrgvb17.mspx

Here is the modified code;

Function fnReadTheDescription(machine)
On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

Dim arrValues(0)

strComputer = machine

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Services\lanmanserver\pa rameters"
strValueName = "srvcomment"

oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

arrValues(0) = "Description: " & strValue


fnReadTheDescription = arrValues


End Function