ある nakagami の日記

コンピューター名とユーザー名は、環境変数から取得。
IP アドレスを ipconfig.exe の出力から取ってきているのはいまいちな気もするけど、これが一番いいんだろうなぁ。
（下記スクリプトでは、IP アドレスが複数付与されることがあることを考慮してないので注意）

Option Explicit

Dim wsh, env, exe
Dim ipaddress, computername, username
Dim strLine, iColon

Set wsh = WScript.CreateObject("WScript.Shell")

computername = wsh.ExpandEnvironmentStrings("%COMPUTERNAME%")
username = wsh.ExpandEnvironmentStrings("%USERNAME%")

Set exe = wsh.Exec("ipconfig.exe")

Do Until exe.StdOut.AtEndOfStream
  strLine = exe.StdOut.ReadLine
  If InStr(strLine, "IP Address") <> 0 Then
    iColon = Instr(strLine, ":")
    ipaddress = Mid(strLine, iColon + 2)
    ipaddress = Replace(ipaddress, vbCr, "")
  End If
Loop

WScript.Echo computername
WScript.Echo username
WScript.Echo ipaddress