ユーザ名を取得する方法

戻る

ユーザ名を取得する方法

動作環境 Windows98/2000 開発環境 Visual Basic 6.0 (+SP5)

説明 WshNetwork オブジェクトの UserName プロパティを利用して、ユーザ名を取得します。

用意するもの：標準フォーム(Form1)、コマンドボタン (Command1)

Private Sub Command1_Click()

Dim MyWSNet As Object
Dim MyPCUserName As String

Set MyWSNet = CreateObject("WScript.Network")

MyPCUserName = MyWSNet.UserName

MsgBox MyPCUserName, vbInformation, "ユーザ名を取得"

Set MyWSNet = Nothing

End Sub

ユーザ名を取得する方法
動作環境	Windows98/2000	開発環境	Visual Basic 6.0 (+SP5)
説明	WshNetwork オブジェクトの UserName プロパティを利用して、ユーザ名を取得します。
用意するもの：標準フォーム(Form1)、コマンドボタン (Command1)
Private Sub Command1_Click() Dim MyWSNet As Object Dim MyPCUserName As String Set MyWSNet = CreateObject("WScript.Network") MyPCUserName = MyWSNet.UserName MsgBox MyPCUserName, vbInformation, "ユーザ名を取得" Set MyWSNet = Nothing End Sub