VBScript でコンピューター名/ユーザー名/IP アドレスを取得: ある 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 =

[yohshiy]

ユーザー名などの取得に WScript.Network 使う場合はとれるまでループ回さないと安全じゃないので、こっちの方が簡単。