Comments on: Import contacts from a csv file using VbScript

By: Gary

Gary — Wed, 08 Jun 2011 18:16:36 +0000

This script is fantastic.

If your domain name changes, update your csv file and then rerun this script. It will update all the contacts.

Absolutely fantastic.

By: josh

josh — Fri, 04 Mar 2011 14:31:47 +0000

one other thing that is important if exchange is to send email to these contacts is the field internetEncoding, which needed to be set to 1310720 in order to work..

By: Chris

Chris — Fri, 04 Feb 2011 08:42:20 +0000

No problem, I’m glad you got it working in the end :)

Chris

By: Steve

Steve — Fri, 04 Feb 2011 00:42:18 +0000

Chris!
I got it working. I am not sure just how elegant it is but it definitely works. When reading the file you match the attribute with the value using = then later on you split it using = for creating and updating the contact.
All I did was replace the = with ^ in the 4 locations needed in the script and bing off we go.

Thank you so much for spending your own time in coming up with the Proxyaddress update. It has saved me so much time and pain.

Cheers,
Steve

By: Steve

Steve — Thu, 03 Feb 2011 23:41:12 +0000

Hi Chris,
I have given it a go with some success. I have replaced the separator with ; for the proxyaddresses and importing multiple SMTP addresses works correctly. When entering in a X500 address with the format like:
X500:/O=FCL/OU=AUST/cn=Recipients/cn=TestContact the import doesn’t work.
This is the log entry for it:
Appending proxyaddresses Attribute: aaEmail aaMigration – company: New: /o

The problem I think is this proxyaddresses is also delimited by = which is breaking up the X500 address.
So I think before it even gets to the adding proxyaddresses the string is broken.

I am working through it here to see if I can get it to parse the address correctly but any assistance would be great!

Cheers,
Steve

By: Steve

Steve — Thu, 03 Feb 2011 20:51:17 +0000

Amazing! Thank you so much!
I will give it a go today!

Cheers,
Steve

By: Chris

Chris — Thu, 03 Feb 2011 08:53:46 +0000

Hmm in theory it might work if you call the field proxyAddresses, and use the modified CheckUpdate Subroutine below. Ensure you include the address type prefix (e.g. smtp:bob@domain.example X500:/somevalue/).

Afraid I can’t test it, but if you’d like to take the update for a spin? :)

Sub CheckUpdate(objContact, strAttribute, strValue)
	Const ADS_PROPERTY_APPEND = 3

	Dim strCurrentValue
	Dim arrValues

	On Error Resume Next

	If LCase(strAttribute) = "proxyaddresses" Then
		arrValues = Split(strValue, ", ")
		For Each strValue in arrValues
			WriteLog "Appending " & strAttribute & " Attribute: " &_
				objContact.Get("displayName") & ": New: " & strValue, True
			If booTestOnly = False Then
				Err.Clear
				objContact.PutEx ADS_PROPERTY_APPEND, strAttribute, Array(strValue)
				objContact.SetInfo
				If Err.Number <> 0 Then
					WriteLog objContact.Name & ": Error Updating " & strAttribute & " with " & strValue, True
					WriteLog objContact.Name & ": " & Err.Description
				End If
			End If
		Next
	Else
		strCurrentValue = "" : strCurrentValue = objContact.Get(strAttribute)
 		If LCase(strCurrentValue) <> LCase(strValue) Then
			WriteLog "Updating " & strAttribute & " Attribute: " &_
				objContact.Get("displayName") & ": Old: " & strCurrentValue &_
				" New: " & strValue, True
			If booTestOnly = False Then
				Err.Clear
				objContact.Put strAttribute, strValue
				objContact.SetInfo
				If Err.Number <> 0 Then
					WriteLog objContact.Name & ": Error Updating " & strAttribute & " with " & strValue, True
					WriteLog objContact.Name & ": " & Err.Description
				End If
			End If
		End If
	End If

	On Error Goto 0
End Sub

Chris

By: Steve

Steve — Thu, 03 Feb 2011 02:35:32 +0000

Hi Chris,
For the life of me I have not been able to replicate the issue again. I have tried a few different combinations with the givenname first but they have all worked successfully.

There is another question I have in regards to Proxyaddresses. Is it possible to import multiple proxyaddresses with the script? For instance I need to be able to include the standard SMTP proxy address but also an X500 address. I have tried using a few different delimiter types but so far I haven’t had any luck.

Cheers,
Steve

By: Chris

Chris — Fri, 14 Jan 2011 09:00:11 +0000

That’s a little unexpected. Would you be able to provide a sample of the file you’re using? I tried to duplicate with this one but cannot reproduce the bug:

givenname,sn,company,targetAddress
bob,hope,somecompany,bob@hope.com

Associated command to execute the script:

cscript ContactImport.vbs -f test.csv -o “OU=Somewhere,DC=domain,DC=example” -r -t -n “givenname sn – company”

By: Steve

Steve — Fri, 14 Jan 2011 03:03:09 +0000

Hi Chris,
3 years later and still posting about this script :)
I agree with everyones comments, this script works rather damn well. Thankyou!

I did have one interesting issue with it though.
In my import CSV if I ran with givename as the first column, for some reason my display name when using the -n switch and specifying givenname (or givenname sn – company) would concatenate both the sn + givenname (bloggsjoe) for the Displayname (bloggsjoe bloggs – company).
If you change the first column to something other than Givenname first (I used company) it works perfectly.
I am not quite sure how this is happening or why, I spent a bit of time looking through the code but just couldn’t pick where it was doing it.

Cheers,
Steve