読者です 読者をやめる 読者になる 読者になる

Powerpoint VBAを使おう!

Powerpoint VBAやExcelのVBAで遊んでいます。Word VBAも始めました。

ActiveDirectoryからログインしている自分自身の情報を取得

ユーザー名じゃなくて,表示名,フルネームがほしい場合について調べていたメモがノートにあったので,自分用にまとめます。

ユーザーネームを取得してみて,知りたいのはこれじゃあないんだ!
となったときに必死に調べて,自分に関係ある部分だけ抜き取ったのが下記のものです。

全く理解できてませんが,職場で試してみてうまくいったことは覚えてます。
ただ,ネットワークに不参加の場合本題のコードはだめでしたので,保険をかける必要がありました。


Sub test()
    'ネットワーク不参加時はエラーが出るので保険
    Debug.Print VBA.Interaction.Environ$("UserName")
    'ExcelやWordを利用
    Dim XLApp As Object
    Set XLApp = CreateObject("Excel.Application")
    Debug.Print XLApp.username
    '本題
    Dim objADSystemInfo As Variant: Set objADSystemInfo = CreateObject("ADSystemInfo")
    Dim objUser As Variant: Set objUser = GetObject("LDAP://" & objADSystemInfo.username)
    
    Debug.Print objUser.DisplayName   '表示名
    Debug.Print objUser.userPrincipalName  'ユーザーログオン名
    
End Sub

職場でしか試せないので,チェックできておりません。

情報元はこちらのページです。
pnpk.net