使用VBScript將OU內的User名稱改大寫

要將OU內的所以使用者名稱，將英文小寫部份都變更為大寫。
爬文了一下, 原來DN (distinguishedName) 是不能用 objUser.put 方式來改的..
要用Move的方式來處理..
如下 : 將User Object 由原來的名稱, 移到大寫的新名稱的位置.

' Change DN (distinguishedName) to UpperCase by VBScript
' -----------------------------------------------'
Option Explicit
Dim objOU, objUser , UName, LName
Set objOU = GetObject("LDAP://ou=OU1,dc=demo,dc=com")
For each objUser in objOU
If objUser.class="user" Then
LName = objUser.displayName
UName = UCase(objUser.displayName)
objUser.Put "displayname", UName
objUser.Put "givenName", UName
objUser.Put "sAMAccountName",UName
objUser.SetInfo
GetObject(objUser.parent).moveHere ObjUser.adspath,"CN=" & UName
End If
Next