wowmarkb Posted February 9, 2008 Share Posted February 9, 2008 I can run ipconfig by itself and it shows the IP Address. I want know how to ping the resulting IPAddress after finding it. I tried this script: ----- ; END Func ping2Pressed() RunWait(@COMSPEC & " /c For /f "usebackq tokens=2 delims=[]" %%i in (`ping -n 1 %computername%`) do set IPAddress=%%i & ping %IPAddress% & pause") EndFunc ; Just idle around While 1 Sleep(10) Wend ----- .. but, it gives me this error: RunWait(@COMSPEC & " /c For /f "usebackq tokens=2 delims=[]" %%i in (`ping -n 1 %computername%`) do set IPAddress=%%i & ping %IPAddress% & pause") RunWait(@COMSPEC & " /c For /f "usebackq tokens^ ERROR Error: Missing separator character after keyword. Can I modify this script to do what I want or, do you guys/gals have a better script that works? Thanks, Mark Link to comment Share on other sites More sharing options...
Xenobiologist Posted February 9, 2008 Share Posted February 9, 2008 Ipconfig shows your own ip. My ping yourself? There is a macro for your IP and a func called Ping Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times Link to comment Share on other sites More sharing options...
LIMITER Posted February 9, 2008 Share Posted February 9, 2008 $ip = @IPAddress1 $ping = Ping($ip) MsgBox(32,"","Tims(ms) : " & $ping) Link to comment Share on other sites More sharing options...
wowmarkb Posted February 9, 2008 Author Share Posted February 9, 2008 $ip = @IPAddress1 $ping = Ping($ip) MsgBox(32,"","Tims(ms) : " & $ping) I tried this: ; END Func ping2Pressed() $ip = @IPAddress1 $ping = Ping($ip) MsgBox(32,"","Tims(ms) : " & $ping) EndFunc ; Just idle around While 1 Sleep(10) Wend ---and got a little window with: "? and Tims(ms) : 1" in it. Any ideas? Mark Link to comment Share on other sites More sharing options...
Kademlia Posted February 9, 2008 Share Posted February 9, 2008 If you´r MsgBox realy looked like this: MsgBox(32,"","Tims(ms) : " & $ping) There is no possability of getting "? and Tims(ms) : 1" as text. Only "Tims(ms) : 1" What means the ping to your computer takes 1 ms or <1ms Link to comment Share on other sites More sharing options...
wowmarkb Posted February 9, 2008 Author Share Posted February 9, 2008 If you´r MsgBox realy looked like this:MsgBox(32,"","Tims(ms) : " & $ping)There is no possability of getting "? and Tims(ms) : 1" as text.Only "Tims(ms) : 1"What means the ping to your computer takes 1 ms or <1msOK. The problem with the current script is that even when my Local Area Connection is Disabled, it returns thae same value.What I was hoping for is that a DOS window would open (Or the one that pops up now is OK, as long as it has all data in it), ipconfig is run, then script takes the resulting "IP Address" and pings that address, showing the results. Basically, I am trying to automate these steps: Open command window, run ipconfig, determine the IP Address and type ping "the IP Address" and hit Enter. Mark Link to comment Share on other sites More sharing options...
Kademlia Posted February 9, 2008 Share Posted February 9, 2008 As i just did something similar here a examplecode Look at helpfile for StdoutRead CODE If $Command = "GET:ALL" Then $foo = Run(@ComSpec & " /c " & 'volumeline.exe ' & $Command, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) While ProcessExists($foo) Sleep(50) WEnd $line = StdoutRead($foo) $line = StringStripCR($line) $line = StringSplit($line, @LF) GetAllInformationfromVolumeline($line) $errorline = StderrRead($foo) If $errorline <> "" Then MsgBox(0, "STDERR read:", $errorline) EndIf Link to comment Share on other sites More sharing options...
wowmarkb Posted February 9, 2008 Author Share Posted February 9, 2008 As i just did something similar here a examplecodeLook at helpfile for StdoutReadCODE If $Command = "GET:ALL" Then $foo = Run(@ComSpec & " /c " & 'volumeline.exe ' & $Command, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) While ProcessExists($foo) Sleep(50) WEnd $line = StdoutRead($foo) $line = StringStripCR($line) $line = StringSplit($line, @LF) GetAllInformationfromVolumeline($line) $errorline = StderrRead($foo) If $errorline <> "" Then MsgBox(0, "STDERR read:", $errorline) EndIf-----Line 1 causes this error:If $Command="GET:ALL" ThenIf ^ ERRORError: Variable used without being declared.-----Any ideas? I am running SciTE4AutoIt3Version 1.75Nov 2007Mark Link to comment Share on other sites More sharing options...
Kademlia Posted February 9, 2008 Share Posted February 9, 2008 okay.. "examplecode" was the wrong word. "Here is a part of my program that does what you want to do: Look at StdoutRead in the Helpfile " Link to comment Share on other sites More sharing options...
wowmarkb Posted February 10, 2008 Author Share Posted February 10, 2008 okay.. "examplecode" was the wrong word. "Here is a part of my program that does what you want to do: Look at StdoutRead in the Helpfile " ----- I have been going nuts since your last post trying to find/modify scripts to get a script that will find my PC's IP Address, then ping it. OK, I got scipts to output my computer's IP Address to a text file or message box. The problem is, how can I use the data/ variable/string in a command like "ping [ipaddress]". I cannot ping a variable, it seems, I get errors. How can I take the value from say, notepad or the clipboard and import it into a dos command like ping [ip address]? I haven't found anything on the web that adresses this. I guess nobody ever wants to ping their own IP Address- unless they manually type it in. Please help me before I go comepletely mad Mark Link to comment Share on other sites More sharing options...
Squirrely1 Posted February 10, 2008 Share Posted February 10, 2008 (edited) LIMITER's code works fine on my machine to do all that you say you are trying to do, except what do you want to do visa vis ipconfig and your ip address? It seems like all you can do with ipconfig and an ip address is to release or renew a connection, not ping one. Edited February 10, 2008 by Squirrely1 Das Häschen benutzt Radar Link to comment Share on other sites More sharing options...
Kademlia Posted February 10, 2008 Share Posted February 10, 2008 If you still want to use the output of the commandwindow. Just do like this: 1. Get the Commandwindow text to a variable. 2. Trim/Split until you only got the IP adress left. 3. Go for something like this: CODE$ip = "127.0.0.1" Run(@ComSpec & " /c " & 'ping ' & $ip, "", @SW_SHOW) If you want to parse this information you have to use StdoutRead again Link to comment Share on other sites More sharing options...
wowmarkb Posted February 10, 2008 Author Share Posted February 10, 2008 If you still want to use the output of the commandwindow.Just do like this:1. Get the Commandwindow text to a variable.2. Trim/Split until you only got the IP adress left.3. Go for something like this:CODE$ip = "127.0.0.1"Run(@ComSpec & " /c " & 'ping ' & $ip, "", @SW_SHOW)If you want to parse this information you have to use StdoutRead againThanks. I actually got that far yesterday. I got the IP Address isolated and saved into a text file or printed in a message box.Now, if I could take that address and pull it out of the text file/message box and put it into a command line then ping it, I'd be as happy as a pig in poop.Thanks,Mark Link to comment Share on other sites More sharing options...
LIMITER Posted February 10, 2008 Share Posted February 10, 2008 You could use this $ip = FileRead("c:\test.txt");change this to your txt path Run(@ComSpec & " /c " & 'ping ' & $ip, "", @SW_SHOW) I think both should work Link to comment Share on other sites More sharing options...
wowmarkb Posted February 11, 2008 Author Share Posted February 11, 2008 I found the answer!!! Thanks to: http://www.experts-exchange.com/Networking...Q_22060380.html (I modified it slightly.)This works in a bat file but, I would like to have it included in my Autoit file with all the other scripts I have.Can you all help me make the correct changes to make it work in AutoIt?-----@echo offif exist error.txt del error.txt >NUL:pingtestfor /f "delims=" %%a in (pingme.txt) do call :PROCESS %%a::wait 30 seconds before continuingping localhost -n 30 > NULgoto :pingtest:PROCESSping %1 -n 4if ERRORLEVEL 1 goto IPERRORecho.echo.echo.echo Your IP: %1 works ! goto :eof:IPERRORecho IP: %1 is down at %time% >> error.txt-----Thanks,Mark Link to comment Share on other sites More sharing options...
DickG Posted February 11, 2008 Share Posted February 11, 2008 I wrote an app that does this and more. You will have to customize these functions to suit your needs. I used certain vars (like $GUI_W", etc) that you will have to deal with, which are defined in my own GUI section. I also used IP addresses for the local ISPs here in Panama (see Select Case). You will also have to add your own INI file, define the keys for it, declare the vars, etc. Here is the code that finds your router's IP, then your ISP's gateway IP. I have more code that tries to discover what the problem is if there is no connection to the router or to the gateway, but am not including it here for simplicity sake. expandcollapse popupFunc GetIPs () $SplashMsg = "Finding IP addresses. Please wait ..." SplashTextOn("Internet Checker", $SplashMsg , ($DesktopHeight - $GUI_H), 50, ($DesktopWidth - $GUI_W - 300), ($DesktopHeight - $GUI_H + 100), 4, "", 9) ;Find router and gateway IPs. TraceRoute ($routerIP, $gatewayIP) ;Store IP values in Registry. IniWrite($IniFile, $IniSection, $Key1, $routerIP) IniWrite($IniFile, $IniSection, $Key2, $gatewayIP) ;Find ISP based on gateway address. Select Case StringInStr($gatewayIP, "10.100.107.") $ISP = "Adess Networks" Case StringInStr($gatewayIP, "10.100.110.") $ISP = "Adess Networks" Case StringInStr($gatewayIP, "10.10.0.") $ISP = "Wireless Internet Solutions" Case StringInStr($gatewayIP, "200.3.206.") $ISP = "MobilNet" Case StringInStr($gatewayIP, "10.11.32.") $ISP = "Si Wireless" Case Else $ISP = "Unknown ISP" EndSelect ;Set values in GUI. GUICtrlSetData($Value_Router, $routerIP) GUICtrlSetData($Value_Gateway, $gatewayIP) GUICtrlSetData($Label_ISP, $ISP) ;Splash off. SplashOff() MsgBox(0, "IP Addresses", "IP addresses have been updated and saved.") ;MsgBox(0, "Internet Checker","Internet Status: OK.") EndFuncoÝ÷ Ù«¢+ÙÕ¹QÉI½ÕÑ¡ åIÀÌØíɽÕÑÉ%@° åIÀÌØíÑÝå%@¤($í%¹¥Ñ¥±¥éÙÉ¥±Ì¸($ÀÌØí=ÕÑÁÕÐôÅÕ½ÐìÅÕ½Ðì($ÀÌØíÁ½ÌÄôÀ($ÀÌØíÁ½ÌÈôÀ($ÀÌØíÁ½ÌÌôÀ($ÀÌØíÍÑÉ¥¹ÄôÅÕ½ÐìÅÕ½Ðì($ÀÌØíÍÑÉ¥¹ÈôÅÕ½ÐìÅÕ½Ðì($ÀÌØíÍÑÉ¥¹ÌôÅÕ½ÐìÅÕ½Ðì($ÀÌØíɽÕÑÉ%@ôÀ($ÀÌØíÑÝå%@ôÀ($($É¥½¸èÐI½ÕÑÈ%@($$ÀÌØíÁ¥ôIÕ¸¡ ½µMÁµÀìÅÕ½Ðì½ÅÕ½ÐìµÀìÌäí¥Á½¹¥Ìäì°ÅÕ½ÐìÅÕ½Ðì°M]}!%°ÀÌØíMQII} !%1¬ÀÌØíMQ=UQ} !%1¤($%AɽÍÍ]¥Ñ ±½Í ÀÌØíÁ¥°ÄÀ¤ì]¥ÐÕÀѼÄÀͽ¹Ì¸($$ÀÌØí=ÕÑÁÕеÀìôMѽÕÑI ÀÌØíÁ¥¤ìMÙ½ÕÑÁÕи($$í5Í ½à À°ÅÕ½Ðí=ÕÑÁÕÐè¥Á½¹¥ÅÕ½Ðì°ÀÌØí=ÕÑÁÕФ($$($$ÀÌØíIÍÕ±ÐôMÑÉ¥¹IáÀ ÀÌØí=ÕÑÁÕаÅÕ½ÐílÀ´åulÀ´åtýlÀ´åtü¹lÀ´åulÀ´åtýlÀ´åtü¹lÀ´åulÀ´åtýlÀ´åtü¹lÀ´åulÀ´åtýlÀ´åtüÅÕ½Ðì°Ì¤($%%ÉɽȱÐìÐìÀQ¡¸($$%5Í ½à À°ÅÕ½Ðí%¹ÑɹР¡ÈèÉɽÈÈÅÕ½Ðì°ÅÕ½Ðí]¡½½ÁÌÌÌìAɽ±´½ÕÉÉÝ¥Ñ ¥Á½¹¥ÍÑÉ¥¹¸A±ÍÑÉ䥸¸ÅÕ½Ðì¤($$%á¥Ð($%¹%($$í5Í ½à À°ÅÕ½ÐíQÉI½ÕÑèIÍÕ±ÐÅÕ½Ðì°ÀÌØíIÍÕ±ÑlÉt¤($$($$í ¡¬ÍÑÉ¥¹mɵ½ÙÁÉ¥½Ì°Ñ¡¸¹ÍÕɥХ̥¥Ñt¸($%¥´ÀÌØíàôMÑÉ¥¹IÁ± ÀÌØíIÍÕ±ÑlÉt°ÅÕ½Ðì¸ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤($%%MÑÉ¥¹%Í¥¥Ð ÀÌØíà¤ôÀQ¡¸($$%5Í ½à À°ÅÕ½Ðí%¹ÑɹР¡ÈÅÕ½Ðì°ÅÕ½Ðí]¡½½ÁÌÌÌìAɽ±´½ÕÉÉÝ¥Ñ ¥Á½¹¥ÍÑÉ¥¹¸A±ÍÑÉ䥸¸ÅÕ½Ðì¤($%¹%($$ÀÌØíɽÕÑÉ%@ôÀÌØíIÍÕ±ÑlÉtìÍÉ%@½Õ¹¥¸±¥Íи($$í5Í ½à À°ÅÕ½ÐíI½ÕÑÈ%@ÅÕ½Ðì°ÀÌØíɽÕÑÉ%@¤($$($$íQÍÐѼµÍÕɥн¹¹Ñ=,¸($$ÀÌØíQÍÐÄôMÑÉ¥¹%¹MÑÈ ÀÌØí=ÕÑÁÕаÅÕ½ÐíÉÅÕÍÐÑ¥µ½ÕÐÅÕ½Ðì¤($$ÀÌØíQÍÐÈôMÑÉ¥¹%¹MÑÈ ÀÌØí=ÕÑÁÕаÅÕ½ÐíÍÑ¥¹Ñ¥½¸¡½ÍÐչɡ±ÅÕ½Ðì¤($%%ÀÌØíQÍÐÄÐìÀ=HÀÌØíQÍÐÈÐìÀQ¡¸($$%MÁ±Í¡= ¤($$%5Í ½à À°ÅÕ½ÐíI½ÕÑÈAɽ±´ÅÕ½Ðì°ÅÕ½ÐíQ¡ÉÝÌÁɽ±´½¹¹Ñ¥¹Ñ¼å½ÕÈɽÕÑȸÅÕ½ÐìµÀì I1µÀì|($$$ÅÕ½ÐíA±ÍÙÉ¥äѡХХÌÁ½Ýɽ¸¹½¹¹Ñ¸ÅÕ½ÐìµÀì HµÀì|($$$ÅÕ½Ðí%å½ÔÕÍݥɱÍÌÁÑÈ°ÍÕɥи½¹¹ÐѼѡɽÕÑȸÅÕ½ÐìµÀì HµÀì|($$$ÅÕ½ÐíQ¡¸ÑÉ䥸¸ÅÕ½Ðì¤($$%á¥Ð($%¹%($$í5Í ½à À°ÅÕ½ÐíQÉI½ÕÑèI½ÕÑÉ%@ÅÕ½Ðì°ÅÕ½ÐíɽÕÑÉ%@ôÅÕ½ÐìµÀìÀÌØíɽÕÑÉ%@¤($¹É¥½¸($($É¥½¸èÐÑÝä%@($$ÀÌØí=ÕÑÁÕÐôÅÕ½ÐìÅÕ½Ðì($$ÀÌØíÁ¥ôIÕ¸¡ ½µMÁµÀìÅÕ½Ðì½ÅÕ½ÐìµÀìÌäíÑÉÉÐÝÝܹ½½±¹½´Ìäì°ÅÕ½ÐìÅÕ½Ðì°M]}!%°ÀÌØíMQII} !%1¬ÀÌØíMQ=UQ} !%1¤($%AɽÍÍ]¥Ñ ±½Í ÀÌØíÁ¥°ÄÀ¤ì]¥ÐÕÀѼÄÀͽ¹Ì¸($$ÀÌØí=ÕÑÁÕеÀìôMѽÕÑI ÀÌØíÁ¥¤ìMÙ½ÕÑÁÕи($$í5Í ½à À°ÅÕ½ÐíQÉÉÐѼ½½±ÅÕ½Ðì°ÀÌØí=ÕÑÁÕФ($$($$íQÍÐѼµÍÕɥн¹¹Ñ=,¸($$ÀÌØíQÍÐÄôÅÕ½ÐìÅÕ½Ðì($$ÀÌØíQÍÐÈôÅÕ½ÐìÅÕ½Ðì($$ÀÌØíQÍÐÄôMÑÉ¥¹%¹MÑÈ ÀÌØí=ÕÑÁÕаÅÕ½ÐíÉÅÕÍÐÑ¥µ½ÕÐÅÕ½Ðì¤($$ÀÌØíQÍÐÈôMÑÉ¥¹%¹MÑÈ ÀÌØí=ÕÑÁÕаÅÕ½ÐíÍÑ¥¹Ñ¥½¸¡½ÍÐչɡ±ÅÕ½Ðì¤($%%ÀÌØíQÍÐÄÐìÀ=HÀÌØíQÍÐÈÐìÀQ¡¸($$%MÁ±Í¡= ¤($$%5Í ½à À°ÅÕ½Ðí%¹ÑɹÐAɽ±´ÅÕ½Ðì°ÅÕ½ÐíQ¡ÉÝÌÁɽ±´½¹¹Ñ¥¹Ñ¼å½ÕÈÑÝä¸ÅÕ½ÐìµÀì I1µÀì I1µÀì|($$$ÅÕ½Ðí%¥Ð¥Ì½ä½ÈÉ¥¹¥¹°Ý¥Ðչѥ°ÝѡȱÉ̸ÅÕ½ÐìµÀì I1µÀì|($$$ÅÕ½Ðí%å½ÔÕÍݥɱÍÌÁÑÈ°ÍÕɥи½¹¹ÐѼå½ÕÈɽÕÑÈ¥ÉÍиÅÕ½ÐìµÀì I1µÀì|($$$ÅÕ½Ðí=Ñ¡ÉݥͰ¥Ð¥ÌÁ½ÍÍ¥±Ñ¡Ðå½ÕÈ%M@ÌäíÌÑÝä¥Ì½Ý¸¸ÅÕ½Ðì¤($$%á¥Ð($%¹%($$($$í¥¹ÑÝä%@ɽ´ÑÉÉи($$ÀÌØíIÍÕ±ÐôMÑÉ¥¹IáÀ ÀÌØí=ÕÑÁÕаÅÕ½ÐílÀ´åulÀ´åtýlÀ´åtü¹lÀ´åulÀ´åtýlÀ´åtü¹lÀ´åulÀ´åtýlÀ´åtü¹lÀ´åulÀ´åtýlÀ´åtüÅÕ½Ðì°Ì¤($%%ÉɽȱÐìÐìÀQ¡¸($$%5Í ½à À°ÅÕ½Ðí%¹ÑɹР¡ÈèÉɽÈÌÅÕ½Ðì°ÅÕ½Ðí]¡½½ÁÌÌÌìAɽ±´½ÕÉÉÝ¥Ñ ÑÝäÍÑÉ¥¹¸A±ÍÑÉ䥸¸ÅÕ½Ðì¤($$%á¥Ð($%¹%($$í5Í ½à À°ÅÕ½ÐíQÉI½ÕÑèIÍÕ±ÐÅÕ½Ðì°ÀÌØíIÍÕ±ÑlÉt¤($$($$í¥¹Ý¡¥ %@ÉÍ̽µÌÑÈɽÕÑÈ%@ÉÍ̸($%½ÈÀÌØíàôÀQ¼U ½Õ¹ ÀÌØíIÍձФ($$%%ÀÌØíIÍÕ±ÑlÀÌØíátôÀÌØíɽÕÑÉ%@Q¡¸($$$$ÀÌØíàôÀÌØíà¬ÄìU͹áÐ%@ÉÍ̸($$$$ÀÌØíÑÝå%@ôÀÌØíIÍÕ±ÑlÀÌØíát($$$$íMÁ±¥Ð%@¥¹Ñ¼½ÑÑÌ°Ñ¡¸ÕÍÅÕ½Ðì¸ÄÅÕ½Ðìй¸($$$$ÀÌØíÑÝå%A}ѵÀôMÑÉ¥¹MÁ±¥Ð ÀÌØíÑÝå%@°ÅÕ½Ðì¸ÅÕ½Ðì¤($$$$ÀÌØíÑÝå%@ôÀÌØíÑÝå%A}ѵÁlÅtµÀìÅÕ½Ðì¸ÅÕ½ÐìµÀìÀÌØíÑÝå%A}ѵÁlÉtµÀìÅÕ½Ðì¸ÅÕ½ÐìµÀìÀÌØíÑÝå%A}ѵÁlÍtµÀìÅÕ½Ðì¸ÄÅÕ½Ðì($$$%á¥Ñ1½½À($$%¹%($%9áÐ($$($$í ¡¬ÍÑÉ¥¹mɵ½ÙÁÉ¥½Ì°Ñ¡¸¹ÍÕɥХ̥¥Ñt¸($%¥´ÀÌØíàôMÑÉ¥¹IÁ± ÀÌØíÑÝå%@°ÅÕ½Ðì¸ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤($%%MÑÉ¥¹%Í¥¥Ð ÀÌØíà¤ôÀQ¡¸($$%5Í ½à À°ÅÕ½Ðí%¹ÑɹР¡ÈÅÕ½Ðì°ÅÕ½Ðí]¡½½ÁÌÌÌìAɽ±´½ÕÉÉÝ¥Ñ ÑÝäÍÑÉ¥¹¸A±ÍÑÉ䥸¸ÅÕ½Ðì¤($%¹%($$í5Í ½à À°ÅÕ½ÐíÑÝä%@ÅÕ½Ðì°ÀÌØíÑÝå%@¤($¹É¥½¸($$(%IÑÕɸÀÌØíɽÕÑÉ%@µÀìÀÌØíÑÝå%@)¹Õ¹ Dick I found the answer!!! Thanks to: http://www.experts-exchange.com/Networking...Q_22060380.html (I modified it slightly.) This works in a bat file but, I would like to have it included in my Autoit file with all the other scripts I have. Can you all help me make the correct changes to make it work in AutoIt? ----- @echo off if exist error.txt del error.txt >NUL :pingtest for /f "delims=" %%a in (pingme.txt) do call :PROCESS %%a ::wait 30 seconds before continuing ping localhost -n 30 > NUL goto :pingtest :PROCESS ping %1 -n 4 if ERRORLEVEL 1 goto IPERROR echo. echo. echo. echo Your IP: %1 works ! goto :eof :IPERROR echo IP: %1 is down at %time% >> error.txt ----- Thanks, Mark Link to comment Share on other sites More sharing options...
ChrisBair Posted April 22, 2010 Share Posted April 22, 2010 Find default gateways of connected adapters and ping each 50 times, then write the output to a file: $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $colItems = "" $strComputer = "localhost" $concat = "" $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", _ $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then For $objItem In $colItems $strDefaultIPGateway = $objItem.DefaultIPGateway(0) $concat = $objItem.Caption & @CRLF & "Default Gateway: " & $strDefaultIPGateway & @CRLF $loops = 1 $total = "" While $loops <= 50 $ping = Ping($strDefaultIPGateway, 1200) $total = $total + $ping $concat = $concat & "ping " & $loops & ": " & $ping & " ms" & @CRLF $loops = $loops + 1 WEnd $concat = $concat & "Average " & $total / $loops & " ms" & @CRLF $tempfile = @ScriptDir & "\" & $objItem.Caption & ".txt" $file = FileOpen($tempfile, 1) FileWrite($file, $concat) FileClose($file) ;If MsgBox(1, "WMI Output", $concat) = 2 Then ExitLoop $concat = "" Next Else MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapterConfiguration") EndIf Link to comment Share on other sites More sharing options...
jeeva Posted April 28, 2010 Share Posted April 28, 2010 You can test your ping test here http://www.whoisxy.com/ping.aspx at free of cost.... Link to comment Share on other sites More sharing options...
Rambo Posted July 8, 2010 Share Posted July 8, 2010 its easier to read windows register instead doing "ipconfig" Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now