Sign in to follow this  
Followers 0
skewltek

Adding a wireless network

5 posts in this topic

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.

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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 :)


My little company: Evotec (PL version: Evotec)

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Share this post


Link to post
Share on other sites

Ahh, Thanks for the info... :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0