Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Returning the IP results from a ping?
I snagged this beautiful piece of code from here, and I've seen other
code that could do it, but I'm having a hard time gluing it all together. Is there any way I can make this: ---start code--- Public Sub PingIt() Set Machines = Sheets(1).Range("A1", "A3") For Each Machine In Machines.Cells Debug.Print Machine Set objPing = GetObject _ ("winmgmts:{impersonationLevel=impersonate}"). _ ExecQuery("select * from Win32_PingStatus " & _ "where address = '" & Machine & "'") For Each objStatus In objPing If objStatus.StatusCode = 0 Then Sheets(1).Cells(Machine.Row, Machine.Column + 1) = _ "Success" Else Sheets(1).Cells(Machine.Row, Machine.Column + 1) = _ "Failed" End If Next Next End Sub ---end code--- Not only tell me if it Success/Failed on the ping, but also in the next column over the IP address? TIA, Benjamin |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VLOOKUP not returning results | Excel Worksheet Functions | |||
Vlookup Returning Same Results on Each Row | Excel Discussion (Misc queries) | |||
Vlookup Returning Same Results on Each Row | Excel Discussion (Misc queries) | |||
Ping results into Excel | Excel Programming | |||
Returning VBA results to a cell | Excel Programming |