need help modifying script

Can someone help me modify this script?  I need it to run for only the logged in user.
It 'does' - BUT it shows X number of wscript popup windows as it's looping through userlist until it finds the correct user.
I'd like to make the "X" number be 'just' the one where they match please.
It was scary this week with 80 users in that list - I'm worried that when we have 200 users in the list, it will abend the system....

Set WshNetwork = WScript.CreateObject("WScript.Network")
strUser = WshNetwork.UserName

Const ADS_SCOPE_SUBTREE = 2
Const ADS_SECURE_AUTHENTICATION = 1

AdminUser  = "XXXX"
AdminPswd  = "XXXX"
InputFile = "\\Server\share\userlist.txt"
DC1        = "XdomainX"
DC2         = "com"

Set FSO    = CreateObject("Scripting.FilesyStemObject")
Set oFile  = FSO.OpenTextFile(InputFile)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand    = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

Set openDS = GetObject("LDAP:")

Do until oFile.AtEndOfLine
   LineIn = oFile.ReadLine
   strData  = Split(LineIn, ",")
   If Ubound(strData) > 0 Then
      strData(0) = trim(strData(0))   ' current username
      strData(1) = trim(strData(1))   ' new username
      if lcase(strData(0)) = lcase(strUser) then
        objCommand.CommandText = _
          "SELECT distinguishedName FROM 'LDAP://dc=" & DC1 & ",dc=" & DC2 & "' " & "WHERE objectCategory = 'user' " & _
             "AND SAMAccountName = '" & strUser & "'"
            Set objRecordSet = objCommand.Execute
           objRecordSet.MoveFirst
           Do Until objRecordSet.EOF
              DN = objRecordSet.Fields("distinguishedName").Value
              Set usr = openDS.OpenDSObject("LDAP://" & DC1 & "." & DC2 & "/" & DN, AdminUser, AdminPswd, ADS_SECURE_AUTHENTICATION)
              usr.put "samAccountName", strData(1)
              usr.put "userPrincipalName", strData(1) & "@" & DC1 & "." & DC2
              usr.SetInfo
              usr.SetPassword "xxxxxx"
             'fso.GetFolder("F:\Users\" & strData(0)).Name = strData(1)
             'msgbox "About to rename " & strData(0) & " to " & strData(1)
             FSO.GetFolder("\\Server\USERS\" & strData(0)).Name = strData(1)
             FSO.GetFolder("\\Server\HDBackup\" & strData(0)).Name = strData(1)
           objRecordSet.MoveNext
         Loop
      End if
   End If
Loop

oFile.Close
msgbox "Processing completed at " & now()
Set usr = Nothing
Set objCommand.ActiveConnection = Nothing
Set objCommand = Nothing
Set objConnection = Nothing
Set openDS = Nothing
Set oFile = Nothing
Set FSO = Nothing
wscript.quit