RHaslitt

@jguinch Thank you for the the recommendations. I will need to do more testing with the user to see if the ping is enough to decide it is on the corp network. I know I can setup the task to run for the specific users for if it is connected to wireless x then run script. I am very new to the scripting world with limited exp. using some powershell and vbs over the years for simple items like mapping drives. I certainly will take some time and explore your suggestion just to understand more when I have some downtime(or maybe need to create another on the fly) Thanks Rick

@rudi I understand what you are saying. The corporate network works fine which is why when it is on corp. it goes to dhcp it is when the user leave the corp network and works from home their home firewall(provided by their isp) that is causing the issue. I am very new at my job(first week) so i am still learning the in's and out's of the network and this script was something i was tasked with.

Thank you very much.. This is what i ended up doing.. Local $cmdBegin = "netsh interface ipv4 set dnsservers " Local $cmdEnd = " dhcp" Local $cmdAll = $cmdBegin & '"' & $intFullName & '"' & $cmdEnd ; used for setting DNS back to DHCP when on internal network Local $cmdBeginOut = "netsh interface ipv4 set dnsservers " Local $cmdBeginOut2 = "netsh interface ipv4 add dns " Local $cmdEndOut1 = " static 8.8.8.8 primary" Local $cmdEndOut2 = " 8.8.4.4 index=2" Local $cmdAllOut = $cmdBeginOut & '"' & $intFullName & '"' & $cmdEndout1 Local $cmdAllOut2 = $cmdBeginOut2 & '"' & $intFullName & '"' & $cmdEndout2 ; Used for setting DNS to public DNS when off Network If $iPing Then; If value is greater than 0 the PC is on Network ;MsgBox(48,"Ping" ,$iping); - Ping Results RunAsSet($username,$domain,$password) RunWait(@ComSpec & " /c " & $cmdAll,@SystemDir) ;MsgBox(48,"DHCP", "GooD") ;MsgBox(48, $domain, $username) - Gathers PC Name and UserName ;#comments-start ElseIf @error Then; If there is a @error the PC is not on Network ;MsgBox(48, "Error",@error) RunAsSet($username,$domain,$password) MsgBox(48, $domain, "Good") Run(@ComSpec & " /c " & $cmdAllOut,@SystemDir) Run(@ComSpec & " /c " & $cmdAllOut2,@SystemDir) ;MsgBox(48,"External","BOOM!") ;#comments-end EndIf EndFunc

What about commands like netsh when you need to us " in the command?

Ok.. So I am very close. My issue is the information i am pulling from the text file is not resolving my my command prompt. If i manually set the name in my netsh command the script works great. Here is the latest version of my script. #include <Process.au3> #include <file.au3> $rc = _RunDOS("netsh int show int > c:\support\network.txt") ;#comments-start Dim $lineCounter if Not @error Then     $i = 0     Do     ;Location of Network Interfaces File     $folder = "C:\support\"     While 1         If @error Then ExitLoop         $searchfile= FileFindFirstFile($folder & "*.*")         ;Change dir to c:\support         FileChangeDir($folder)             ;Searches all files until it finds 'network.txt' file.             While 1                 $file = FileFindNextFile($searchfile)                 If @error Then ExitLoop                 ;;MsgBox(4096,"",$file) ;Used for testing                 If $file = "network.txt" Then                     $foundFile = FileOpen($file,0) ; opens found file                     $lineCounter = 0                     ;Searching all lines for string needed                     While 1                         $line = FileReadLine($foundFile) ; Reads a line                         $lineCounter = $line = 1 ; counts each line                         If @error = -1 Then ExitLoop                         If StringInStr($line, "disconnected") <1 and StringInStr($line, "Wireless") >0 Then                             $strIntLeft = StringMid(StringInStr($line, "Wireless"),1)                             ;MsgBox(48,"Line Found",$strIntLeft)                             $strLength = StringLen($line)                             ;MsgBox(48,"Line Found",$strLength)                             $getIntFullName = StringMid($Line,$strIntLeft -1,$strlength)                             ;msgbox(48,"Connection Name",$getIntFullName)                         EndIf                     Wend                 FileClose($foundFile)                 EndIf             WEnd         WEnd     $i = $i + 1     Until $i = 1 EndIf     Local $username = "*****"     Local $domain = @ComputerName     Local $password = "*****" CommandRun() Func CommandRun()     ; Ping 10.3.3.3 with a timeout of 10ms to verify the network     $iPing = ping("10.3.3.3",10)     If $iPing Then; If value is greater than 0 the PC is on  Network         MsgBox(48,"Ping" ,$iping); - Ping Results         RunAsSet($username,$domain,$password)         RunWait('cmd /k netsh interface ip set dns name="$getIntFullName" source=dhcp')         MsgBox(48,"DHCP", "GooD") ;MsgBox(48, $domain, $username) - Gathers PC Name and UserName     ;#comments-end         ElseIf @error Then; If there is a @error the PC is not on Network         MsgBox(48, "Error",@error)         RunAsSet($username,$domain,$password)             MsgBox(48, $domain, "Good")         Run("cmd /k netsh interface ip set dns "$getIntFullName" static 8.8.8.8 primary')         Run("cmd /k netsh interface ip set dns "$getIntFullName" 8.8.4.4 index=2')             MsgBox(48,"External","BOOM!")     ;#comments-end     EndIf EndFunc

That would be great but I would need to run as an admin..

Ok I have gotten alot further in my script. Now i am stuck at trying to run a netsh command to change the DNS Server. Here is what i have now.. #include <Process.au3> #include <file.au3> $rc = _RunDOS("netsh int show int > c:\support\network.txt") ;#comments-start Dim $lineCounter if Not @error Then $i = 0 Do ;Location of Network Interfaces File $folder = "C:\support\" While 1 If @error Then ExitLoop $searchfile= FileFindFirstFile($folder & "*.*") ;Change dir to c:\support FileChangeDir($folder) ;Searches all files until it finds 'network.txt' file. While 1 $file = FileFindNextFile($searchfile) If @error Then ExitLoop ;;MsgBox(4096,"",$file) ;Used for testing If $file = "network.txt" Then $foundFile = FileOpen($file,0) ; opens found file $lineCounter = 0 ;Searching all lines for string needed While 1 $line = FileReadLine($foundFile) ; Reads a line $lineCounter = $line = 1 ; counts each line If @error = -1 Then ExitLoop If StringInStr($line, "disconnected") <1 and StringInStr($line, "Wireless") >0 Then MsgBox(48,"Line Found",$line) $strLength = StringLen($line) MsgBox(48,"Line Found",$strLength) $getIntFullName = StringMid($Line,47,$strlength) msgbox(48,"Connection Name",$getIntFullName) EndIf Wend FileClose($foundFile) EndIf WEnd WEnd $i = $i + 1 Until $i = 1 EndIf Local $username = "*************" Local $domain = @ComputerName Local $password = "********" CommandRun() Func CommandRun() ; Ping 10.3.3.3 with a timeout of 10ms to verify the network $iPing = ping("10.3.3.3",10) If $iPing Then; If value is greater than 0 the PC is on Network MsgBox(48,"Ping" ,$iping) RunAs('$username,$domain,$password,0, CommandRun''netsh interface ip set dns "$getIntFullName" dhcp') ElseIf @error Then; If there is a @error the PC is not on Network RunAsWait($username,$domain,$password,0, "cmd.exe /c netsh interface ip set dns Wireless Network Connection 7 static 8.8.8.8 primary") & RunAsWait($username,$domain,$password,0, "cmd.exe /c netsh interface ip set dns "**" 8.8.4.4 index=2") EndIf EndFunc

Here is what i have so far. I have just crammed everything into one script for you to review. #include <Process.au3> $rc = _RunDOS("netsh int show int > c:\support\network.txt") Dim $lineCounter if Not @error Then $i= 0 Do ;Location of Network Interfaces File $folder = C:\support While 1 If @error Then ExitLoop $searchfile= FileFindFirstFile($folder & "*.*") ;Change dir to c:\support FileChangeDir($folder) ;Searches all files until it finds 'network.txt' file. While 1 $file = FileFindNextFile If @error Then ExitLoop if $file= "network.txt" Then $foundFile = FileOpen($file,0) ; opens found file $lineCounter = 0 ;Searching all lines for string needed While 1 $line = FileReadLine($foundFile) ; Reads a line $lineCounter = $lin = 1 ; counts each line if @error = -1 Then ExitLoop If StringInStr($line, "connected & Wirelss*") > 0 Then???? Local $username = "adminaccount" Local $domain = "@ComputerName" Local $password = "**********" #Func CommandRun($cmd) ; Ping 10.3.3.3 with a timeout of 10ms to verify the network Local $iPing = ping("10.3.3.3",10) If $iPing Then; If value is greater than 0 the PC is on Network RunAsWait($username,$domain,$password,0, "cmd.exe /c netsh interface ip set dns Wireless Network Connection x 10.3.3.2 index=1") ElseIf @error Then; If there is a @error the PC is not on Network RunAsWait($username,$domain,$password,0, "cmd.exe /c netsh interface ip set dns Wireless Network Connection x 8.8.8.8 index=1") EndIf EndFunc

Thank you for the responses. I am very new to this so I am a bit lost in everything going on. I have a few different files i am working with for testing parts of the script. I probably should have put more detail. The issue is in Windows 7 the network adapters will put numbers after the name so I need to find the specific one that is connected. i.e. My pc shows my adapter name as "Wireless Network Adapter 7" the user have the issue shows their's as "Wireless Network Adapter 2" So far I have it doing a netsh to find the status of each adapter and their names and output that to a file. I then need to read the file find the line that has Connected and Wireless in it. Copy the name of the interface and then somehow put that copied name into my cmd command. I want to write the script for any user's pc regardless of their wireless adapter name. Thanks in advance!

I am newer to the scripting world. I need to create a script that will change the "Connected Wireless Network Adapter" DNS settings based on if it can reach my internal DNS servers. I am struggling with having it read the output txt file to be able to determine the correct adapter and having it change the dns settings using a variable. My Biggest struggle is the then statement to run a netsh command to set the dns based on the information of the text file as the name of the wireless network connection may differ on all pc's. Any help is greatly appreciated.