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

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

【ソースコード】　[tips0150.pas]
program tips0150;
{$APPTYPE CONSOLE}
uses   SysUtils,ComObj,ComCtrls;
var     APP : Variant;
begin
  APP := CreateOleObject('WScript.Network''');
  WriteLn('ドメイン：''',APP.UserDomain);
  WriteLn('ＰＣ名　：''',APP.ComputerName);
  WriteLn('ユーザ名：''',APP.UserName);
end.

【コンパイル＆実行】　[tips0150.bat]
dcc32 tips0150.pas 
tips0150.exe >tips0150.txt
pause

【実行結果】　[tips0150.txt]
ドメイン：MNET
ＰＣ名　：SYATYOU04
ユーザ名：2198