Call Main()
Sub Main()
Call makeUsersFromCSV("USERS.csv")
End Sub
Sub makeUsersFromCSV(strCSVFile)
'import from csv (full name, username, pwd)
Dim objFSO, objFile, arrUser, strFName, strUName, strPwd
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strCSVFile, ForReading)
Do While Not objFile.AtEndOfStream
arrUser = Split(objFile.ReadLine, ",")
strFName = arrUser(0)
strUName = arruser(1)
strPwd = arrUser(2)
Call AddUser(strUName, strFName, strPwd)
Loop
objFile.Close
End Sub
Sub AddUser(strUser,strFullname,strPassword)
Dim Computer
Dim User
Set Computer = Getobject("WinNT://DOMAINNAME")
Set User = computer.create("User",strUser)
User.fullname = strFullname
call User.SetPassword(strPassword)
User.setinfo
Set User = nothing
Set computer = nothing
End sub