Adding a wireless network

[skewltek]

I was asked to make it possible for limited users to run a script to add a wireless network to thier system. I mapped a drive first, but ran into issues with permissions. I ended up using the following script.

expandcollapse popup

If WiFi() Then
    $Temp = @TempDir & "\W" & Random (100000, 999999, 1)
    DirCreate ($Temp)
    DirCreate ($Temp & "\SMRTNTKY")
    FileInstall ("setupSNK.exe", $Temp & "\", 1)
    FileInstall ("SMRTNTKY\MessageB.txt", $Temp & "\SMRTNTKY\", 1)
    FileInstall ("SMRTNTKY\WSETTING.WFC", $Temp & "\SMRTNTKY\", 1)

    $Drive = GetFreeDrive() & ":"
    RunWait (@ComSpec & " /c " & 'subst ' & $Drive & ' "' & $Temp & '"', "", @SW_HIDE)

;Run SetupSNK
    Run ($Drive & "\setupSNK.exe", $Drive & "\")

;Answer Prompts
    WinWait("Wireless Network Setup Wizard", "Do you want to add this computer")
    ControlClick("Wireless Network Setup Wizard", "Do you want to add this computer", 1)
    WinWait("Wireless Network Setup Wizard", "You have successfully added this computer")
    ControlClick("Wireless Network Setup Wizard", "You have successfully added this computer", 2)

;Delete mapped drive
    Run (@ComSpec & " /c " & 'subst /D ' & $Drive, "", @SW_HIDE)
    DirRemove ($Temp, 1)
EndIf


Func WiFi()
    For $i= 1 to 100
        $var = RegEnumKey("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}", $i)
        If @error <> 0 then ExitLoop
        $test = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & $var & "\Connection" , "MediaSubType")
        if $test = 2 then Return 1
    Next
EndFunc

Func GetFreeDrive()
    For $i = 72 to 90;Check to see what the next free drive letter is (only checks drives from H to Z)
        If DriveCheck (Chr($i)) = 1 Then
            Return Chr($i)
            ExitLoop
        EndIf
    Next
EndFunc

Func DriveCheck($DrvLetter)
    $DrvCheck = DriveStatus( $DrvLetter & ":\" )
    if $DrvCheck = "INVALID" Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

[gseller]

Cool! Would love to try it, can you put up a link to download setupSNK.exe? Thanks

[MadBoy]

Cool! Would love to try it, can you put up a link to download setupSNK.exe? Thanks

gessler: setupsnk.exe is part of the Windows. When you click on your wireless network and go for the wizard stuff you have a way to choose usb drive to save settings to it so you can then go with that usb drive to other computers and simply plug & play it. One of the files copied to USB is setupsnk.exe (if i am not mistaken). Otherwise use google to download it

[ptrex]

@skewltek

Very nice and usefull !!

Maybe interested to others :

Automating WiFi Configuration

PS: setupSNK.exe is not there by default (in XP SP3)

regards,

ptrex

Edited September 17, 2008 by ptrex

[gseller]

Ahh, Thanks for the info...