Vbscript 根据提供的用户名检索广告属性

我有一个函数（如下），可以为当前登录的用户提供我需要的广告属性（名字和姓氏），但我希望用户输入用户名，将其传递给此函数，并根据传递的用户名查找名字和姓氏

Function ADFullName(strName)

    Dim objSysInfo, objUser, strRet
    Set objSysInfo = CreateObject("ADSystemInfo")

    ' Currently logged in User
    Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

    strRet = msgbox("If this is your full name, click yes to proceed, otherwise click NO and re-enter your new username:" & vbclf & vbclf & objUser.FirstName & " " & objUser.LastName, vbYesNo, "Confirm Name")

    If strRet = vbYes Then
        Msgbox "You answered yes."
    Else
        Msgbox "You answered no."
    End If

End Function