Get AD country for given UPN using AZ CLI in Excel using VBA

get-ad-country.vba

'Usage as Excel function: =getCountryFromAD("UPN")

Function getCmdlineOutput(cmd As String)
    CreateObject("WScript.Shell").Run "cmd /c """ & cmd & "|clip""", 0, True 'output>clipbrd
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'latebound clipbrd obj
        .GetFromClipboard                                 'get cmdline output from clipboard
        getCmdlineOutput = .GetText(1)                    'return clipboard contents
    End With
End Function

Public Function getCountryFromAD(email As String) As String
    getCountryFromAD = getCmdlineOutput("az ad user show --query " & Chr(34) & "country" & Chr(34) & " --id " & email)
End Function