Const domain = "LDAP://DC=DomainName,DC=com"
Set oFs = CreateObject("Scripting.FileSystemObject")
Set oInputFile = oFs.OpenTextFile(WScript.Arguments(0))
 
While Not oInputFile.AtEndOfStream
	inputs = Split(oInputFile.ReadLine, ",")
	Set oUser = FindUser(domain, inputs(0))
	If Not oUser Is Nothing Then
		oUser.Put "mail", inputs(1)
		oUser.SetInfo
	End If
Wend
 
Public Function FindUser(OUPath, UserName)
	Set OU = GetObject(OUPath)
	OU.Filter = Array("user")
	
	For Each oUser In OU
		If LCase(oUser.Get("sAMAccountName")) = LCase(UserName) Then
			Set FindUser = oUser
			Exit Function
		End If
	Next
	
	OU.Filter = Array("container", "organizationalUnit")
	For Each oSubOU In OU
		Set objUser = FindUser(oSubOU.ADsPath, UserName)
		If Not objUser Is Nothing Then
			Set FindUser = objUser
			Exit Function
		End If
	Next
	
	Set FindUser = Nothing
End Function