ユーザ、ドメイン、コンピュータ名を表示し出力結果をテキストファイル保存させる。

スポンサーリンク

下記自分が勝手に書いたものなので、色々自分でアレンジしてみてください。

Option Explicit

Dim objFS
Dim objText
Dim objWSNT
Dim names 
Dim objWShell

Set objWSNT = CreateObject("WScript.NetWork")
Set objWShell = Createobject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
'下記任意の場所にテキストファイル出力させて下さい。
Set objText = objFS.CreateTextFile("F:\VBScript\test.txt")

names = "ユーザ名=     = " & objWSNT.UserName & vbCrLf & "ドメイン名    = " & objWSNT.UserDomain & vbCrLf & "コンピュータ名= " & objWSNT.ComputerName

'下記でポップアップにて10秒各情報表示
objWShell.Popup (names)_
, 10 _
,"『ユーザ名.ドメイン名.コンピュータ名表示』"_
,vbOkOnly + vbInformation

'下記でnamesで取得した情報をテキストファイルに出力
objText.WriteLine (names)

Set objWShell = Nothing

出力されたテキストファイル

ポップアップ