<# 
.SYNOPSIS 
    Demonstrates use of the Win32_PingStatus WMI class   
.DESCRIPTION 
    This script is a community content MSDN sample,using PowerShell 
.NOTES 
    File Name  : Get-PingStatus
    Author     : Thomas Lee - tfl@psp.co.uk
    Requires   : PowerShell V2 CTP3 
.LINK 
    Sample posted to: 
http://pshscripts.blogspot.com/2009/03/get-httpversionps1.html
    Original MSDN sample at: 
http://msdn.microsoft.com/en-us/library/system.net.httpversion.aspx
.PARAMETER Comp
    The computer you want to ping - should be resolvable by DNS
.EXAMPLE 
    PSH [C:\foo]:  .\Get-PingStaus.ps1 blogger.com
    Computer to ping:       blogger.com
 Computer responded in:  127ms
.EXAMPLE
    PSH [C:\foo]: "blogger.com", "Localhost" | .\get-pingstatus.PS1'
    Computer to ping:       blogger.com
    Computer responded in:  127ms
    Computer to ping:       Localhost
    Computer responded in:  0ms
.EXAMPLE
    PSH [C:\foo]:  .\Get-PingStaus.ps1 
    Computer to ping:       localhost
    Computer responded in:  0ms
#> 

[Cmdletbinding()]
param ( 
[Parameter(Position=0,mandatory=$false,ValueFromPipeline=$true)]
[string] $comp = "localhost")

### 
# Start of Script 
### 

Process {
# Display intput
"Computer to ping: $comp"

# Now ping the system
$ping = get-wmiobject -Query "select * from win32_pingstatus where Address='$comp'"

# Display Results
if ($ping.statuscode -eq 0) {
"Computer responded in: {0}ms" -f $ping.responsetime
}
else {
"Computer did not respond"
}
}
#

<# 
.SYNOPSIS 
    Demonstrates use of the Win32_PingStatus WMI class   
.DESCRIPTION 
    This script is a community content MSDN sample,using PowerShell 
.NOTES 
    File Name  : Get-PingStatus
    Author     : Thomas Lee - tfl@psp.co.uk 
    Requires   : PowerShell V2 CTP3 
.LINK 
    Sample posted to: 
    http://pshscripts.blogspot.com 
    Original MSDN sample at: 
    http://msdn.microsoft.com/en-us/library/aa394350(VS.85).aspx 
.PARAMETER Comp
    The computer you want to ping - should be resolvable by DNS
.EXAMPLE 
    PSH [C:\foo]:  .\Get-PingStaus.ps1 blogger.com
    Computer to ping:       blogger.com
    Computer responded in:  127ms
.EXAMPLE
    PSH [C:\foo]: "blogger.com", "Localhost" | . 'C:\foo\to post\get-pingstatus.PS1'
    Computer to ping:       blogger.com
    Computer responded in:  127ms
    Computer to ping:       Localhost
    Computer responded in:  0ms
.EXAMPLE
    PSH [C:\foo]:  .\Get-PingStaus.ps1 
    Computer to ping:       localhost
    Computer responded in:  0ms
#> 

[Cmdletbinding()]
param ( 
[Parameter(Position=0,mandatory=$false,ValueFromPipeline=$true)]
[string] $comp = "localhost")

### 
# Start of Script 
### 

Process {
# Display intput
"Computer to ping:       $comp"

  
# Now ping the system
$ping = get-wmiobject -Query "select * from win32_pingstatus where Address='$comp'"

# Display Results
if ($ping.statuscode -eq 0) {
"Computer responded in:  {0}ms" -f $ping.responsetime
}
else {
"Computer did not respond"
}
}

clear

oWMI = getobject("winmgmts:")

* Specify address or computer name or URL
* cAddress = "192.168.1.125"
cAddress = "apple.com" && Works 21 June 2009 - resolves to 17.112.152.57
* cAddress = "computer_name

if os() < "Windows 5.01"
	messagebox("This will only work in Windows XP and later")
	return
endif

oPings = oWMI.ExecQuery([Select * from WIN32_Pingstatus where address='] + cAddress + ['])

for each oPing in oPings
	* This class does not actually support enumeration,
	* there is only one ping object returned and this is how to access it.

	? "Status code: ", GetStatusCode(oPing.statuscode)
	?
	? "Address: ", oPing.Address
	? "Buffer size", oPing.BufferSize
	? "No Fragmentation", oPing.NoFragmentation
	? "PrimaryAddressResolutionStatus", oPing.PrimaryAddressResolutionStatus
	? "ProtocolAddress", oPing.ProtocolAddress
	? "ProtocolAddressResolved", oPing.ProtocolAddressResolved
	? "RecordRoute", oPing.RecordRoute
	? "ReplyInconsistency", oPing.ReplyInconsistency
	? "ReplySize", oPing.ReplySize
	? "ResolveAddressNames", oPing.ResolveAddressNames
	? "ResponseTime", oPing.ResponseTime
	? "ResponseTimeToLive", oPing.ResponseTimeToLive
	? "SourceRoute", oPing.SourceRoute
	? "SourceRouteType", GetSourceRouteType(oPing.SourceRouteType)
	? "Timeout", oPing.timeout
	? "TimestampRoute", oPing.TimestampRoute
	? "TimeToLive", oPing.TimeToLive
	? "TypeofService", GetTypeOfService(oPing.TypeofService)

	if not isnull(oPing.RouteRecord)
		for each oItem in oPing.RouteRecord
			? oItem
		next
	endif

	if not isnull(oPing.RouteRecordResolved)
		for each oItem in oPing.RouteRecordResolved
			? oItem
		next
	endif

	if not isnull(oPing.RouteRecordResolved)
		for each oItem in oPing.TimeStampRecord
			? oItem
		next
	endif

	if not isnull(oPing.TimeStampRecordAddress)
		for each oItem in oPing.TimeStampRecordAddress
			? oItem
		next
	endif

	if not isnull(oPing.TimeStampRecordAddressResolved)
		for each oItem in oPing.TimeStampRecordAddressResolved
			? oItem
		next
	endif

next

procedure GetSourceRouteType
	lparameters nSourceRouteType

	local cType

	do case
		case nSourceRouteType = 1
			cType = "Loose Source Routing"
		case nSourceRouteType = 2
			cType = "Strict Source Routing"
		otherwise
			* Default - 0 - or any other value.
			cType = "None"
	endcase

	return cType

endproc

procedure GetTypeOfService
	lparameters nServiceType

	local cType as string

	do case
		case nServiceType = 2
			cType = "Minimize Monetary Cost"
		case nServiceType = 4
			cType = "Maximize Reliability"
		case nServiceType = 8
			cType = "Maximize Throughput"
		case nServiceType = 16
			cType = "Minimize Delay"

		otherwise
			* Default - 0 - or any other value.
			cType = "Normal"

	endcase

	return cType

endproc

procedure GetStatusCode (cCode as string) as string

	local cStatus

	do case
		case cCode = 0
			cStatus = "Success"
		case cCode = 11001
			cStatus = "Buffer Too Small"
		case cCode = 11002
			cStatus = "Destination Net Unreachable"
		case cCode = 11003
			cStatus = "Destination Host Unreachable"
		case cCode = 11004
			cStatus = "Destination Protocol Unreachable"
		case cCode = 11005
			cStatus = "Destination Port Unreachable"
		case cCode = 11006
			cStatus = "No Resources"
		case cCode = 11007
			cStatus = "Bad Option"
		case cCode = 11008
			cStatus = "Hardware Error"
		case cCode = 11009
			cStatus = "Packet Too Big"
		case cCode = 11010
			cStatus = "Request Timed Out"
		case cCode = 11011
			cStatus = "Bad Request"
		case cCode = 11012
			cStatus = "Bad Route"
		case cCode = 11013
			cStatus = "TimeToLive Expired Transit"
		case cCode = 11014
			cStatus = "TimeToLive Expired Reassembly"
		case cCode = 11015
			cStatus = "Parameter Problem"
		case cCode = 11016
			cStatus = "Source Quench"
		case cCode = 11017
			cStatus = "Option Too Big"
		case cCode = 11018
			cStatus = "Bad Destination"
		case cCode = 11032
			cStatus = "Negotiating IPSEC"
		case cCode = 11050
			cStatus = "General Failure"

		otherwise
			cStatus = "Unknown"
	endcase

	return cStatus

endproc

strAddress = InputBox ("Specify an address to ping", WScript.ScriptFullName, "google.com")

If GetOsVersion < "5.01" Then
  MsgBox "This will only work In Windows XP and later", _
         vbOKOnly  + vbExclamation, WScript.ScriptFullName
  WScript.Quit
End If

Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & strAddress & "'")

With objPing
  Wscript.Echo "Address : " & .Address
  Wscript.Echo "Buffer size : " & .BufferSize
  Wscript.Echo "No Fragmentation : " & .NoFragmentation
  Wscript.Echo "PrimaryAddressResolutionStatus : " & .PrimaryAddressResolutionStatus
  Wscript.Echo "ProtocolAddress : " & .ProtocolAddress
  Wscript.Echo "ProtocolAddressResolved : " & .ProtocolAddressResolved
  Wscript.Echo "RecordRoute : " & .RecordRoute
  Wscript.Echo "ReplyInconsistency : " & .ReplyInconsistency
  Wscript.Echo "ReplySize : " & .ReplySize
  Wscript.Echo "ResolveAddressNames : " & .ResolveAddressNames
  Wscript.Echo "ResponseTime : " & .ResponseTime
  Wscript.Echo "ResponseTimeToLive : " & .ResponseTimeToLive
  If IsNull (.RouteRecord) Then
    Wscript.Echo "RouteRecord : Null"
  Else
    Wscript.Echo "RouteRecord : " & _
           Join (.RouteRecord, "; ")
  End If
  If IsNull (.RouteRecordResolved) Then
    Wscript.Echo "RouteRecordResolved : Null"
  Else
    Wscript.Echo "RouteRecordResolved : " & _
           Join (.RouteRecordResolved, "; ")
  End If
  Wscript.Echo "SourceRoute : " & .SourceRoute
  Wscript.Echo "SourceRouteType : " & GetSourceRouteType(.SourceRouteType)
  Wscript.Echo "Status code : " & GetStatusCode(.StatusCode)
  Wscript.Echo "Timeout : " & .TimeOut
  If IsNull (.TimeStampRecord) Then
    Wscript.Echo "TimeStampRecord : Null"
  Else
    Wscript.Echo "TimeStampRecord : " & _
           Join (.TimeStampRecord, "; ")
  End If
  If IsNull (.TimeStampRecordAddress) Then
    Wscript.Echo "TimeStampRecordAddress : Null"
  Else
    Wscript.Echo "TimeStampRecordAddress : " & _
           Join (.TimeStampRecordAddress, "; ")
  End If
  If IsNull (.TimeStampRecordAddressResolved) Then
    Wscript.Echo "TimeStampRecordAddressResolved : Null"
  Else
    Wscript.Echo "TimeStampRecordAddressResolved : " & _
           Join (.TimeStampRecordAddressResolved, "; ")
  End If
  Wscript.Echo "TimeStampRoute : " & .TimeStampRoute
  Wscript.Echo "TimeToLive : " & .TimeToLive
  Wscript.Echo "TypeOfService : " & GetTypeOfService(.TypeOfService)
End With

MsgBox "The END"

' ___________________
Function GetOsVersion
  Set objWMIService = GetObject("winmgmts:") 
  Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_OperatingSystem",,48) 
  For Each objItem In colItems
    WScript.Echo objItem.Version
    GetOsVersion = objItem.Version
  Next
  Set colItems = Nothing : Set objWMIService = Nothing
End Function

' ____________________________________________
Function GetSourceRouteType (intSourceRouteType)

  Dim strType

  Select Case intSourceRouteType
  case 1
    strType = "Loose Source Routing"
  case 2
    strType = "Strict Source Routing"
  case Else
    ' Default - 0 - or any other value.
    strType = intSourceRouteType & " - None"
  End Select
  GetSourceRouteType = strType

End Function

' ______________________________________
Function GetTypeOfService (intServiceType)

  Dim strType

  Select Case intServiceType
  case 2
    strType = "Minimize Monetary Cost"
  case 4
    strType = "Maximize Reliability"
  case 8
    strType = "Maximize Throughput"
  case 16
    strType = "Minimize Delay"
  Case Else
    ' Default - 0 - or any other value.
    strType = intServiceType & " - Normal"
  End Select
  GetTypeOfService = strType

End Function

' ____________________________
Function GetStatusCode (intCode)

  Dim strStatus
  Select Case intCode
  case  0
    strStatus = "Success"
  case  11001
    strStatus = "Buffer Too Small"
  case  11002
    strStatus = "Destination Net Unreachable"
  case  11003
    strStatus = "Destination Host Unreachable"
  case  11004
    strStatus = "Destination Protocol Unreachable"
  case  11005
    strStatus = "Destination Port Unreachable"
  case  11006
    strStatus = "No Resources"
  case  11007
    strStatus = "Bad Option"
  case  11008
    strStatus = "Hardware Error"
  case  11009
    strStatus = "Packet Too Big"
  case  11010
    strStatus = "Request Timed Out"
  case  11011
    strStatus = "Bad Request"
  case  11012
    strStatus = "Bad Route"
  case  11013
    strStatus = "TimeToLive Expired Transit"
  case  11014
    strStatus = "TimeToLive Expired Reassembly"
  case  11015
    strStatus = "Parameter Problem"
  case  11016
    strStatus = "Source Quench"
  case  11017
    strStatus = "Option Too Big"
  case  11018
    strStatus = "Bad Destination"
  case  11032
    strStatus = "Negotiating IPSEC"
  case  11050
    strStatus = "General Failure"
  case Else
    strStatus = intCode & " - Unknown"
  End Select
  GetStatusCode = strStatus

End Function