Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VBScript
Hello,
 
I have the following code:
 
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
But, I get the following error, no idea what it is.
C:\scripts\test.vbs(20, 26) Microsoft VBScript compilation error: Expected ')
 
Thanks for your help,
Posted 7-Feb-13 9:10am
namerg389

1 solution

Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

	If SyncMode5NameExists != 0 Then
 
should be
	If SyncMode5NameExists <> 0 Then 
 
That is the VB not equal sign.
  Permalink  
v2
Comments
namerg at 7-Feb-13 14:27pm
   
Hmm, so why the " Not equal to != " does not work ?
Mike Meinz at 7-Feb-13 14:53pm
   
The VBScript documentation says that != is not a valid VBScript comparison operator.
 
See Comparison Operators (VBScript)
aspnet_regiis -i at 7-Feb-13 15:01pm
   
Nice catch.. +5
Sergey Alexandrovich Kryukov at 7-Feb-13 18:42pm
   
Captain Obvious at work. My 5! :-)
—SA

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 Maciej Los 310
1 OriginalGriff 295
2 Afzaal Ahmad Zeeshan 224
3 Sergey Alexandrovich Kryukov 195
4 BillWoodruff 160
0 OriginalGriff 6,499
1 Sergey Alexandrovich Kryukov 6,048
2 DamithSL 5,193
3 Manas Bhardwaj 4,657
4 Maciej Los 4,120


Advertise | Privacy | Mobile
Web03 | 2.8.1411022.1 | Last Updated 7 Feb 2013
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100