VBScriptを使用してiniファイルを読み取る方法は？

Question

可能性の重複：
Vbscript - Read ini or text file for specific section

私は他のPCのIPアドレスにアクセスできるかどうかをチェックしようとしています。 IPaddressが静的である場合、次のコードはokです。

Dim Shell, strCommand, strHost, ReturnCode 
strHost = "192.168.10.1" 
Set Shell = wscript.createObject("wscript.shell") 
strCommand = "ping -n 1 -w 300 " & strHost 
ReturnCode = Shell.Run(strCommand, 0, True) 
If ReturnCode = 0 Then 
wscript.echo strHost & " is pingable" 
Else 
wscript.echo strHost & " is not pingable" 
End If 

私は、動的IPアドレスを確認したいと

VBScriptコードは、iniファイルを使用します。

[IPaddress] 
IP001 = "192.168.10.1"; 
IP002 = "192.168.10.2"; 

今

iniファイル、私はiniファイルとVBScriptコードを接続する方法を知っていただきたいと思います。 それを私に説明してください。

Answer 1

Shadow Wizardが彼のコメントで言及しているように、FSO（FileSystemObject）を使用してファイルを読み取る必要があります。 OpenTextFileのサンプルコードは、おそらく開始するのに適しています。

現在のvbscriptコードをSubに移動して、1つのIPアドレスを引数として受け入れる場合、ファイル内の各IPアドレスに対してそのサブパケットを呼び出すことができます。

たぶん、このようなもの（完全にテストされていないコード）：

Const ForReading = 1 
Set MyFile = fso.OpenTextFile(FileName, ForReading) 
Do While MyFile.AtEndOfStream <> True 
    line = MyFile.ReadLine 
    If Left(line, 2) = "IP" Then 
     ipAddress = Replace(Replace(Right(line, 8), ";", ""), """", "") 
     YourSubThatPings ipAddress 
    End If 
Loop 
MyFile.Close 

lineからipAddressを取得するコードは、おそらくしかし、もう少し柔軟に書き換える必要があります。そしてiniファイルに他の多くのデータが含まれている場合は、正しいセクションにスキップするコードを追加する必要があるかもしれません。