Easyadsi.vbs
Option Explicit Dim oRoot, oOU, strContainer, oUser, strUser strContainer = ?LDAP://ou=finance,dc=acme,dc=com? ?********************************************************************** ?* IADs::PutEx Constants ?********************************************************************** Const ADS_PROPERTY_CLEAR = 1 Const ADS_PROPERTY_UPDATE = 2 Const ADS_PROPERTY_APPEND = 3 Const ADS_PROPERTY_DELETE = 4
A
?********************************************************************
?* Scenario 1 ADSI Interface
?**********************************************************************
Set oOU = GetObject(strContainer)
Set oUser = oOU.Create(?User?, ?cn=Judy Schneider?) ? IADsContainer
oUser.Put ?sAMAccountName?, ?JudyS? ? IADs
oUser.SetInfo ? IADs
oUser.SetPassword ?qwerty? ? IADsUser
oUser.AccountDisabled = FALSE ? IADs
?**********************************************************************
?* Setting Optional User Properties
?* ——————————————
?* The following user properties are divided into groups that correspond
?* to the property pages available in the Active Directory Users and
?* Computers snap-in?s User Properties dialog box. The attribute names
?* in the code on the left are the LDAP display names of the attribute.
?* The names referenced in the comments to the right are the labels that
?* appear on the property pages. The mapping between LDAP display
?* names and property page labels is stored in the attributeDisplayNames
?* property that is a member of the displaySpecifier class.
?**********************************************************************
?* General Property Page
?**********************************************************************
oUser.givenName = ?Judy? ? First Name
oUser.initials = ?JAS? ? Initials
oUser.sn = ?Schneider? ? Last Name
oUser.displayName = ?Judy Schneider? ? Display Name
oUser.description = ?Comptroller? ? Description
oUser.physicalDeliveryOfficeName = ?12/3456? ? Office Location
oUser.telephoneNumber = ?(111) 111-1111? ? Telephone Number
oUser.otherTelephone = Array(?(222) 222-2222?, _
?(333) 333-3333?) ? Phone Number (Others)
oUser.mail = ?judys@acme.com? ? Email Address
oUser.wWWHomePage = ?http://acme.com/judys? ? Web Page Address
oUser.url = Array(?http://anotherUrl?, _
?http://yetanotherUrl?) ? Web Page Address (Others)
?**********************************************************************
?* Address Property Page
?**********************************************************************
oUser.streetAddress = ?1 Wall Street? ? Street Address
oUser.postOfficeBox = ?N/A? ? Post Office Box
oUser.l = ?New York? ? City
oUser.st = ?NY? ? State/Province
oUser.postalCode = ?10005? ? ZIP/Postal Code
oUser.co = ?United States? ? Country
?**********************************************************************
?* Account Property Page
?**********************************************************************
oUser.userPrincipalName = ?judys? ? Logon Name
oUser.userWorkstations = ?jasdesktop? & ?,? & _
?jaslaptop? ? Log On To... ? Logon Workstations
oUser.pwdLastSet = CLng(-1) ? Disable ?User must change
? password at next logon?
oUser.AccountExpirationDate = Date + 1 ? Account expires - End of:
?**********************************************************************
?* Profile Property Page
?**********************************************************************
? User profile - Profile path
oUser.profilePath = ?%LOGONSERVER%Documents and Settingsjudys?
? User profile - Logon script
oUser.scriptPath = ?logon.wsf //job:finance?
? Home Drive
oUser.homeDrive = ?H:?
? Home Folder
oUser.homeDirectory = ?%LOGONSERVER%Documents and Settingsjudys?
?**********************************************************************
?* Telephones Property Page
?**********************************************************************
oUser.homePhone = ?(444) 444-4444? ? Home Phone
oUser.otherHomePhone = Array(?(555) 555-5555?, _
?(666) 666-6666?) ? Home Phone (Others)
oUser.pager = ?(777) 777-7777? ? Pager Number
oUser.otherPager = Array(?(888) 888-8888?, _
?(999) 999-9999?) ? Pager Number (Others)
oUser.mobile = ?(000) 000-0000? ? Mobile Number
oUser.otherMobile = Array(?(aaa) aaa-aaaa?, _
?(bbb) bbb-bbbb?) ? Mobile Number (Others)
oUser.facsimileTelephoneNumber = _
?(ccc) ccc-cccc? ? Fax Number
oUser.otherFacsimileTelephoneNumber = _
Array(?(ddd) ddd-dddd?, ?(eee) eee-eeee?) ? Fax Number (Others)
oUser.ipPhone = ?1.1.1.1? ? IP Phone Number
oUser.otherIpPhone = Array(?2.2.2.2?,?3.3.3.3?) ? IP Phone Number (Others)
oUser.info = ?Primary contact number: Mobile? ? Notes
?**********************************************************************
?* Organization Property Page
?**********************************************************************
oUser.title = ?Senior Comptroller? ? Job Title
oUser.department = ?Accounting & Finance? ? Department
oUser.company = ?Acme Widgets? ? Company
?**********************************************************************
?* Miscellaneous: Not Accessible Via UI by Default...
?**********************************************************************
oUser.middleName = ?Anne? ? Middle Name
oUser.employeeID = ?23? ? Employee ID
oUser.comment = ?Vegatarian? ? Comment
oUser.personalTitle = ?Accountant? ? Title
oUser.division = ?Corporate? ? Division
oUser.otherMailbox = Array(?judys@hotmail.com?, _
?judys@zdnetonebox.com?) ? Email Address (Others)
oUser.homePostalAddress = ?10 Carriage Circle? ? Home Address
oUser.c = ?US? ? Country Abbreviation
oUser.primaryTelexNumber = ?(fff) fff-ffff? ? Telex Number
oUser.telexNumber = Array(?(ggg) ggg-gggg?, _
?(hhh) hhh-hhhh?) ? Telex Number (Others)
oUser.primaryInternationalISDNNumber = _
?InternationalISDNNumber1? ? International ISDN Number
oUser.SetInfo
Set oOU = Nothing
Set oUser = Nothing
B
?**********************************************************************
?* Scenario 2 ADSI Interface
?**********************************************************************
strUser = ?LDAP://cn=Judy Schneider,ou=finance,dc=acme,dc=com?
Set oUser = GetObject(strUser)
oUser.Put ?homePostalAddress?, ?39 Echo Mill Drive? ? IADs
oUser.Put ?homePhone?, ?(123) 456-7890? ? IADs
oUser.PutEx ADS_PROPERTY_APPEND, _
?otherHomePhone?, _
Array(?(098) 765-4321?) ? IADs
oUser.SetInfo ? IADs
Set oUser = Nothing
C
?********************************************************************** ?* ADSI Interface ?********************************************************************** strContainer = ?LDAP://ou=executive,dc=acme,dc=com? strUser = ?LDAP://cn=Judy Schneider,ou=finance,dc=acme,dc=com? Set oOU = GetObject(strContainer) oOU.MoveHere strUser, ?cn=Judy Schneider? ? IADsContainer Set oOU = Nothing
D
?********************************************************************** ?* ADSI Interface ?********************************************************************** strContainer = ?LDAP://ou=executive,dc=acme,dc=com? strUser = ?LDAP://cn=Judy Schneider,ou=executive,dc=acme,dc=com? Set oOU = GetObject(strContainer) oOU.Delete ?User?, ?cn=Judy Schneider? ? IADsContainer Set oOU = Nothing Конец Листинга 2