Foro de elhacker.net

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:

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:

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:

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?

Sobre la visualización:

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