[Access] PCのユーザー名やコンピュータ名を取得する。: あした

2019年12月18日

[Access] PCのユーザー名やコンピュータ名を取得する。

PCのユーザー名やコンピュータ名を参照設定を行わす取得します。

（「Windows Script Host Object Model」に参照設定をしない方法です）


Public p_UserName               As String
Public p_UserDomain             As String
Public p_ComputerName           As String

Public Function UserNameGet()

    Dim objNetWork          As Object

    'ネットワークオブジェクトの作成
    Set objNetWork = CreateObject("WScript.Network")

    'ユーザ名
    p_UserName = objNetWork.UserName

    'ドメイン名
    p_UserDomain = objNetWork.UserDomain

    'コンピュータ名
    p_ComputerName = objNetWork.ComputerName

    Set objNetWork = Nothing
    
End Function

ついでにドメイン名の取得しています。
この例ではどこでも使えるようにグローバル変数(Publicで宣言)にセットしています。

【このカテゴリーの最新記事】

posted by naka at 08:16 | TrackBack(0) | Access vba

この記事へのトラックバックURL
https://fanblogs.jp/tb/9496438
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック