Jump to content

Recommended Posts

antonioj84
Posted (edited)

Hi all to the forum guru and expert I am trying to  automate this. in the registry  I have the network profile name network 2 and network   I want to  change their  CATEGORY  to Private .  Can someone lead me in the right direction.

Private is 1 and Public is 0

#RequireAdmin

Global $sHKLMRoot = @OSArch = "x64" ? "HKLM64" : "HKLM"


RegWrite($sHKLMRoot &"\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\NewNetworks" ,'/v NetworkList /t REG_MULTI_SZ /d 00000000 /f')

see  attached picture below

Much appreaciate

 

registry.JPG

Edited by antonioj84

Share this post


Link to post
Share on other sites
xCROv

This topic over almost a year old and it doesn't look like you're really adding anything to it directly. It's prob best if you start your own topic.

 

You should follow the examples in this thread and read the regwrite function.

Share this post


Link to post
Share on other sites
Subz

As xCROv mentioned you should create a new thread and read the help file on RegWrite you will see your syntax is incorrect also you would need to use RegEnumKey, if you create a new post, I'll be happy to assist with your query.

 

Share this post


Link to post
Share on other sites
antonioj84

Thanks  Subz, and DanyFirex  Regnumkey was they key ingredient. If this can help someone else here is the code below 

#include <MsgBoxConstants.au3>
#RequireAdmin

Local Const $sHKLMRoot = @OSArch = "x64" ? "HKLM64" : "HKLM"

$iCategoryPrivate = 1
$iCategoryPublic = 0



Local $sSubKey =""
For $i =  1 To 2

$sSubKey = RegEnumKey($sHKLMRoot & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles", $i)
If @error Then ExitLoop




MsgBox($MB_SYSTEMMODAL, "SubKey #" & $i & " SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles: ", $sSubKey)


$sRegNetworkName = RegRead($sHKLMRoot & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\" & $sSubKey, "ProfileName")


 MsgBox($MB_SYSTEMMODAL, "Profile #" & $i & " SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles: ", $sRegNetworkName)


$Category = Int(RegRead($sHKLMRoot & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\" & $sSubKey, "Category"))


MsgBox($MB_SYSTEMMODAL, "Category #" & $i & " SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles: ", $Category)

;now you can write the key using regwrite to make category private or public
;~ RegWrite($sHKLMRoot & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\" & $sSubKey, "Category", "REG_DWORD", $iCategoryPrivate)


Next

 

Share this post


Link to post
Share on other sites
Subz

I would normally write it this way, so you're not limited by multiple network connections

#RequireAdmin
Local $sHKLM = @OSArch = 'x64' ? 'HKLM64' : 'HKLM'
Local $sMainKey = $sHKLM & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles", $sSubkey, $i = 1
Local $iCategoryPrivate = 1, $iCategoryPublic = 0
While 1
    $sSubkey = RegEnumKey($sMainKey, $i)
        If @error Then ExitLoop
    If RegRead($sMainKey & "\" & $sSubkey, "ProfileName") = "Network" Then
;~      Uncomment line below to change category
;~      RegWrite($sMainKey & "\" & $sSubkey, "Category", "REG_DWORD", $iCategoryPrivate)
    ElseIf RegRead($sMainKey & "\" & $sSubkey, "ProfileName") = "Network 2" Then
;~      Uncomment line below to change category
;~      RegWrite($sMainKey & "\" & $sSubkey, "Category", "REG_DWORD", $iCategoryPrivate)
    EndIf
    $i += 1
WEnd
  • Thanks 1

Share this post


Link to post
Share on other sites
JLogan3o13

@antonioj84 you have been around long enough to know better than to hijack an old thread rather than creating your own. Please do so in the future.


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
antonioj84
Posted (edited)

jologan3013 , xcrov already make that point please what else are you adding. I don't think a year old is that old after all. Are you able to move it to a new Topic ?

Edited by antonioj84
errorh

Share this post


Link to post
Share on other sites
JLogan3o13
Posted (edited)

The old topic was a year old; I have split your intrusion into its own topic. What I am adding is that you need to create your own topics so someone from the Moderating team does not have to spend 20 minutes splitting them out.

Edited by JLogan3o13
  • Like 1

√-1 2^3 ∑ π, and it was delicious!

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

  • Similar Content

    • Dreamfire
      By Dreamfire
      Hi,
      Since today, exe's are being flagged as having a trojan by Windows Defender (Fuery.B!cl)
      Version:  3.3.14.3 - SciTE Version 3.7.3



       

    • PramodR
      By PramodR
      Hello,
      I have to execute below block of code in elevated previllage, as that particular wmic class will work only with admin previlage.
      i am getting out put when i launch autoit as administrator,  but i will not be able to launch autoit as admin in this particular case but my user have admin rights.
      is there any better way i can run those command as administrator.?
      tried below steps:
      i have tried #RequireAdmin but that creates a user prompt  Tried using Runas command but gives error as wrong username or password , stuck with that step.  
       
    • dwaynek
      By dwaynek
      traytip isn't working in windows 10. nothing happens when i use the Traytip command.
      here's a simple script i used:
      TrayTip("I'm a title", "I'm the message", 5) i tried changing the registry setting HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced ( which didn't have EnableBalloonTips) and creating a DWORD entry called EnableBalloonTips and setting it to 1 and logging off then back in. that did not resolve the problem.
      i'm running Windows 10 v1709 b16299.431
    • PhoenixPRO
      By PhoenixPRO
      When I try to automate this install program I can not get any of the buttons to click with the "ControlClick" function or any mouse movement to move the mouse to the and click it.  My OS is Windows 10 64Bit.  I have tried both 32bit and 64bit installs of Autoit V3 to no avail.
      I could not even get the run command to start the program until I used the variation of the command below in the script.
      With the script below the install program starts but will not click the "Next" button no matter what I do.
      Any help will be greatly appreciated.
      Thanks in advance.
       
      #include <MsgBoxConstants.au3>
      Opt("MouseCoordMode", 0) ;1=absolute, 0=relative to active window, 2=client
      Local $Success
      Run(@ComSpec & " /c " & 'C:\PhoenixPro_Install\RDXUtil\RDX_Tools_setup.exe', "C:\PhoenixPro_Install\RDXUtil", @SW_HIDE )

      WinWait("RDX Tools 1.62 - InstallShield Wizard", "Welcome to the InstallShield Wizard for RDX Tools 1.62")
      WinActivate("RDX Tools 1.62 - InstallShield Wizard", "Welcome to the InstallShield Wizard for RDX Tools 1.62")
      ControlClick ("RDX Tools 1.62 - InstallShield Wizard", "Welcome to the InstallShield Wizard for RDX Tools 1.62", 1639, "left", 1) ;Next Button
    • TheWizEd
      By TheWizEd
      How do I work with 2D arrays.  I've tried this but get errors.
      Local $aTest[4][4] = [[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]]
      ;$aTest[0][] = [10,11,12]  ; Error at []
      Local $sTest = ""
      For $i = 0 To UBound($aTest)-1
        Local $aExtract = _ArrayExtract($aTest,$i,$i)
        $sTest = $sTest & MyTest($aExtract)
      Next
      Func MyTest($aTemp)
        _ArrayDisplay($aTemp)
        ; Error at    v $aTemp
        Return String($aTemp[0]) & " - " & String($aTemp[1]) & " - " & String($aTemp[2]) & @CRLF
      EndFunc
       
       
×