How do i change this script to use a loop

On Error Resume Next

Set objUser = GetObject _
("LDAP://localhost:51008/KEY=xxx,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
objUser.Put "KeyValueString", "bbb"
objUser.SetInfo

Set objUser = GetObject _
("LDAP://localhost:51008/key=qqq,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
objUser.Put "KeyValueString", "bbb"
objUser.SetInfo

"joey" <joe@abc.com> wrote in message
news:OD0Qve4IJHA.3548@TK2MSFTNGP05.phx.gbl...
> How do i change this script to use a loop
>
> On Error Resume Next
>
> Set objUser = GetObject _
>
> ("LDAP://localhost:51008/KEY=xxx,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
> objUser.Put "KeyValueString", "bbb"
> objUser.SetInfo
>
> Set objUser = GetObject _
>
> ("LDAP://localhost:51008/key=qqq,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
> objUser.Put "KeyValueString", "bbb"
> objUser.SetInfo

You need to tell us what your loop condition is. Do you want to run it
twice? Until a certain condition is met? Until an error is encountered?
Other?

No the loop is to modify attibutes in ADAM. The attribute keystring modifies
different "KEYS" in ADAM
"Pegasus (MVP)" <I.can@fly.com.oz> wrote in message
news:uyt0fM5IJHA.4896@TK2MSFTNGP04.phx.gbl...
>
> "joey" <joe@abc.com> wrote in message
> news:OD0Qve4IJHA.3548@TK2MSFTNGP05.phx.gbl...
>> How do i change this script to use a loop
>>
>> On Error Resume Next
>>
>> Set objUser = GetObject _
>>
>> ("LDAP://localhost:51008/KEY=xxx,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
>> objUser.Put "KeyValueString", "bbb"
>> objUser.SetInfo
>>
>> Set objUser = GetObject _
>>
>> ("LDAP://localhost:51008/key=qqq,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
>> objUser.Put "KeyValueString", "bbb"
>> objUser.SetInfo
>
> You need to tell us what your loop condition is. Do you want to run it
> twice? Until a certain condition is met? Until an error is encountered?
> Other?
>

You might get ideas from the Microsoft Script Center section on scripting
ADAM:

http://www.microsoft.com/technet/scr...m/default.mspx

There are scripts that enumerate all attributes of ADAM objects (and their
values). For example:

http://www.microsoft.com/technet/scr.../amlsvb07.mspx

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

"joey" <joe@abc.com> wrote in message
news:OnKeR58IJHA.5872@TK2MSFTNGP04.phx.gbl...
> No the loop is to modify attibutes in ADAM. The attribute keystring
> modifies different "KEYS" in ADAM
> "Pegasus (MVP)" <I.can@fly.com.oz> wrote in message
> news:uyt0fM5IJHA.4896@TK2MSFTNGP04.phx.gbl...
>>
>> "joey" <joe@abc.com> wrote in message
>> news:OD0Qve4IJHA.3548@TK2MSFTNGP05.phx.gbl...
>>> How do i change this script to use a loop
>>>
>>> On Error Resume Next
>>>
>>> Set objUser = GetObject _
>>>
>>> ("LDAP://localhost:51008/KEY=xxx,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
>>> objUser.Put "KeyValueString", "bbb"
>>> objUser.SetInfo
>>>
>>> Set objUser = GetObject _
>>>
>>> ("LDAP://localhost:51008/key=qqq,key=Services,key=Configuration,key=yyy,key =zzz,CN=aaa,DC=site0000001,DC=domain,DC=com")
>>> objUser.Put "KeyValueString", "bbb"
>>> objUser.SetInfo
>>
>> You need to tell us what your loop condition is. Do you want to run it
>> twice? Until a certain condition is met? Until an error is encountered?
>> Other?
>>
>
>