>Simple PING test: VBScript vs PowerShell

Edwin M Sarmiento — Thu, 03 Jul 2008 04:25:00 +0000

>As a preparation for my TechEd Asia 2008 session on Windows PowerShell, I’ve been trying to convert a few of my administrative scripts to demonstrate how easy tasks can be done using PowerShell. Here’s one I just did: simple PING test. Here’s a sample VBScript code that checks whether a PING test is successful or not. I call the VBScript and pass it a parameter which is the hostname or IP address of the computer I want to ping

VBScript:
strComputer=Wscript.Arguments.Item(0) 'parameter passed = hostname

wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer & "'"

Set objWMIService = GetObject("winmgmts:\.rootcimv2") Set objPing = objWMIService.ExecQuery(wmiQuery) For Each objStatus In objPing If IsNull(objStatus.StatusCode) Or objStatus.Statuscode0 Then Reachable = False 'if computer is unreacable, return false Else Reachable = True 'if computer is reachable, return true End If Next
Wscript.Echo Reachable

Here’s the equivalent script using PowerShell

Param($hostname)
$ping = new-object System.Net.NetworkInformation.Ping
$Reply = $ping.Send($hostname)
$Reply.status

You can see how much easier it is to accomplish a simple task in PowerShell. It makes the life of an administrator much better, especially if you have to write scripts that automate repetitive tasks. I’ll post more samples of the VBScript codes you’ve probably seen in this blog converted to PowerShell

Edwin M Sarmiento>Simple PING test: VBScript vs PowerShell – Edwin M Sarmiento

>Simple PING test: VBScript vs PowerShell