使用vbs如何更新AD里面用户的信息（最好有代码）

[xing_qian_xing]

在对Active Directory用户信息的更新方面除了使用java 和 .Net 写以外
如何使用vbs直接对AD进行有效的更新 最好有代码 我是刚开始学AD要求使用VBS
写 请各位大侠们教教小弟！

[xing_qian_xing]

strUserName = "VBSUser"
strDomainName = "@xing.com"
strUserPWD = "[e-mail]"
Set objOU = GetObject("LDAP://OU=KiCorp,dc=xing,dc=xing,dc=com")
Set objUser = objOU.Create("User", "cn=" & strUserName)

objUser.Put "streetAddress","88888888888888"
objUser.Put "sAMAccountName", strUserName '登录名
objUser.Put "userPrincipalName",strUserName & strDomainName 'AD2003登录名
objUser.Put "sn","FamilyName" '姓
objUser.Put "givenName","Name" '名
objUser.Put "displayName","显示的名字" '显示的名字
objUser.Put "initials","AABB" '缩写
objUser.Put "description","Description" '描述
objUser.Put "telephoneNumber","612345" '电话
objUser.Put "physicalDeliveryOfficeName","wlzx" '办公室
objUser.Put "mail",strUserName & strDomainName 'EMAIL

objUser.SetInfo

Set objUser = nothing

MsgBox "用户已添加。"

o(∩_∩)o... 已经搞定了...

[xing_qian_xing]

我们在处理AD的时候如果处理失败 会返回一个错误信息的对话框
里面的信息是不是可以通过某种途径找到并且保存到文本文件中啊！

请教高手们 里面引发的异常是属于谁的异常 是LDAP的 还是 里面内置的管理工具的。
请高手们给小弟我一个满意的答案！
分都给你们 急急急！