Option Explicit Const HKEY_CURRENT_USER = &H80000001 'HKEY_CURRENT_USER Dim oReg Dim strComputer,strValueName,arrValueNames Dim strKeyPath1 Dim SyncMode5NameExists ssig="Unable to open registry key" strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath1 = "Software\Microsoft\Windows\CurrentVersion\Internet Settings" oReg.EnumValues HKEY_CURRENT_USER,strKeyPath1,arrValueNames For Each strValueName In arrValueNames SyncMode5NameExists = (StrComp(strValueName,"SyncMode5")) If SyncMode5NameExists != 0 Then Wscript.Echo "bla,bla" End If 'Exit For Next
If SyncMode5NameExists != 0 Then
If SyncMode5NameExists <> 0 Then
!=
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)