VBscriptで、Microsoft365アカウントの名前を取得したい

Question

実現したいこと

EXCEL VBAだと
Name1=Environ("USERNAME") で "PC123"
Name2=Application.UserName で "鈴木三郎"
となります。
"鈴木三郎"は、Microsoft365アカウントの名前です。

Name1とName2をVBscriptで取得する場合、
Set WSN = CreateObject("WScript.Network")
Name1 = WSN.UserName
Set ExApp = CreateObject("Excel.Application")
Name2 = ExApp.UserName
で、EXCEL VBAと同じ結果が得られます。

しかし、CreateObject("Excel.Application")で5秒ぐらい
時間がかかるのが嫌なので、EXCELを経由しないやり方を
採用したいのですが、いい方法はないでしょうか。

ご教授お願い致します。

Comments

[KOZ6.0]

ExApp.UserName で得られる名前は Office のユーザー名じゃないでしょうか？
https://paso-kake.com/it/software/6378/
であれば、レジストリから読めると思います。

Answer 1

Excel.Application.UserName を取得

Option Explicit
Dim o, k, r, u
Set o = CreateObject("WScript.Shell")
k = "HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo"
u = o.RegRead(k & "\UserName")
MsgBox u

Microsoft 365 アカウントは、たぶんこちらです。

Option Explicit
Dim o, n, u
Set o = CreateObject("Outlook.Application")
Set n = o.GetNameSpace("MAPI")
Set u = n.CurrentUser
MsgBox u.Name