|
The final Product do I need to release the com objects at the end of the script? Thanks for all of your help
;AD to Eroom email address synch for external PFE users
;E Charlton 4-9-2004
break on
;generate the eroom member list
$SvrManager = CreateObject("eRoom.ServerManager")
$Facility = $SvrManager.GetFacility("ArQule_home", "")
$Coll = $Facility.MemberManager.GetMembers(4)
;generate the objects from AD
$objmem = GetObject("LDAP://ATLAS/OU=Pfizer,OU=External Users,DC=arqule,DC=com")
;check for a match and synch the email address
for each $user in $objmem
IF $user.class = "user"
For $ic = 1 To $Coll.Count
$Member = $Coll.Item($ic)
$vermem = $Member.User.loginname
IF $vermem = $user.samaccountname
$Member.user.email=$user.mail
ELSE
ENDIF
Next $ic
ELSE
ENDIF
Next
| 
