' -------------------------------------------------------------------------
'       From the book Inside Active Directory, ISBN 0-201-61621-1
'       Copyright (C) 2002 by Addison-Wesley
'       Script by Sakari Kouti (see http://www.kouti.com)
' You have a royalty-free right to use, modify, reproduce and distribute
' this script (and/or any modified version) in any way you find useful,
' provided that you agree that Addison-Wesley or Sakari Kouti has no
' warranty, obligations or liability for the script. If you modify
' the script, you must retain this copyright notice.
' -------------------------------------------------------------------------
Option Explicit

Dim objFile, arrInfo

Set objFile = WScript.StdIn

Do While Not objFile.AtEndOfStream
	arrInfo = Split(objFile.ReadLine(), vbTab)
	Call CreateUser(arrInfo(0), arrInfo(1))
Loop

Sub CreateUser(strFirstName, strLastName)
    'add lines to create a user here
    'you can use the following line to test this
    MsgBox (strFirstName & " " & strLastName)
End Sub