批处理增加用户和修改密码

1、批处理增加用户

 批量导入用户.rar   

在cmd模式下

导入用户：
csvde -i -f 导入名字.csv

导出用户:
csvde -f  导出名字.csv

 

2、批处理修改密码为123456，将以下内容用.vbs保存

dim strDCname,strOUname,strOU,strfstOU,strsecOU
dim objshell,objNet,objFile,objuser
dim strch1,strfslog
 ' dim error

strDCname= ",dc=cantonfair,dc=org,dc=cn"
'strDCname = "dc=test,dc=com,dc=tt"
'strDCname = ",dc=stlc2,dc=iii,dc=org,dc=tw"
Set objDictionary = CreateObject("Scripting.Dictionary")
 set objShell = CreateObject("WScript.Shell")
 set objNet   = CreateObject("WScript.NetWork")

'*************
'下面的ou对应AD中的组织单位
'*************
strOUname = "ou=技术保障部,ou=中心(集团)"
msgbox "LDAP://" & strOUname & strDCname
Set objOU = GetObject("LDAP://" & strOUname & strDCname)
call userputin

msgbox "ok"

'*************
'副程式
'*************

sub userputin
'On Error Resume next
objOU.Filter = Array("user")
' chang password defaule
For Each objuser in objOU
 'objuser.Put "pwdLastSet", 888888    
    objuser.setPassword "123456" '下次登入改密碼为123456
 objuser.AccountDisabled = FALSE
 objuser.SetInfo
wscript.sleep 500

Next
' next
end sub