Advanced Windows PowerShell Scripting Video Training

Advanced Windows PowerShell Scripting Video Training
Advanced Windows PowerShell Scripting Video Training

Friday, June 5, 2015

Use PowerShell to get coordinates from BING.

As I am continuing to build my module to support Bing using PowerShell, I needed a way to send Bing a location and get its coordinates back.  I had to do some research and I found Kevin Pelgrim’s code to do just that.  I also wanted the geographic rectangle of the selected address so I did some re-coding and also changed the code to match my programming style.  Here is the end result. Check out the help file for details.  You may notice some word wrapping going on.  Especially in the items in purple.  You may need to remove carriage returns if you copy and paste this code from those lines.  The items in green are the start of those lines.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
1
Function Get-BINGCoordinates
{
       [CmdletBinding()]
       Param (
              [String]$Location,
              [String]$Key = "Enter Your key Here"
       )
      
    # Custom Object
       Function Get-BingCoordinates-Object
       {
              $Obj = New-Object -TypeName PSObject -Property @{
                     "Address" = $Null
                     "Latitude" = $Null
                     "Longitude" = $Null
                     "NELatitude" = $Null
                     "NELongitude" = $Null
                     "SWLatitude" = $Null
                     "SWLongitude" = $Null
                     "Found" = $False
              }
              $Obj.PSObject.TypeNames.Insert(0, 'BingMaps.Coordinates')
              Write-Output $Obj
       } # END: Function Get-BingCoordinates-Object
      
       # Code borrowed from Kevin Pelgrims.
    # https://kevinpelgrims.wordpress.com/2011/08/18/bing-maps-geocoding-in-powershell/
       $ws = New-WebServiceProxy -uri http://dev.virtualearth.net/webservices/v1/geocodeservice/geocodeservice.svc?wsdl
       $wsgr = New-Object Microsoft.PowerShell.Commands.NewWebserviceProxy.AutogeneratedTypes.WebServiceProxy1ervice_geocodeservice_svc_wsdl.GeocodeRequest
       $wsc = New-Object Microsoft.PowerShell.Commands.NewWebserviceProxy.AutogeneratedTypes.WebServiceProxy1ervice_geocodeservice_svc_wsdl.Credentials;
       $wsc.ApplicationId = $key;
       $wsgr.Credentials = $wsc;
       $wsgr.Query = $Location;
       $wsr = $ws.Geocode($wsgr);
      
       # Populate the output object.
       $Obj = Get-BingCoordinates-Object
       $Result = $wsr.Results[0] # Used to shorten the property addresses below.
       $Loc = $Result.Locations[0] # Used to shorten the property addresses below.
       $BV = $Result.BestView[0] # Used to shorten the property addresses below.
       $Obj.Address = $wsr.Results[0].Address.FormattedAddress
       $Obj.Latitude = $Loc.Latitude
       $Obj.Longitude = $Loc.Longitude
       $Obj.NELatitude = $BV.NorthEast.Latitude
       $Obj.NELongitude = $BV.NorthEast.Longitude
       $Obj.SWLatitude = $BV.SouthWest.Latitude
       $Obj.SWLongitude = $BV.SouthWest.Longitude
      
       # If an exact match is found, then flag FOUND as $True.
       If ($Obj.Address -eq $Location)
       {
              $Obj.Found = $True  
       }
       Write-Output $Obj
<#
.SYNOPSIS
Returns coordinate information from BING.
 
.DESCRIPTION
Returns coordinate information from BING. This includes the geographic
rectangle for the specified item.
 
.PARAMETER Location
An address or location to get the coordinates for.
 
.PARAMETER Key
Your BING map key
 
.EXAMPLE
Get-BINGCoordinates -Location "Indianapolis, IN"
      
Returns the coordinate information for Indianapolis, IN
 
.EXAMPLE
Get-BINGCoordinates -Location "Grand Canyon National Park"
Address     : Grand Canyon National Park, AZ
Latitude    : 36.2985153198242
NELongitude : -111.613616943359
NELatitude  : 36.8462715148926
SWLongitude : -113.970611572266
Found       : False
SWLatitude  : 35.7507591247559
Longitude   : -112.792114257813
 
.NOTES
Thank you to Kevin Pelgrims for his post on accessing BING.
https://kevinpelgrims.wordpress.com/2011/08/18/bing-maps-geocoding-in-powershell/
===============================================================================
== Cmdlet: Get-BINGCoordinates                                               ==
== Author: Jason A. Yoder                                                    ==
== Company: MCTExpert of Arizona                                             ==
== Date: 2015JUN02                                                           ==
== Copyright: All rights reserved.                                           ==
== Version: 1.0.0.0                                                          ==
== Legal: The user assumes all responsibility and liability for the usage of ==
== this PowerShell code.  MCTExpert of Arizona, Its officers, shareholders,  ==
== owners, and their relatives are not liable for any damages.  As with all  ==
== code, review it and understand it prior to usage.  It is recommended that ==
== this code be fully tested and validated in a test environment prior to    ==
== usage in a production environment.                                        ==
==                                                                           ==
== Does this code make changes: NO                                           ==
===============================================================================
#>
      
} # END: Get-BINGCoordinates
 
Get-BINGCoordinates -Location "Grand Canyon National Park"
 

1 comment:

Murray Wall said...

Very nice coding - well done and it looks great. Very useful when wanting to use other services like auto mapping!