Batch file DNS Change bat file run as problem :(

[eptimul]

Hello,

I have a problem, I cant run script as administrator in Windows 7..

 

installAdmin()

Func installAdmin()
    ; Change the username and password to the appropriate values for your system.
    Local $sUserName = "user"
    Local $sPassword = "password"
    Local $sDirectory = "\\0.0.0.0\path\"
    Local $sFiletoRun = "DNS_Change.bat"

    RunAsWait($sUserName, @ComputerName, $sPassword, 0, $sDirectory & $sFiletoRun)
EndFunc   ;==>Example

 

[Jfish]

Try with #RequireAdmin at the top of your script.

[eptimul]

Could you show an example on the code ?

[Jfish]

From the help file:

#include <MsgBoxConstants.au3>

#RequireAdmin

If IsAdmin() Then MsgBox($MB_SYSTEMMODAL, "", "The script is running with admin rights.")

 

[eptimul]

 

#RequireAdmin
installAdmin()

Func installAdmin()
    ; Change the username and password to the appropriate values for your system.
    Local $sUserName = "iaeh"
    Local $sPassword = "karma1koma2"
    Local $sDirectory = "d:\"
    Local $sFiletoRun = "DNS_Change.bat"

    RunAsWait($sUserName, @ComputerName, $sPassword, 0, $sDirectory & $sFiletoRun)
EndFunc   ;==>Example

 

The result is the same .

 

[Jfish]

<snip> I will defer on others at this point ... 

 

Edited December 8, 2016 by Jfish

[eptimul]

Thank you "jfish"

My problem is solved this way.

#RequireAdmin
installAdmin()

Func installAdmin()
    ; Change the username and password to the appropriate values for your system.
    Local $sUserName = "XXXX"
    Local $sPassword = "kb41mm532"

    ShellExecute("cmd.exe", "/k DNS_Change.bat " & @ComSpec & " /k", "d:\")
    Run($sUserName, @ComputerName, $sPassword)
EndFunc   ;==>Example

 

 

 

[eptimul]

Ups sorry ,

My problem continues .. :(

[BrewManNH]

Is the $sUsername a local administrator, or a domain/network administrator account?