日頃のメモといったところ。
Set objNetWork = WScript.CreateObject("WScript.Network")
MsgBox "ユーザ名 = " & objNetWork.UserName & vbCr & _
"コンピュータ名 = " & objNetWork.ComputerName & vbCr & _
"ドメイン名 = " & objNetWork.UserDomain
※ドメイン名は「ワークグループ・ネットワーク」のときはコンピュータ名と同じになる。
MsgBox "ユーザ名 = " & objNetWork.UserName & vbCr & _
"コンピュータ名 = " & objNetWork.ComputerName & vbCr & _
"ドメイン名 = " & objNetWork.UserDomain
※ドメイン名は「ワークグループ・ネットワーク」のときはコンピュータ名と同じになる。
PR
Comment
コメントの修正にはpasswordが必要です。任意の英数字を入力して下さい。