[ネットワーク情報を取得する]

コンピュータ名などのネットワーク情報を取得します。

【ソースコード】

[tips0097.vbs]
Option Explicit
On Error Resume Next

Dim objWshNetwork   ' WshNetwork オブジェクト

Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
    WScript.Echo "ドメイン：" & objWshNetwork.UserDomain
    WScript.Echo "コンピュータ：" & objWshNetwork.ComputerName
    WScript.Echo "ユーザー：" & objWshNetwork.UserName
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshNetwork = Nothing

【実行結果】

C:\> cscript //NoLogo tips0097.vbs
ドメイン：WHITIRE
コンピュータ名：TONTON
ユーザー名：Administrator