Lando

Check the regobj.doc file that came with the component...  The examples are for VB but translate
easily to VBScript...

--
Michael Harris
Microsoft.MVP.Scripting
--

Please do not email questions - post them to the newsgroup instead.
--

Thanks for all the help. You guys have been great!
Lando

***********************************************
Dim WSHShell
 Set WSHShell = WScript.CreateObject("WScript.Shell")

Dim objRemoteRegistry

'See if we can obtain the Registry of machine Lab1:
Set objRemoteRegistry = RemoteRegistry("IFORKASH-2K")

'Print out all the subkeys of the HKEY_CLASSES_ROOT on the Lab1 machine
Dim objSubKey As RegKey
Dim objRegRootKey As regKey

var ProxyOnOff =
WshShell.RegRead("HKEY_USERS\\ThisUser\\Software\\Microsoft\\Windows\\Curren
tVersion\\Internet Settings\\ProxyEnable")

var ProxyType = typeof(ProxyOnOff)

Set objRegRootKey = objRemoteRegistry.RegKeyFromHKey(HKEY_CLASSES_ROOT)

For Each objSubKey In objRegRootKey.SubKeys
Debug.Print objSubKey.Name
Next objSubKey
************************************************************

Here's just a CScript hosted vbscript example for remote registry access with RegObj.  You must be
logged on with a domain account that is also in the Administrators group on the remote NT server
machine.

Dim StdIn, StdOut
Dim objRegistry, objRemoteRegistry
Dim objRegRootKey, objSubKey

Const HKEY_CLASSES_ROOT = &H80000000

'===
' uses stdin/stdout streams to guarantee execution under WScript will fail
' (unless you like clicking OK on about a zillion message boxes ;-)...
'===
Set StdIn = WScript.StdIn
Set StdOut = WScript.StdOut

Set objRegistry = CreateObject("RegObj.Registry")
'===
' fully qualified domain names are faster, but NETBIOS name works too...
'===
Set objRemoteRegistry = _
  objRegistry.RemoteRegistry("servername.companyname.com")

Set objRegRootKey = objRemoteRegistry.RegKeyFromHKey(HKEY_CLASSES_ROOT)

For Each objSubKey In objRegRootKey.SubKeys
  StdOut.WriteLine objSubKey.Name
Next

StdOut.WriteLine ""
StdOut.WriteLine "Press ENTER to continue..."
StdIn.ReadLine

--
Michael Harris
Microsoft.MVP.Scripting
--

Please do not email questions - post them to the newsgroup instead.
--