|
Wondering if someone might be willing to guide me with conversion of this script from VB to KIX. I don't get any errors but the user objects do not seem to be getting returned.
The general idea is to get a list of member objects from this eroom api. Once we have the username we can compare to a username from AD, query for the email address and synch it up. The dir connector does not do this automatically.
;Convert from this vb script below
;Dim SvrManager
;Dim Facility
;Dim Room
;dim Member
;Dim Coll
;set SvrManager = CreateObject("Instinctive.ServerManager")
;Set Facility = SvrManager.GetFacility("ArQule_home", "")
;Set Coll = Facility.MemberManager.GetMembers(erMemFlagUsersOnly)
;Dim i
;on error resume next
;For i = 1 To Coll.Count
;Set Member = Coll.Item(i)
;Member.User.eMail=Member.User.LoginName + "@arqule.com"
;'msgbox "email address: " + Member.User.eMail
;Next
;set Facility=Nothing
;Set Coll=Nothing
;END VB
;START KIX
;enemerate a member list
break on
$SvrManager = CreateObject("Instinctive.ServerManager")
$Facility = $SvrManager.GetFacility("ArQule_home", "")
$Coll = $Facility.MemberManager.GetMembers(erMemFlagUsersOnly)
;line above seems to return nothing
? $coll.count
sleep 10
? $coll.item
sleep 10
? "start the loop"
for each $muser in $coll
? $muser.count
? $muser.item
next
? "end the loop"
$Facility=0
$Coll=0
;enumerate the objects from AD(this works will nest when ready)
$objmem = GetObject("LDAP://AXIS/OU=Pfizer,OU=External Users,DC=arqule,DC=com")
for each $user in $objmem
If $user.class = "user"
? $user.samaccountname
? $user.mail
sleep 1
ELSE
ENDIF
next
Thanks for any help, please excuse my lack of scripting skills. I can provide details.
| 
