This one I'm particularly fond of. I don't know if it really belongs on deviantArt, but I'm putting it here anyway!
And no, I'm not going to reformat it so that it looks good in the text box. If you want to see it without the text wrap, you'll need to copy it to a text editor of some sort...
'ON ERROR RESUME NEXT
Const adVarChar = 200
Const MaxCharacters = 255
Const Container = "OU=Exchange Contacts"
Set objShell = WScript.CreateObject("WScript.Shell")
Set rsContactList = CreateObject("ADODB.Recordset")
rsContactList.Fields.Append "FirstName", adVarChar, MaxCharacters
rsContactList.Fields.Append "LastName", adVarChar, MaxCharacters