Vista - Small script for mailenabling users in an OU

Here is a very simple script for mailenabling users in an OU. This
script was made for a windows 2003 AD with an Exchange 2003 server.

' FILE: Mailenable.vbs
' Author: Dag Klaestad
' Version: 1.0
' Requires -Version 1.0
' Comments: ' This script mailenables users in an OU that you specify
in the variable stringou
' Dag Klæstad, Ergogroup AS, 23.04.08

Set objRootLDAP = GetObject("LDAP://rootDSE")
stringDNSDomain = objRootLDAP.Get("DefaultNamingContext")
stringOU="OU=topOU, OU=SubOU," ' <------ NB!!! A comma at the end

Set objOU = GetObject("LDAP://" & stringOU & stringDNSDomain)

on error resume next
for each objChildObject in objOU

stringobjectDN=objChildObject.Name
Set objUser = GetObject("LDAP://" & stringObjectDN & "," &
stringOU & stringDNSDomain)
stringproxy = objUser.Get("mail")
objuser.Mailenable stringproxy

objuser.Put "internetEncoding",1310720

objuser.SetInfo()


Next

WScript.Quit