9.5 ユーザ名やコンピュータ名を得る
 ユーザ名やコンピュータ名などのネットワーク関連の情報を得る方法です。ただし、Win9xなどではこの情報が取れない場合もあるので、そのときはあきらめてください(泣)

 これらの情報を得るには、ネットワークオブジェクトのプロパティから得ることが出来ます。
使用例
 例では、ユーザ名、ドメイン名、コンピュータ名の情報を表示しています。

 @でネットワークオブジェクトを作成し、あとはUserNameなどプロパティの情報をズラズラ表示しているだけ。

 ■VBScriptの記述例
Option Explicit

Dim objNetWork

'@ネットワークオブジェクトの作成
Set objNetWork = WScript.CreateObject("WScript.Network")

'Aユーザ名
WScript.echo "UserName    = " & objNetWork.UserName

'Bドメイン名
WScript.echo "UserDomain  = " & objNetWork.UserDomain

'Cコンピュータ名
WScript.echo "ComputerName= " & objNetWork.ComputerName

Set objNetWork = Nothing
 ※お使いのPCによっては表示しない物もあります。

 ■JScript(JavaScript)の記述例
//@ネットワークオブジェクトの作成
var objNetWork = new ActiveXObject("WScript.Network")

//Aユーザ名
WScript.echo("UserName    = " + objNetWork.UserName);

//Bドメイン名
WScript.echo("UserDomain  = " + objNetWork.UserDomain);

//Cコンピュータ名
WScript.echo("ComputerName= " + objNetWork.ComputerName);

objNetWork = null
 ※お使いのPCによっては表示しない物もあります。
Copyright(C) 1999-2006 結城圭介。 All rights reserved