VBSは、私は、このチェックを作成し

Question

netstatの

の出力を確認してください。それがWindowsマシンの場合は、スクリプトを実行します。実行しない場合は、スクリプトを終了します。私は両方の条件が真であることを確かめるために別の小切手をする必要があります。 netstatコマンドを使用して出力があります。ローカルアドレスの下にマシン名がcag.domain.comのポート1494を持つアドレスがあります。スクリプトを閉じないとスクリプトを実行するには、両方の部分が真でなければならないように、そのためのチェックをどのように含めることができますか。 その場合は、\ Client \ C $。 = True、ローカルアドレス：1494、外部アドレス= cag.domain.com = false。スクリプトは実行されません。

Answer 1

私はあなたのnetstatのための右のパラメータも正しい正規表現パターンを与えることはできませんが、私はの線に沿って何かをしたいnetstatの出力をチェックするので、私はWindowsマシンで、現在はないよ：

Dim WshShell, oExec 
Set WshShell = CreateObject("WScript.Shell") 

Set myRegExp = New RegExp 
myRegExp.IgnoreCase = True 
myRegExp.Global = True 
myRegExp.Pattern = ":1497[ ]cag[.]domain[.]com" 

Set oExec = WshShell.Exec("netstat -a") 

'wait for the end of process (busy wait, yuck!) 
Do While oExec.Status = 0 
    WScript.Sleep 100 
Loop 

'scan the command output flow 
Dim oMatchColl, gotNetstat 
gotMatch = false 
Do While oExec.StdOut.AtEndOfStream <> True 
    oMatchColl = myRegExp.Execute(oExec.StdOut.ReadLine) 
    If oMatchColl.Count > 0 Then 
     gotNetstat = true 
     Exit Do 
    End If 
Loop 

---

続きを読む：

• Regular expressions for VBScript
• Netstat documentation
• WScript.Shell documentation
• RegExp object documentation