VBScript do tworzenia użytkowników z pliku
Dim objFSO,objTS
Dim objDom,objUser
Const FORREADING=1
strFile="newusers.csv"
'szablon newusers.csv
'givenname,sn,password,telephonenumber,upnsuffix
'przykład:
'Albert,Smith,P@sswordASJINX,5553221-1234,@eng.domain.com.com
'Uncle, Funer,$cr1pgn0@nsw3rs,555-122312334,@marketing.domain.com.com
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(strFile,FORREADING)
Set objDom=GetObject("LDAP://OU=YOUR_AD_OU,DC=YOUR_DOMAIN,DC=YOUR_ROOT_DOMAIN")
'otwarcie pliku i odczyt każdej linii
Do while objTS.AtEndofStream<>True
rline=objTS.readline
UserArray=Split(rline,",")
strFirst=UserArray(0)
strLast=UserArray(1)
strUser=strFirst & " " & strLast
strLogon=Left(strFirst,1)&strLast
strUsername=LCASE(Left(strFirst,1)&strlast)
strPass=UserArray(2)
strPhone=UserArray(3)
strUPN=strUserName & UserArray(4)
'Tworzenie usera
Set objUser=objDom.Create ("User","cn="&strUser)
objUser.Put "samAccountName",strUserName
objUser.SetInfo
'dodanie właściwości
objUser.Put "givenname",strFirst
objUser.Put "sn",strLast
Share Link: 
