VBScriptでPCの情報を読んでみた

VBScriptで、PCの名前などの情報を読んでみました。 試した環境は下記です。

  • Windows10

目次

  1. 背景
  2. 処理の流れ
    1. WshNetworkオブジェクト
    2. Now関数
  3. 試してみた

背景

共有のスクリプトのログをとろうとした場合、PCの名前などの情報も書き込めると便利です。というわけで、VBScriptでPCの名前などを読んでみました。

処理の流れ

  1. WshNetworkオブジェクトを作る。

  2. オブジェクトのプロパティを読み取る。

WshNetworkオブジェクト

WshNetworkオブジェクトを通して、ネットワーク上のユーザー情報にアクセスできます。 プロパティは下記の３つです。

プロパティ

内容

ComputerName

ネットワーク上のコンピュータ名

UserDomain

ユーザードメイン名

UserName

ユーザー名

Now関数

Now関数は、現在の日時を取得する関数です。

試してみた

dim wno
dim str

set wno = WScript.CreateObject("WScript.Network")
str = wno.UserDomain & " " & wno.ComputerName & " " & wno.UserName & " " & Now


dim fso
dim f

set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\hogehoge\test.txt", 8, True)
f.WriteLine(str)
f.Close

テキストファイルに、ドメイン名、コンピュータ名、ユーザー名、日時が出力されました。

Previous: VBScriptでテキストファイルに追記してみた   Next: C#で文字列に文字が含まれているかどうか調べる

公開日

広告

VBScriptカテゴリの投稿