Well, here is VBS from Micro$oft:
Code:
Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")
Set objUser = objOU.Create("User", "cn=MyerKen")
objUser.Put "sAMAccountName", "myerken"
objUser.SetInfo

_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.