PoshCode Archive  Hex Artifact Content

Artifact 07a5dd9b8bf1062e6f331e4f40deb3228cd9dd903d42632bbba0d70ebce45a62:

  • File wlanscan.ps1 — part of check-in [976b985ae5] at 2018-06-10 13:00:35 on branch trunk — Simple script that uses netsh to show wireless networks. (user: Kris Cieslak size: 3563)

0000: 23 20 65 6e 63 6f 64 69 6e 67 3a 20 61 73 63 69  # encoding: asci
0010: 69 0d 0a 23 20 61 70 69 3a 20 70 6f 77 65 72 73  i..# api: powers
0020: 68 65 6c 6c 0d 0a 23 20 74 69 74 6c 65 3a 20 77  hell..# title: w
0030: 6c 61 6e 73 63 61 6e 0d 0a 23 20 64 65 73 63 72  lanscan..# descr
0040: 69 70 74 69 6f 6e 3a 20 53 69 6d 70 6c 65 20 73  iption: Simple s
0050: 63 72 69 70 74 20 74 68 61 74 20 75 73 65 73 20  cript that uses 
0060: 6e 65 74 73 68 20 74 6f 20 73 68 6f 77 20 77 69  netsh to show wi
0070: 72 65 6c 65 73 73 20 6e 65 74 77 6f 72 6b 73 2e  reless networks.
0080: 0d 0a 23 20 76 65 72 73 69 6f 6e 3a 20 30 2e 31  ..# version: 0.1
0090: 0d 0a 23 20 74 79 70 65 3a 20 73 63 72 69 70 74  ..# type: script
00a0: 0d 0a 23 20 61 75 74 68 6f 72 3a 20 4b 72 69 73  ..# author: Kris
00b0: 20 43 69 65 73 6c 61 6b 20 0d 0a 23 20 6c 69 63   Cieslak ..# lic
00c0: 65 6e 73 65 3a 20 43 43 30 0d 0a 23 20 78 2d 70  ense: CC0..# x-p
00d0: 6f 73 68 63 6f 64 65 2d 69 64 3a 20 31 37 33 31  oshcode-id: 1731
00e0: 0d 0a 23 20 78 2d 61 72 63 68 69 76 65 64 3a 20  ..# x-archived: 
00f0: 32 30 31 37 2d 30 33 2d 33 31 54 30 33 3a 31 36  2017-03-31T03:16
0100: 3a 35 32 0d 0a 23 20 78 2d 70 75 62 6c 69 73 68  :52..# x-publish
0110: 65 64 3a 20 32 30 31 31 2d 30 34 2d 30 33 54 30  ed: 2011-04-03T0
0120: 37 3a 33 36 3a 30 30 0d 0a 23 0d 0a 23 0d 0a 23  7:36:00..#..#..#
0130: 20 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d   -=-=-=-=-=-=-=-
0140: 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d  =-=-=-=-=-=-=-=-
0150: 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d  =-=-=-=-=-=-=-=-
0160: 3d 2d 3d 2d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d  =-=--=-=-=-=-=-=
0170: 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 0d 0a 23 20  -=-=-=-=-=-=..# 
0180: 20 20 20 20 20 20 20 20 20 4e 61 6d 65 3a 20 77           Name: w
0190: 6c 61 6e 73 63 61 6e 0d 0a 23 20 20 20 20 20 20  lanscan..#      
01a0: 20 20 41 75 74 68 6f 72 3a 20 4b 72 69 73 20 43    Author: Kris C
01b0: 69 65 73 6c 61 6b 20 28 64 65 66 61 75 6c 74 73  ieslak (defaults
01c0: 65 74 2e 62 6c 6f 67 73 70 6f 74 2e 63 6f 6d 29  et.blogspot.com)
01d0: 0d 0a 23 20 20 20 20 20 20 20 20 20 20 44 61 74  ..#          Dat
01e0: 65 3a 20 32 30 31 30 2d 30 34 2d 30 33 0d 0a 23  e: 2010-04-03..#
01f0: 20 20 20 44 65 73 63 72 69 70 74 69 6f 6e 3a 20     Description: 
0200: 53 69 6d 70 6c 65 20 73 63 72 69 70 74 20 74 68  Simple script th
0210: 61 74 20 75 73 65 73 20 6e 65 74 73 68 20 74 6f  at uses netsh to
0220: 20 73 68 6f 77 20 77 69 72 65 6c 65 73 73 20 6e   show wireless n
0230: 65 74 77 6f 72 6b 73 2e 0d 0a 23 0d 0a 23 20 20  etworks...#..#  
0240: 20 20 50 61 72 61 6d 65 74 65 72 73 3a 20 77 69    Parameters: wi
0250: 72 65 6c 65 73 73 20 69 6e 74 65 72 66 61 63 65  reless interface
0260: 20 6e 61 6d 65 20 28 6f 70 74 69 6f 6e 61 6c 2c   name (optional,
0270: 62 75 74 20 72 65 63 6f 6d 6d 65 6e 64 65 64 20  but recommended 
0280: 69 66 20 79 6f 75 20 68 61 76 65 0d 0a 23 20 20  if you have..#  
0290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f                mo
02a0: 72 65 20 74 68 61 6e 20 6f 6e 65 20 63 61 72 64  re than one card
02b0: 29 0d 0a 23 20 20 20 20 20 20 20 20 52 65 73 75  )..#        Resu
02c0: 6c 74 3a 20 24 41 63 74 69 76 65 4e 65 74 77 6f  lt: $ActiveNetwo
02d0: 72 6b 73 0d 0a 23 20 55 73 61 67 65 20 65 78 61  rks..# Usage exa
02e0: 6d 70 6c 65 3a 20 77 6c 61 6e 73 63 61 6e 20 57  mple: wlanscan W
02f0: 69 46 69 0d 0a 23 0d 0a 23 20 2d 3d 2d 3d 2d 3d  iFi..#..# -=-=-=
0300: 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d  -=-=-=-=-=-=-=-=
0310: 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d  -=-=-=-=-=-=-=-=
0320: 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 2d 3d 2d  -=-=-=-=-=-=--=-
0330: 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d 3d 2d  =-=-=-=-=-=-=-=-
0340: 3d 2d 3d 2d 3d 2d 0d 0a 50 41 52 41 4d 20 28 24  =-=-=-..PARAM ($
0350: 69 66 6e 61 6d 65 20 3d 20 22 22 29 0d 0a 0d 0a  ifname = "")....
0360: 23 20 57 69 6e 64 6f 77 73 20 56 69 73 74 61 2f  # Windows Vista/
0370: 32 30 30 38 2f 37 0d 0a 69 66 20 20 28 28 67 77  2008/7..if  ((gw
0380: 6d 69 20 77 69 6e 33 32 5f 6f 70 65 72 61 74 69  mi win32_operati
0390: 6e 67 73 79 73 74 65 6d 29 2e 56 65 72 73 69 6f  ngsystem).Versio
03a0: 6e 2e 53 70 6c 69 74 28 22 2e 22 29 5b 30 5d 20  n.Split(".")[0] 
03b0: 2d 6c 74 20 36 29 20 7b 0d 0a 09 74 68 72 6f 77  -lt 6) {...throw
03c0: 20 22 54 68 69 73 20 73 63 72 69 70 74 20 77 6f   "This script wo
03d0: 72 6b 73 20 6f 6e 20 57 69 6e 64 6f 77 73 20 56  rks on Windows V
03e0: 69 73 74 61 20 6f 72 20 68 69 67 68 65 72 2e 22  ista or higher."
03f0: 0d 0a 7d 0d 0a 69 66 20 28 28 67 73 76 20 22 77  ..}..if ((gsv "w
0400: 6c 61 6e 73 76 63 22 29 2e 53 74 61 74 75 73 20  lansvc").Status 
0410: 2d 6e 65 20 22 52 75 6e 6e 69 6e 67 22 20 29 20  -ne "Running" ) 
0420: 7b 0d 0a 09 74 68 72 6f 77 20 22 57 4c 41 4e 20  {...throw "WLAN 
0430: 41 75 74 6f 43 6f 6e 66 69 67 20 73 65 72 76 69  AutoConfig servi
0440: 63 65 20 6d 75 73 74 20 62 65 20 72 75 6e 6e 69  ce must be runni
0450: 6e 67 2e 22 0d 0a 7d 0d 0a 24 47 4c 4f 42 41 4c  ng."..}..$GLOBAL
0460: 3a 41 63 74 69 76 65 4e 65 74 77 6f 72 6b 73 20  :ActiveNetworks 
0470: 3d 20 40 28 29 3b 0d 0a 24 43 75 72 72 65 6e 74  = @();..$Current
0480: 49 66 4e 61 6d 65 20 3d 20 22 22 3b 09 0d 0a 24  IfName = "";...$
0490: 6e 20 3d 20 2d 31 3b 0d 0a 24 69 66 74 65 73 74  n = -1;..$iftest
04a0: 20 3d 20 24 66 61 6c 73 65 3b 0d 0a 0d 0a 6e 65   = $false;....ne
04b0: 74 73 68 20 77 6c 61 6e 20 73 68 6f 77 20 6e 65  tsh wlan show ne
04c0: 74 77 6f 72 6b 20 6d 6f 64 65 3d 62 73 73 69 64  twork mode=bssid
04d0: 20 7c 20 25 20 7b 0d 0a 09 69 66 20 28 20 24 5f   | % {...if ( $_
04e0: 20 2d 6d 61 74 63 68 20 22 49 6e 74 65 72 66 61   -match "Interfa
04f0: 63 65 22 29 20 7b 0d 0a 09 09 24 43 75 72 72 65  ce") {....$Curre
0500: 6e 74 49 66 4e 61 6d 65 20 3d 20 5b 72 65 67 65  ntIfName = [rege
0510: 78 5d 3a 3a 6d 61 74 63 68 28 24 5f 2e 52 65 70  x]::match($_.Rep
0520: 6c 61 63 65 28 22 49 6e 74 65 72 66 61 63 65 20  lace("Interface 
0530: 6e 61 6d 65 20 3a 20 22 2c 22 22 29 0d 0a 09 09  name : ","")....
0540: 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0550: 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 22 5c               ,"\
0560: 77 7b 31 2c 7d 22 29 2e 54 6f 53 74 72 69 6e 67  w{1,}").ToString
0570: 28 29 3b 0d 0a 09 20 20 20 20 69 66 20 28 28 24  ();...    if (($
0580: 43 75 72 72 65 6e 74 49 66 4e 61 6d 65 2e 54 6f  CurrentIfName.To
0590: 4c 6f 77 65 72 28 29 20 2d 65 71 20 24 69 66 6e  Lower() -eq $ifn
05a0: 61 6d 65 2e 54 6f 4c 6f 77 65 72 28 29 29 20 2d  ame.ToLower()) -
05b0: 6f 72 20 28 24 69 66 6e 61 6d 65 2e 6c 65 6e 67  or ($ifname.leng
05c0: 74 68 20 2d 65 71 20 30 29 29 20 7b 0d 0a 09 09  th -eq 0)) {....
05d0: 20 20 20 20 24 69 66 74 65 73 74 3d 24 74 72 75      $iftest=$tru
05e0: 65 3b 0d 0a 09 09 7d 20 65 6c 73 65 20 7b 20 24  e;....} else { $
05f0: 69 66 74 65 73 74 3d 24 66 61 6c 73 65 20 7d 0d  iftest=$false }.
0600: 0a 09 7d 09 20 0d 0a 09 0d 0a 09 24 62 75 66 20  ..}. ......$buf 
0610: 3d 20 5b 72 65 67 65 78 5d 3a 3a 72 65 70 6c 61  = [regex]::repla
0620: 63 65 28 24 5f 2c 22 5b 20 5d 22 2c 22 22 29 3b  ce($_,"[ ]","");
0630: 0d 0a 09 69 66 20 28 5b 72 65 67 65 78 5d 3a 3a  ...if ([regex]::
0640: 49 73 4d 61 74 63 68 28 24 62 75 66 2c 22 5e 53  IsMatch($buf,"^S
0650: 53 49 44 5c 64 7b 31 2c 7d 28 2e 29 2a 22 29 20  SID\d{1,}(.)*") 
0660: 2d 61 6e 64 20 24 69 66 74 65 73 74 29 20 7b 0d  -and $iftest) {.
0670: 0a 09 20 20 20 09 24 69 74 65 6d 20 3d 20 22 22  ..   .$item = ""
0680: 20 7c 20 53 65 6c 65 63 74 2d 4f 62 6a 65 63 74   | Select-Object
0690: 20 53 53 49 44 2c 4e 65 74 54 79 70 65 2c 41 75   SSID,NetType,Au
06a0: 74 68 2c 45 6e 63 72 79 70 74 69 6f 6e 2c 42 53  th,Encryption,BS
06b0: 53 49 44 2c 53 69 67 6e 61 6c 2c 52 61 64 69 6f  SID,Signal,Radio
06c0: 74 79 70 65 2c 43 68 61 6e 6e 65 6c 3b 0d 0a 09  type,Channel;...
06d0: 09 24 6e 2b 3d 31 3b 0d 0a 20 20 20 20 20 20 20  .$n+=1;..       
06e0: 09 24 69 74 65 6d 2e 53 53 49 44 20 3d 20 5b 72  .$item.SSID = [r
06f0: 65 67 65 78 5d 3a 3a 52 65 70 6c 61 63 65 28 24  egex]::Replace($
0700: 62 75 66 2c 22 5e 53 53 49 44 5c 64 7b 31 2c 7d  buf,"^SSID\d{1,}
0710: 3a 22 2c 22 22 29 3b 0d 0a 09 09 24 47 4c 4f 42  :","");....$GLOB
0720: 41 4c 3a 41 63 74 69 76 65 4e 65 74 77 6f 72 6b  AL:ActiveNetwork
0730: 73 2b 3d 24 69 74 65 6d 3b 0d 0a 09 7d 0d 0a 20  s+=$item;...}.. 
0740: 20 09 69 66 20 28 5b 72 65 67 65 78 5d 3a 3a 49   .if ([regex]::I
0750: 73 4d 61 74 63 68 28 24 62 75 66 2c 22 4e 65 74  sMatch($buf,"Net
0760: 77 6f 72 6b 74 79 70 65 22 29 20 2d 61 6e 64 20  worktype") -and 
0770: 24 69 66 74 65 73 74 29 20 7b 0d 0a 09 20 20 20  $iftest) {...   
0780: 09 24 47 4c 4f 42 41 4c 3a 41 63 74 69 76 65 4e  .$GLOBAL:ActiveN
0790: 65 74 77 6f 72 6b 73 5b 24 6e 5d 2e 4e 65 74 54  etworks[$n].NetT
07a0: 79 70 65 3d 24 62 75 66 2e 52 65 70 6c 61 63 65  ype=$buf.Replace
07b0: 28 22 4e 65 74 77 6f 72 6b 74 79 70 65 3a 22 2c  ("Networktype:",
07c0: 22 22 29 3b 0d 0a 09 7d 0d 0a 09 69 66 20 28 5b  "");...}...if ([
07d0: 72 65 67 65 78 5d 3a 3a 49 73 4d 61 74 63 68 28  regex]::IsMatch(
07e0: 24 62 75 66 2c 22 41 75 74 68 65 6e 74 69 63 61  $buf,"Authentica
07f0: 74 69 6f 6e 22 29 20 2d 61 6e 64 20 24 69 66 74  tion") -and $ift
0800: 65 73 74 29 20 7b 0d 0a 09 20 20 20 09 24 47 4c  est) {...   .$GL
0810: 4f 42 41 4c 3a 41 63 74 69 76 65 4e 65 74 77 6f  OBAL:ActiveNetwo
0820: 72 6b 73 5b 24 6e 5d 2e 41 75 74 68 3d 24 62 75  rks[$n].Auth=$bu
0830: 66 2e 52 65 70 6c 61 63 65 28 22 41 75 74 68 65  f.Replace("Authe
0840: 6e 74 69 63 61 74 69 6f 6e 3a 22 2c 22 22 29 3b  ntication:","");
0850: 0d 0a 09 7d 0d 0a 09 69 66 20 28 5b 72 65 67 65  ...}...if ([rege
0860: 78 5d 3a 3a 49 73 4d 61 74 63 68 28 24 62 75 66  x]::IsMatch($buf
0870: 2c 22 45 6e 63 72 79 70 74 69 6f 6e 22 29 20 2d  ,"Encryption") -
0880: 61 6e 64 20 24 69 66 74 65 73 74 29 20 7b 0d 0a  and $iftest) {..
0890: 09 20 20 20 09 24 47 4c 4f 42 41 4c 3a 41 63 74  .   .$GLOBAL:Act
08a0: 69 76 65 4e 65 74 77 6f 72 6b 73 5b 24 6e 5d 2e  iveNetworks[$n].
08b0: 45 6e 63 72 79 70 74 69 6f 6e 3d 24 62 75 66 2e  Encryption=$buf.
08c0: 52 65 70 6c 61 63 65 28 22 45 6e 63 72 79 70 74  Replace("Encrypt
08d0: 69 6f 6e 3a 22 2c 22 22 29 3b 0d 0a 09 20 09 7d  ion:","");... .}
08e0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 28 5b 72  ..        if ([r
08f0: 65 67 65 78 5d 3a 3a 49 73 4d 61 74 63 68 28 24  egex]::IsMatch($
0900: 62 75 66 2c 22 42 53 53 49 44 31 22 29 20 2d 61  buf,"BSSID1") -a
0910: 6e 64 20 24 69 66 74 65 73 74 29 20 7b 0d 0a 09  nd $iftest) {...
0920: 20 20 20 09 24 47 4c 4f 42 41 4c 3a 41 63 74 69     .$GLOBAL:Acti
0930: 76 65 4e 65 74 77 6f 72 6b 73 5b 24 6e 5d 2e 42  veNetworks[$n].B
0940: 53 53 49 44 3d 24 62 75 66 2e 52 65 70 6c 61 63  SSID=$buf.Replac
0950: 65 28 22 42 53 53 49 44 31 3a 22 2c 22 22 29 3b  e("BSSID1:","");
0960: 0d 0a 09 7d 0d 0a 09 69 66 20 28 5b 72 65 67 65  ...}...if ([rege
0970: 78 5d 3a 3a 49 73 4d 61 74 63 68 28 24 62 75 66  x]::IsMatch($buf
0980: 2c 22 53 69 67 6e 61 6c 22 29 20 2d 61 6e 64 20  ,"Signal") -and 
0990: 24 69 66 74 65 73 74 29 20 7b 0d 0a 09 20 20 20  $iftest) {...   
09a0: 09 24 47 4c 4f 42 41 4c 3a 41 63 74 69 76 65 4e  .$GLOBAL:ActiveN
09b0: 65 74 77 6f 72 6b 73 5b 24 6e 5d 2e 53 69 67 6e  etworks[$n].Sign
09c0: 61 6c 3d 24 62 75 66 2e 52 65 70 6c 61 63 65 28  al=$buf.Replace(
09d0: 22 53 69 67 6e 61 6c 3a 22 2c 22 22 29 3b 0d 0a  "Signal:","");..
09e0: 09 7d 0d 0a 09 69 66 20 28 5b 72 65 67 65 78 5d  .}...if ([regex]
09f0: 3a 3a 49 73 4d 61 74 63 68 28 24 62 75 66 2c 22  ::IsMatch($buf,"
0a00: 52 61 64 69 6f 74 79 70 65 22 29 20 2d 61 6e 64  Radiotype") -and
0a10: 20 24 69 66 74 65 73 74 29 20 7b 0d 0a 09 20 20   $iftest) {...  
0a20: 20 09 24 47 4c 4f 42 41 4c 3a 41 63 74 69 76 65   .$GLOBAL:Active
0a30: 4e 65 74 77 6f 72 6b 73 5b 24 6e 5d 2e 52 61 64  Networks[$n].Rad
0a40: 69 6f 74 79 70 65 3d 24 62 75 66 2e 52 65 70 6c  iotype=$buf.Repl
0a50: 61 63 65 28 22 52 61 64 69 6f 74 79 70 65 3a 22  ace("Radiotype:"
0a60: 2c 22 22 29 3b 0d 0a 09 7d 0d 0a 09 69 66 20 28  ,"");...}...if (
0a70: 5b 72 65 67 65 78 5d 3a 3a 49 73 4d 61 74 63 68  [regex]::IsMatch
0a80: 28 24 62 75 66 2c 22 43 68 61 6e 6e 65 6c 22 29  ($buf,"Channel")
0a90: 20 2d 61 6e 64 20 24 69 66 74 65 73 74 29 20 7b   -and $iftest) {
0aa0: 0d 0a 09 20 20 09 24 47 4c 4f 42 41 4c 3a 41 63  ...  .$GLOBAL:Ac
0ab0: 74 69 76 65 4e 65 74 77 6f 72 6b 73 5b 24 6e 5d  tiveNetworks[$n]
0ac0: 2e 43 68 61 6e 6e 65 6c 3d 24 62 75 66 2e 52 65  .Channel=$buf.Re
0ad0: 70 6c 61 63 65 28 22 43 68 61 6e 6e 65 6c 3a 22  place("Channel:"
0ae0: 2c 22 22 29 3b 0d 0a 09 7d 0d 0a 7d 0d 0a 69 66  ,"");...}..}..if
0af0: 20 28 20 28 24 43 75 72 72 65 6e 74 49 66 4e 61   ( ($CurrentIfNa
0b00: 6d 65 2e 54 6f 4c 6f 77 65 72 28 29 20 2d 65 71  me.ToLower() -eq
0b10: 20 24 69 66 6e 61 6d 65 2e 54 6f 4c 6f 77 65 72   $ifname.ToLower
0b20: 28 29 29 20 2d 6f 72 20 28 24 69 66 6e 61 6d 65  ()) -or ($ifname
0b30: 2e 6c 65 6e 67 74 68 20 2d 65 71 20 30 29 20 29  .length -eq 0) )
0b40: 20 7b 0d 0a 09 77 72 69 74 65 2d 68 6f 73 74 20   {...write-host 
0b50: 2d 46 6f 72 65 67 72 6f 75 6e 64 43 6f 6c 6f 72  -ForegroundColor
0b60: 20 59 65 6c 6c 6f 77 20 22 60 6e 49 6e 74 65 72   Yellow "`nInter
0b70: 66 61 63 65 3a 20 22 24 43 75 72 72 65 6e 74 49  face: "$CurrentI
0b80: 66 4e 61 6d 65 3b 0d 0a 09 69 66 20 28 28 24 47  fName;...if (($G
0b90: 4c 4f 42 41 4c 3a 41 63 74 69 76 65 4e 65 74 77  LOBAL:ActiveNetw
0ba0: 6f 72 6b 73 2e 6c 65 6e 67 74 68 20 2d 67 74 20  orks.length -gt 
0bb0: 30 29 29 20 7b 0d 0a 20 20 20 09 09 24 47 4c 4f  0)) {..   ..$GLO
0bc0: 42 41 4c 3a 41 63 74 69 76 65 4e 65 74 77 6f 72  BAL:ActiveNetwor
0bd0: 6b 73 20 7c 20 53 6f 72 74 2d 4f 62 6a 65 63 74  ks | Sort-Object
0be0: 20 53 69 67 6e 61 6c 20 2d 44 65 73 63 65 6e 64   Signal -Descend
0bf0: 69 6e 67 20 7c 20 0d 0a 09 09 09 66 74 20 40 7b  ing | .....ft @{
0c00: 4c 61 62 65 6c 20 3d 20 22 42 53 53 49 44 22 3b  Label = "BSSID";
0c10: 20 45 78 70 72 65 73 73 69 6f 6e 3d 7b 24 5f 2e   Expression={$_.
0c20: 42 53 53 49 44 20 7d 3b 77 69 64 74 68 3d 31 38  BSSID };width=18
0c30: 7d 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  },..            
0c40: 20 20 20 40 7b 4c 61 62 65 6c 20 3d 20 22 43 68     @{Label = "Ch
0c50: 61 6e 6e 65 6c 22 3b 20 45 78 70 72 65 73 73 69  annel"; Expressi
0c60: 6f 6e 3d 7b 24 5f 2e 43 68 61 6e 6e 65 6c 7d 3b  on={$_.Channel};
0c70: 77 69 64 74 68 3d 38 7d 2c 0d 0a 09 09 09 20 20  width=8},.....  
0c80: 20 40 7b 4c 61 62 65 6c 20 3d 20 22 53 69 67 6e   @{Label = "Sign
0c90: 61 6c 22 3b 20 45 78 70 72 65 73 73 69 6f 6e 3d  al"; Expression=
0ca0: 7b 24 5f 2e 53 69 67 6e 61 6c 7d 3b 77 69 64 74  {$_.Signal};widt
0cb0: 68 3d 37 7d 2c 0d 0a 09 09 09 20 20 20 40 7b 4c  h=7},.....   @{L
0cc0: 61 62 65 6c 20 3d 20 22 45 6e 63 72 79 70 74 69  abel = "Encrypti
0cd0: 6f 6e 22 3b 20 45 78 70 72 65 73 73 69 6f 6e 3d  on"; Expression=
0ce0: 7b 24 5f 2e 45 6e 63 72 79 70 74 69 6f 6e 7d 3b  {$_.Encryption};
0cf0: 77 69 64 74 68 3d 31 31 7d 2c 0d 0a 20 20 20 09  width=11},..   .
0d00: 09 09 20 20 20 40 7b 4c 61 62 65 6c 20 3d 20 22  ..   @{Label = "
0d10: 41 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 22 3b  Authentication";
0d20: 20 45 78 70 72 65 73 73 69 6f 6e 3d 7b 24 5f 2e   Expression={$_.
0d30: 41 75 74 68 7d 3b 77 69 64 74 68 3d 31 35 7d 2c  Auth};width=15},
0d40: 0d 0a 09 09 09 20 20 20 53 53 49 44 0d 0a 09 7d  .....   SSID...}
0d50: 20 65 6c 73 65 20 7b 0d 0a 09 20 20 20 57 72 69   else {...   Wri
0d60: 74 65 2d 68 6f 73 74 20 22 60 6e 20 4e 6f 20 61  te-host "`n No a
0d70: 63 74 69 76 65 20 6e 65 74 77 6f 72 6b 73 20 66  ctive networks f
0d80: 6f 75 6e 64 2e 60 6e 22 3b 0d 0a 09 7d 0d 0a 7d  ound.`n";...}..}
0d90: 20 65 6c 73 65 20 7b 0d 0a 20 20 57 72 69 74 65   else {..  Write
0da0: 2d 68 6f 73 74 20 2d 46 6f 72 65 67 72 6f 75 6e  -host -Foregroun
0db0: 64 43 6f 6c 6f 72 20 52 65 64 20 22 60 6e 20 43  dColor Red "`n C
0dc0: 6f 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 69 6e  ould not find in
0dd0: 74 65 72 66 61 63 65 3a 20 22 24 69 66 6e 61 6d  terface: "$ifnam
0de0: 65 22 60 6e 22 3b 0d 0a 7d 0d 0a                 e"`n";..}..