Imposible tomar datos de una tabla [VBS]

[P4nd3m0n1um]

Todos conocemos el famoso Scaner NetStumbler.. resulta que vi que se pueden hacer scripts en VBS, entonces estuve viendo unos datos del creador.. y tome un simple script para exportar los datos de posición de la red y visualizarlo en google maps:

Código (vb) [Seleccionar] Expandir

sub arch (lat, lon, alt)

Dim Lati
Dim Longi
Dim Alti

Set objshel = createobject("Wscript.shell")
Lati = lat
Longi = lon
Alti = alt

objshell.run "https://maps.google.com.ar/maps?q=" & Lati & Longi & Alti

end sub

AddItemContextMenu "arch", "Ver en Google MAPS"

Pero no da caso... Probe con otro similar:

Código (vb) [Seleccionar] Expandir

sub arch (Lat, Lon, Alt)
Set objshell = createobject("Wscript.shell")
objshell.run "https://maps.google.com.ar/maps?q=" & Lat & Lon & Alt
end sub
AddItemContextMenu "arch", "Ver en Google MAPS"

y anda pero con este ultimo:

Código (vb) [Seleccionar] Expandir

sub GMAPS (Lat, Lon)

Set objshel = createobject("Wscript.shell")
rmensaje = objshel.popup("Visualizando en Google MAPS",3,"NetStumbler v0.4.0",64)

Set objshell = createobject("Wscript.shell")
objshell.run "https://maps.google.com.ar/maps?q=" & Lat & Lon

end sub

AddItemContextMenu "GMAPS", "Ver en Google MAPS"

y me abrió google maps pero con el SSID y la MAC cosa que no tiene nada que ver con la variable utilizada... ¿Alguien tiene alguna forma de extraer este dato?

[Eleкtro]

Sobre la visualización:

Código (vb) [Seleccionar] Expandir

Latitud  = "51.5"
Longitud = "4.5"
Altura   = "14"

Set objshell = createobject("Wscript.shell")
MsgBox("https://maps.google.com.ar/maps?q=" & Latitud & "+" & Longitud & "&z=" & Altura)
objshell.run("https://maps.google.com.ar/maps?q=" & Latitud & "+" & Longitud & "&z=" & Altura)

Saludos