批量添加域使用者

批量添加域使用者

下面是AddUsers.Vbs的内容:它從同檔案夾的users.txt讀取要添加的使用者及其密碼.

Set adsOU=GetObject("[url=ldap://CN=Users,DC=fkdl,DC=local]LDAP://CN=Users,DC=fkdl,DC=local[/url]")

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile _

    ("users.txt", ForReading)

Do Until objTextFile.AtEndOfStream

    strNextLine = objTextFile.Readline

    arrUserList = Split(strNextLine , ",")

    strUser=arrUserList(0)    

    strPass=arrUserList(1)

    Set adsUser=adsOU.Create("user","CN=" & strUser)

    adsUser.Put "samAccountName", strUser

    adsUser.Put "userPrincipalName", strUser & "@fkdl.local"

    adsUser.SetInfo

    adsUser.SetPassword strPass

    adsUser.AccountDisabled=False

Loop

Users.txt格式:

使用者,密碼

2批量增加使用者到組

net localgroup 組名 使用者名 /add

3批量增加2000使用者

net user  使用者名 密碼 /add /fullname:"使用者全名"

手動做成批處理檔案即可。