Под vbs-скриптом имел в виду что-то в виде такого:
Функция getIPAddress()
Попытка
sc=Новый COMОбъект("MSScriptControl.ScriptControl");
sc.language="VBscript";
strFunc="function getIPAddress()
| Set objShell = CreateObject (""WSCript.Shell"")
| Set objWshScriptExec = objShell.Exec(""C:\GETTSCIP.exe"")
| Set objStdOut = objWshScriptExec.StdOut
| While Not objStdOut.AtEndOfStream
| strLine = objStdOut.ReadLine
| If InStr(strLine,""WTSClientAddress"") Then
| getIPaddress = Trim(Right(strLine, Len(strLine) - InStr(strLine,"":"")))
| End If
| Wend
|End Function";
sc.addCode(strFunc);
Исключение Возврат("0") КонецПопытки;
Возврат sc.run("getIPAddress");
КонецФункции
Показать
В этом примере тоже используется внешний файл. Но надеюсь на помощь в поиске решения именно такого плана.