$wmiColl = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_NetworkConnection")

For Each $wmiObj in $wmiColl
	? $wmiObj.ConnectionState
Next

Function OSPing($sComputer)
  Shell '"'+%COMSPEC%+'" /c ping -n 1 '+$sComputer+' |find /C "TTL=" >nul'
  $OSPing = NOT @ERROR
EndFunction

$Address = "10.31.1.12"
$objWMIService = GetObject("winmgmts:\\.\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select ResponseTime From Win32_PingStatus Where Address='" + $Address + "'")
For Each $objItem In $colItems
  If (VarTypeName($objItem.StatusCode) = 'Null') Or $objItem.StatusCode
    Exit $objItem.StatusCode
  Else
    ? $objItem.ResponseTime
  EndIf
Next