_______________________________________________

Want to get-on Google's first page and loads of traffic to your website? Hire a SEO specialist from Ocean Groups[url=http://oceangroups.org/] seo specialist [/url]

Option Explicit
Const HKEY_LOCAL_MACHINE = &H80000002

Dim strComputer
Dim objRegistry
Dim strKeyPath
Dim strValueName
Dim dwValue

strComputer = "."
'Set objRegistry=GetObject("winmgmts:\\" & _
   ' strComputer & "\root\default:StdRegProv")
Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")   
 
strKeyPath = "System\CurrentControlSet\Services\SNMP\Parameters\ValidCommunities"
strValueName = "."
dwValue = "reg_dword"

objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
Wscript.Echo "" & dwValue

'Wscript.Echo "This registry key exist with the", strValueName & " = " & dwValue

Thoughts....

I have also attached a downloadable version to this post. This would be just right for use in a DCM baseline in ConfigMgr 2007. If you  download, rename with a .vbs extension.

'Declare Registry Constants
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7


'Chose computer name, registry tree and key path

strComputer = "." ' Use . for current machine

'This is the HIVE we're working in
hDefKey = HKEY_LOCAL_MACHINE

'This is the key we will target. Next, we will enumerates values of this key
strKeyPath = "System\CurrentControlSet\Services\SNMP\Parameters\ValidCommunities"

' Connect to registry provider on target machine with current user
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

'Next, we will loop through the values in this key looking for any CASE where the 
'SNMP community string does not have an access value of 4 (read only)

strSubKeyPath = strKeyPath & "\" & strSubkey
oReg.EnumValues hDefKey, strSubKeyPath, arrValueNames, arrTypes


For i = LBound(arrValueNames) To UBound(arrValueNames)

    strValueName = arrValueNames(i)

Select Case arrTypes(i)

' Show a REG_SZ value

Case REG_SZ 

    oReg.GetStringValue hDefKey, strSubKeyPath, strValueName, strValue

    wscript.echo " " & strValueName & " (REG_SZ) = " & strValue

' Show a REG_EXPAND_SZ value


Case REG_EXPAND_SZ

    oReg.GetExpandedStringValue hDefKey, strSubKeyPath, strValueName, strValue

    wscript.echo " " & strValueName & " (REG_EXPAND_SZ) = " & strValue

' Show a REG_BINARY value

Case REG_BINARY

    oReg.GetBinaryValue hDefKey, strSubKeyPath, strValueName, arrBytes

    strBytes = ""

For Each uByte in arrBytes

    strBytes = strBytes & Hex(uByte) & " "

Next

wscript.echo " " & strValueName & " (REG_BINARY) = " & strBytes


' Show a REG_DWORD value

Case REG_DWORD

    oReg.GetDWORDValue hDefKey, strSubKeyPath, strValueName, uValue

    wscript.echo " " & strValueName & " (REG_DWORD) = " & CStr(uValue)    


' Show a REG_MULTI_SZ value

Case REG_MULTI_SZ

    oReg.GetMultiStringValue hDefKey, strSubKeyPath, strValueName, arrValues    

    wscript.echo " " & strValueName & " (REG_MULTI_SZ) ="

For Each strValue in arrValues

    wscript.echo " " & strValue 

Next

End Select

'Display the SNMP community strings 
'If value is not 4(read only) return FALSE and Exit

    If uValue=int(4) Then 
    
        WScript.echo "True" 
    
    Else 
    
        WScript.Echo "False"
        WScript.quit 
    
    End If 



Next

Test2

Test2

Striking out with BING and Google. 

System Center Configuration Manager Extensions for SCAP

http://www.microsoft.com/DOWNLOADS/details.aspx?FamilyID=22e5b9a0-fa7b-4d43-bcea-7084ae6f40f5&displaylang=en#filelist