#74791 - 2003-04-23 10:54 PM
Strange Behavior
|
Glenn Barnas
KiX Supporter
Registered: 2003-01-28
Posts: 4402
Loc: New Jersey
|
Just playing today and found what I thought was a wierd behavior. I have an array of server names and need their IP addresses. "ping" was a handy way to resolve them. When I supplied one host name as a test it worked, but if I run the command more than once, it gives a wierd response.
First try - displays IP address
next try - displays result from prior shell command, newline, and IP of current server
Here's the code.. I'm at a loss to explain what's happening. Appreciate any ideas - in the mean time, I'll be looking for a UDF to accomplish this. (I figured a quick hack would suffice for this "throw-away" project.)
BTW - in troubleshooting, I've commented out most of the lines in the function. The prior response is printed as soon as the ReadLine is executed.
Thanks!
Glenn
code:
GetIP('server1')
GetIP('server2')
GetIP('server3')
Function GetIP($Host)
Dim $RTN, $RC $Line
$RTN = 1
Shell '%ComSpec% /c ping -n 1 $Host | %SystemRoot%\System32\Find "Pinging" > %TEMP%\junk.txt'
$RC = Open(5,"%TEMP%\junk.txt",2)
If @ERROR = 0
$Line = ReadLine(5)
$GetIP= Split(Join(Split($Line,']',-1),'['), '[')[1]
Del '%TEMP%\junk.txt'
$RTN = 0
$RC = Close(5)
EndIf
Exit $RTN
EndFunction
[ 23. April 2003, 23:00: Message edited by: Glenn Barnas ]
_________________________
Actually I am a Rocket Scientist! 
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 640 anonymous users online.
|
|
|
![[Wink]](images/icons/wink.gif){kind=icon}
