对于vmware，vbscript循环直到找到变量

Question

我有一个脚本，它执行netstat并查找已建立会话的IP。

一旦建立了WMware会话，它就能正常工作，但是由于运行VMware View作为shell的瘦客户端的限制。我想知道你是否可以安全地运行脚本，直到找到变量（varVIMIP），这只是在用户经过身份验证并建立了与其虚拟机的连接之后。可能有更好的方法来做到这一点，我也对此持开放态度。

set wshShell = CreateObject("WScript.Shell")
set wshEnvironment = wshShell.Environment("User")

'Look through NetStat for information
set aryNetStat = wshShell.Exec("netstat -n -b")
varVMIP=""
do while not aryNetStat.StdOut.AtEndOfStream
 strNetStatLine = aryNetStat.StdOut.ReadLine()

 'Look for recent connection to VMWare Virtual Machine
 if Instr(strNetStatLine,":4172")>32 then varVMIP=trim(mid(strNetstatLine,33,instr(mid(strNetstatLine,33,20),":")-1))
loop


if varVMIP<>"" then
 wshEnvironment("VMIP")=varVMIP
end if
 wshShell.Run "c:\windows\sigplus\sigsock.exe " & wshEnvironment("VMIP") & " SigPad 6"