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