for loop on this

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" <> wrote in message
news:...
> 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)" <> wrote in message
news:...
>
> "joey" <> wrote in message
> news:...
>> 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" <> wrote in message
news:...
> No the loop is to modify attibutes in ADAM. The attribute keystring
> modifies different "KEYS" in ADAM
> "Pegasus (MVP)" <> wrote in message
> news:...
>>
>> "joey" <> wrote in message
>> news:...
>>> 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?
>>
>
>