Bulk change of User logon name Pre Windows 2000 -- sAMAcoountName

Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
 
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
 
Set objRootDSE = GetObject("LDAP://RootDSE")
objCommand.CommandText = "SELECT sAMAccountName, userPrincipalName, distinguishedName " &_
        "FROM 'LDAP://" & objRootDSE.Get("defaultNamingContext") &_
        "' WHERE objectClass='user' AND objectCategory='person' AND userPrincipalName='*'"
Set objRootDSE = Nothing
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 600
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
 
While Not objRecordSet.EOF
        ' User Principal Name is the "User Logon Name"
        strUPN = objRecordSet.Fields("userPrincipalName").Value
 
	' User Principal Name is in the format username@domain.com. Grab the first part only.
        strUsername = Split(strUPN, "@")(0)
 
        ' SAM Account Name is the "User Logon Name Pre-Windows 2000"
        strSAMAccountName = objRecordSet.Fields("sAMAccountName").Value
 
        ' If the first bit of the UPN isn't the same as the SAMAccountName it'll be changed
        If strSAMAccountName <> strUsername Then
                ' Connect to the user account in AD
                Set objUser = GetObject("LDAP://" & objRecordSet.Fields("distinguishedName"))
                
                WScript.Echo "Resetting SAMAccountName for " & objUser.Get("name") &_
                        " : Old: " & strSAMAccountName & " New: " & strUsername
 
                ' These lines make and commit the change. Check it does what you want first!
                ' objUser.Put "sAMAccountName", strUsername
                ' objUser.SetInfo
 
                ' Disconnect from the User
                Set objUser = Nothing
        End If
        objRecordSet.MoveNext
Wend
 
objConnection.Close
 
Set objRecordSet = Nothing
Set objCommand = Nothing
Set objConnection = Nothing

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54: