・ ログオンユーザー名を取得（ＷＳＨ の使用)

ＷＳＨのオブジェクトを使って ログオンユーザー名を取得するには、

'*************************************************************************
'ログオンユーザー名の取得(WSHの使用）
'*************************************************************************
Sub get_u_name()

  Dim objWSH_NW As Object
  Dim U_name As String
  U_name = "不明"

  On Error Resume Next
  Set objWSH_NW = CreateObject("WScript.Network")
  U_name = objWSH_NW.username
  On Error GoTo 0

  MsgBox "ログオンユーザー名：" & U_name

End Sub


ただし、WSH のインストールが前提となります（Internet Explorer 5.0 以後がインストールされていればＯＫ）