Scripting help needed

Hi,
my below code is not working....It can create up to Location10 not more than that, please help.

MadForMsi

Hi, my below code is not working....It can create up to Location10 not more than that, please help.

Where is your code i can't see it ?? or it's an invisible and a hidden code

How to post a code? something is changed in this website. Whenever I am putting code, it goes in single line
 
'On Error Resume Next

CONST HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\"

strWriteLn = "C:\Program Files\Microsoft Office\"

strvalName = "Location"

intcount=1

Set Objshell = CreateObject("wscript.shell")

'------------------------------------------------------------------------------------------


Chk_N_Write_Line ( strWriteLn )



'------------------------------------------------------------------------------------------

Sub Chk_N_Write_Line ( strWriteLn )

objReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys

subkey1 = Replace (LCase(subkey), "location", "")               'Split(Subkey, "n")


Next

subkey1 = subkey1+intcount

strvalName = Left (strvalName,8) & subkey1

A = "HKEY_CURRENT_USER" & "\" & strkeypath & strvalName & "\Path"

objshell.regwrite A,strWriteLn, "REG_SZ"

End Sub

EnumKey() returns the subkey array in alphabetical order, i.e. "Location10" appears before "Location2". When you create "Location10", the next enumeration will again return "Location9" as the last element, so you'll just overwrite the already existing "Location10" subkey. To go beyond 10 you need to determine the highest location number instead of the last enumeration element:

subkey1 = 0
For Each subkey In arrSubKeys
 subkeyNum = Int(Replace(LCase(subkey), "location", ""))
 If subkeyNum > subkey1 Then subkey1 = subkeyNum
Next