Wireless Info Script

Discussion in 'Wireless Networking' started by ddamico, Jan 18, 2008.

  1. ddamico

    ddamico Guest

    This script is very helpful when troubleshooting wireless networks that have
    several access points.

    Save Start.vbs and Stop.vbs in the same directory. They will create a txt
    file with the info. If anyone has anything to add to make this more uselful,
    please post it here.

    *****************Script #1 Name Start.vbs**********************

    On Error Resume Next

    Dim room, text, TCPIP, IP, MAC, NIC, Name, strComputer
    Dim stopscript, colItems1, colItems2, RSSI, IPCheck, colItems3
    Dim macbyte, bssid, fso, objWMIService, objWMIService2
    Dim channels, frequency, raw_channel, channel

    strComputer = "."
    Set WSHShell = WScript.CreateObject("Wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
    Set objWMIService2 = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")



    'Obtains room
    room = ""
    room = InputBox("Enter Room# or Floor#", "Room #")

    If room = "" Then
    do while room = ""
    message = MsgBox("Do you want to continue?", 4, "Proceed?")
    If message = 6 Then
    room = InputBox("Enter Room# or Floor#", "Room #")
    Else
    wscript.echo "Wireless Script Complete"
    wscript.quit
    End if
    loop
    End If

    Set colItems1 = objWMIService2.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
    For Each objItem in colItems1

    TCPIP = objItem.IPEnabled

    If TCPIP = True Then
    IPCheck = Join(objItem.IPAddress, ",")
    If IPCheck <> "0.0.0.0" Then
    IP = Join(objItem.IPAddress, ",")
    MAC = objItem.MACAddress
    NIC = objItem.Caption
    Name = objItem.DNSHostName
    Else
    IPCheck = ""
    End If

    End If

    Next

    Set file = fso_OpenTextFile(room & ".txt", 8, True)
    file.WriteLine("PC_Name: " & name)
    file.WriteLine("Date: " & date)
    file.WriteLine("Start Time: " & time)
    file.WriteLine("PC_IP: " & IP)
    file.WriteLine("PC_MAC: " & MAC)
    file.WriteLine("PC_NIC: " & NIC)
    file.WriteLine("Room#: " & room)
    file.WriteLine()
    file.Close()

    stopscript = ""

    Do While stopscript <> "off"

    If fso.FileExists("stop.txt") Then
    stopscript = "off"
    Else
    ' stopscript = ""
    End IF

    'Adds information to room#.txt when starting
    Set colItems2 = objWMIService.ExecQuery( _
    "SELECT * FROM MSNdis_80211_ReceivedSignalStrength",,48)
    For Each objItem in colItems2
    RSSI = objItem.Ndis80211ReceivedSignalStrength
    Next

    Set colItems3 = objWMIService.ExecQuery( _
    "SELECT * FROM MSNdis_80211_BaseServiceSetIdentifier",,48)
    For Each objItem in colItems3
    macbyte = 0
    bssid = ""
    ' convert decimals to hex. pad zeros & slip in colons where needed
    for each decval in objItem.Ndis80211MacAddress
    if decval<17 then
    bssid = bssid & "0"
    end if
    bssid = bssid & Hex(decval)
    if macbyte < 5 Then
    bssid = bssid & ":"
    macbyte = macbyte + 1
    end if
    Next
    Next

    raw_channel = ""
    channel = ""
    i = ""

    channels=Array(" 1 BG"," 2 BG"," 3 BG"," 4 BG"," 5 BG"," 6 BG"," 7
    BG"," 8 BG"," 9 BG","10 BG","11 BG"_
    ,"40 A","36 A","44 A","48 A","52 A","56 A","60 A","64
    A","149 A","153 A","157 A","161 A")

    frequency=Array(2412000,2417000,2422000,2427000,2432000,2437000,2442000,2447000_

    ,2452000,2457000,2462000,5200000,5180000,5220000,5240000,5260000,5280000,5300000,5320000,5745000,5765000,5785000,5805000)

    set colInstances = objWMIService.ExecQuery ("SELECT * FROM
    MSNdis_80211_Configuration WHERE Active = True")
    for each objInstance in colInstances
    raw_channel = objInstance.Ndis80211Config.DSConfig

    for i=0 to ubound(frequency)

    if raw_channel=frequency(i) then
    channel=channels(i)
    end if
    next
    next
    ' wscript.echo channel


    text = text & "AP_MAC: " & bssid & " RSSI: " & RSSI & " dBm" & "
    Channel: " & channel & " Time: " & time

    Set file = fso_OpenTextFile(room & ".txt", 8, True)
    file.WriteLine(text)
    file.Close()
    Text = ""

    wscript.sleep 900

    loop

    fso.DeleteFile("stop.txt")
    wscript.echo "Wireless Script Complete"

    *******************Script #2 Name Stop.vbs**********************

    On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.createTextFile("stop.txt")
    wscript.quit
     
    ddamico, Jan 18, 2008
    #1
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Mark Fugatt [MVP]

    Re: Need VB Script Info

    Mark Fugatt [MVP], Jan 2, 2004, in forum: Microsoft Certification
    Replies:
    0
    Views:
    391
    Mark Fugatt [MVP]
    Jan 2, 2004
  2. Ray Higdon

    Re: Need VB Script Info

    Ray Higdon, Jan 5, 2004, in forum: Microsoft Certification
    Replies:
    0
    Views:
    444
    Ray Higdon
    Jan 5, 2004
  3. Guest

    Need VB Script Info

    Guest, Jan 6, 2004, in forum: Microsoft Certification
    Replies:
    0
    Views:
    532
    Guest
    Jan 6, 2004
  4. =?Utf-8?B?PHNjcmlwdD5hbGVydCgpOzwvc2NyaXB0Pg==?= a

    <script>alert();</script>

    =?Utf-8?B?PHNjcmlwdD5hbGVydCgpOzwvc2NyaXB0Pg==?= a, Apr 13, 2004, in forum: Microsoft Certification
    Replies:
    0
    Views:
    7,824
    =?Utf-8?B?PHNjcmlwdD5hbGVydCgpOzwvc2NyaXB0Pg==?= a
    Apr 13, 2004
  5. nadiralishah
    Replies:
    0
    Views:
    1,151
    nadiralishah
    Jan 6, 2008
Loading...

Share This Page