[VB] Register sleutel checken op remote registry

[TF]

Ik ben bezig om een script te schrijven om op remote machines te controleren of een sleutel bestaat of niet.
Ik ben nu al een paar uur bezig met onderstaand script maar geeft telkens een fout (800A03EA)op :

Function keyExists(strKeyName, strKeyPath, regCategory)

Het is uiteindelijk de bedoeling dat hij de resultaten gaat wegschrijven in een file maar voorlopig heb ik een pop-up box gemaakt.

Hij moet dus lezen uit een txt bestand waar alle remote machine namen in komen te staan. Als ik het 'loopje' met het inlezen van de txt file eruit haal werkt het controleren van het register op mijn locale machine prima.

code:

On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_USER = &H80000001

Const ForReading = 1
Const ADS_PROPERTY_APPEND = 3 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\lijst.txt",ForReading)

Do Until objTextFile.AtEndOfStream 
    strComputer = objTextFile.Readline

If keyExists("D24F85A995F47B48B293D3960B36311K", "Software\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\", HKEY_LOCAL_MACHINE) Then
    MsgBox("The key exists :)")
Else
      MsgBox("The key does not exist :(")
'End If

Function keyExists(strKeyName, strKeyPath, regCategory)
     retVal = false
     Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
     strComputer & "\root\default:StdRegProv")
   
     oReg.EnumKey regCategory, strKeyPath, arrSubKeys
     
     For Each subkey In arrSubKeys
          If strKeyName = subkey Then
               retVal = true
               Exit For
          End If
     Next
     keyExists = retVal
End Function


Loop

objTextFile.Close

[TF]

Het is mij onderwijl gelukt.

Ik wil ook graag een compliment maken naar de moderators van dit forumonderdeel.

[jelmervos]

En wat was het probleem?

Complimentjes kunnen in de vorm van een vlaai naar Amersfoort: http://tweakers.net/contact

[ Voor 66% gewijzigd door jelmervos op 02-04-2010 21:52 ]

[Reboot]

ik denk dat het sarcasme was