Registry via remote

[Christoph6]

Hi all,
I’ve following problem.
I need a listing from about 200 industry PC. It has to include among others data from registry.
For this I have created a vbs script.
The most data I get over Win32 collection.
For example:
Set objWMIhostname = objwbemLocator.ConnectServer(strIPC, strNamespace, strUser, strPwd)
Set colItems = objWMIhostname.ExecQuery("SELECT * FROM Win32_ComputerSystem")

strIPC = IP
strUser = a domain user with adm right for PCs
strPwd = password of strUser

This part of the script works.
But I have a problem to read registry of remote computers.

Currently the script has
Set reg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strIPC & _ "\root\default:StdRegProv")
If reg.enumValues( HKLM, keySerNr, valueNames, types ) = 0 then
………………
……………
End If

keySerNr - a registry key path


It works too. But only if I start the script logged in as the “strUser” user.
What do I have to change so this part of script uses the account strUser like “Set colItems ..” does without needing to be logged in as “strUser”.

Currently I have all necessary data because I have performed this script logged in as strUser user.
But for the future this problem remains open.