
scwoobles
Active Members-
Posts
36 -
Joined
-
Last visited
Recent Profile Visitors
scwoobles's Achievements

Seeker (1/7)
1
Reputation
-
argumentum reacted to a post in a topic: Unsure how to find the right path
-
Unsure how to find the right path
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
Ok so there is defiantly more than 1 way to skin a cat(not that I ever would), I do appreciate all the feedback it now lets me know that I have to read the help file 30 times over but thanks again everyone -
Unsure how to find the right path
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
thanks pluto41, but JLogan3o13 helped me already, Give a man a fish and he eats for a day, Teach a man to fish and he eats for a lifetime. thanks anyways -
Unsure how to find the right path
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
string split into another array right -
Unsure how to find the right path
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
I know, But I aint no quitter. Anyway ok I got that working and it displays fine but how would I split the string just to get the folder. so instead of C:\temp\test1234 I would just get the test1234 -
Unsure how to find the right path
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
Thank You, But I always have trouble with array's I Just cant grasp them. But thank you this is what I am looking for. -
I am looking for a func that will let me find a folder name. if I tell the script where to look eg. C:\Programdata\microsoft, and to look for a folder called "Testxxxxx" where the xxxxxx = a random number and pull that back to a varible. how do I do that. I have looked through the help file and looked at google, I can't really find anything. Any help would be nice
-
***** Please Do not run this Script without Looking at it, It Will make several Registry changes that will alter the Behavior of your computer.***** If I set the value staticly, it works but if I set the value to read from a Radio button it's gives a value of 1(not sure why). #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\..\..\Users\Aaron.Kennedy\Downloads\hourglass_128px_1139215_easyicon.net.ico #AutoIt3Wrapper_Outfile=C:\Users\Aaron.Kennedy\AppData\Local\Temp\test.exe #AutoIt3Wrapper_Outfile_x64=..\..\..\..\..\work\Hospitallity\Script files\GUI_Test_x64.exe #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <FileConstants.au3> #include <Date.au3> #include <Array.au3> #include <ComboConstants.au3> #Region ### START Koda GUI section ### Form=c:\users\aaron.kennedy\desktop\test1.kxf Global $iHour, $iWeekday Global $aWeekdays[8] = [7, "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"] ;a 1 based array row 0 = count of real elements Global $aHours[24] ;a 0 based array all rows are used from elements _initHours() $Form1_1 = GUICreate("Aloha Staging", 340, 590, 260, 270) $Group1 = GUICtrlCreateGroup("Network Information", 8, 8, 321, 193) $IPAddress1 = _GUICtrlIpAddress_Create($Form1_1, 144, 24, 177, 17) _GUICtrlIpAddress_Set($IPAddress1, "192.168.0.100") $Subnet = _GUICtrlIpAddress_Create($Form1_1, 144, 48, 177, 17) _GUICtrlIpAddress_Set($Subnet, "255.255.255.0") $DefaultGateway = _GUICtrlIpAddress_Create($Form1_1, 144, 72, 177, 17) _GUICtrlIpAddress_Set($DefaultGateway, "192.168.0.0") $DNS1 = _GUICtrlIpAddress_Create($Form1_1, 144, 112, 178, 17) _GUICtrlIpAddress_Set($DNS1, "192.168.1.1") _GUICtrlIpAddress_ShowHide($DNS1, @SW_SHOW) $DNS2 = _GUICtrlIpAddress_Create($Form1_1, 144, 136, 177, 17) _GUICtrlIpAddress_Set($DNS2, "8.8.4.4") _GUICtrlIpAddress_ShowHide($DNS2, @SW_SHOW) ;$Checkbox1 = GUICtrlCreateCheckbox("Custom DNS", 24, 168, 97, 17) $Label1 = GUICtrlCreateLabel("IP Address", 24, 24, 55, 17) $Label2 = GUICtrlCreateLabel("Subnet Mask", 24, 48, 67, 17) $Label3 = GUICtrlCreateLabel("Default Gateway", 24, 72, 83, 17) $Label4 = GUICtrlCreateLabel("Primary DNS", 24, 120, 64, 17) $Label5 = GUICtrlCreateLabel("Secondary DNS", 24, 136, 81, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("OK", 264, 544, 65, 33) $Button2 = GUICtrlCreateButton("Cancel", 8, 544, 65, 33) $ALOHABOH = GUICtrlCreateInput("ALOHABOH", 144, 224, 177, 21) $Label6 = GUICtrlCreateLabel("Computer Name", 16, 224, 96, 17) $Group2 = GUICtrlCreateGroup("Time Zone", 8, 256, 321, 105) $Radio1 = GUICtrlCreateRadio("Pacific Standard Time", 16, 280, 121, 17) $Radio2 = GUICtrlCreateRadio("Mountain Standard Time", 16, 304, 137, 17) $Radio3 = GUICtrlCreateRadio("Central Standard Time", 16, 328, 129, 17) $Radio4 = GUICtrlCreateRadio("Eastern Standard Time", 160, 280, 129, 17) $Radio5 = GUICtrlCreateRadio("Atlantic Standard Time", 160, 304, 129, 17) $Radio6 = GUICtrlCreateRadio("Newfoundland Standard Time", 160, 328, 169, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group3 = GUICtrlCreateGroup("Windows Updates Schedule", 8, 376, 321, 65) $Combo1 = GUICtrlCreateCombo("", 24, 400, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) $Combo2 = GUICtrlCreateCombo("", 192, 400, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label7 = GUICtrlCreateLabel("Time Business Machines 2016", 96, 552, 148, 17) $Button3 = GUICtrlCreateButton("Update Time", 130, 470, 70, 40) _SetDay() _setHour() GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### #Region ;Varibles Local $string = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}" Local $Value1 = "ProviderName" Local $Value2 = "PnPCapabilities" Local $key0 = RegRead($string &"\0000",$Value1) Local $key1 = RegRead($string &"\0001",$Value1) Local $key2 = RegRead($string &"\0002",$Value1) Local $key3 = RegRead($string &"\0003",$Value1) Local $key4 = RegRead($string &"\0004",$Value1) Local $key5 = RegRead($string &"\0005",$Value1) Local $key6 = RegRead($string &"\0006",$Value1) Local $key7 = RegRead($string &"\0007",$Value1) Local $key8 = RegRead($string &"\0008",$Value1) Local $key9 = RegRead($string &"\0009",$Value1) Local $key10 = RegRead($string &"\0010",$Value1) Local $key11 = RegRead($string &"\0011",$Value1) Local $key12 = RegRead($string &"\0012",$Value1) Local $key13 = RegRead($string &"\0013",$Value1) Local $key14 = RegRead($string &"\0014",$Value1) Local $key15 = RegRead($string &"\0015",$Value1) Local $key16 = RegRead($string &"\0016",$Value1) Local $key17 = RegRead($string &"\0017",$Value1) Local $key18 = RegRead($string &"\0018",$Value1) Local $key19 = RegRead($string &"\0019",$Value1) Local $key20 = RegRead($string &"\0020",$Value1) #EndRegion While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ; Case $Checkbox1 ; If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ;_GUICtrlIpAddress_ShowHide($DNS1, @SW_SHOW) ;_GUICtrlIpAddress_ShowHide($DNS2, @SW_SHOW) ; EndIf Case $Combo1 $select = GUICtrlRead($Combo1) $iWeekday=_ArraySearch($aWeekdays,$select) Case $Combo2 $select = GUICtrlRead($Combo2) $iHour =_ArraySearch($aHours,$select) Case $Radio1 $Timezone = GUICtrlRead($Radio1) Case $Radio2 $Timezone = GUICtrlRead($Radio2) Case $Radio3 $Timezone = GUICtrlRead($Radio3) Case $Radio4 $Timezone = GUICtrlRead($Radio4) Case $Radio5 $Timezone = GUICtrlRead($Radio5) Case $Radio6 $Timezone = GUICtrlRead($Radio6) Case $Button2 Exit Case $Button3 Run(@ComSpec & " /c " & 'sc start w32time > C:\Setup\Logs\time-start.log', "", @SW_HIDE) Sleep(1000) Run(@ComSpec & " /c " & 'w32tm /resync /nowait > C:\Setup\Logs\time-update.log', "", @SW_HIDE) Sleep(800) Run(@ComSpec & " /c " & 'sc stop w32time > C:\Setup\Logs\time-stop.log', "", @SW_HIDE) MsgBox(64,"Computer Time","The Time on the computer has been updated",0,0) Case $Button1 #Region ; Logging DirCreate ( "C:\Setup\" ) DirCreate ( "C:\Setup\Logs\" ) FileInstall("C:\work\Hospitallity\TBMUserSetup.bat","C:\Setup\TBMUserSetup.bat") FileInstall("C:\work\Hospitallity\firewall_ports.bat","C:\Setup\firewall_ports.bat") #EndRegion #Region ;Registry MsgBox(64,"Terminal Registry","The Registry will be modified",0,0) Sleep(2000) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip6\Parameters\","DisabledComponents","REG_DWORD",0xffffffff) ;tcpip6 RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\","DisabledDHCPMediaSense","REG_DWORD",1) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\CSC\","Start","REG_DWORD",4) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters\","FileInfoCacheLifetime","REG_DWORD",0) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters\","FileNotFoundCacheLifetime","REG_DWORD",0) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters\","DirectoryCacheLifetime","REG_DWORD",0) RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Windows Error Reporting\","DontShowUI","REG_DWORD",1) RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","SoftwareSASGeneration","REG_DWORD",1) RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","EnableLUA","REG_DWORD",0); Disables UAC RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","ConsentPromptBehaviorAdmin","REG_DWORD",0); Disables UAC RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","PromptOnSecureDesktop","REG_DWORD",0); Disables UAC RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","dontdisplaylastusername","REG_DWORD",1); Disables UAC RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","DontDisplayLockedUserId","REG_DWORD",8); Disables UAC RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\","CheckedValue","REG_DWORD",1);show folders RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\","CheckedValue","REG_DWORD",1); show file extentions RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SharingWizardOn\","CheckedValue","REG_DWORD",1); should disable file share wiz MsgBox(64,"Terminal Commands",$Timezone,0,0) RegWrite("HKLM\SYSTEM\ControlSet001\Control\TimeZoneInformation\","TimeZoneKeyName","REG_SZ",$Timezone); first timezone change MsgBox(64,"cs1",RegRead("HKLM\SYSTEM\ControlSet001\Control\TimeZoneInformation\","TimeZoneKeyName"),0,0) RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\TimeZoneInformation\","TimeZoneKeyName","REG_SZ",$Timezone); Second timezone change MsgBox(64,"ccs",RegRead("HKLM\SYSTEM\CurrentControlSet\Control\TimeZoneInformation\","TimeZoneKeyName"),0,0) ; Windows 10 Disable RegWrite("HKLM\Software\Policies\Microsoft\Windows\WindowsUpdate\","DisableOSUpgrade","REG_DWORD",1) RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\GWX\","DisableGwx","REG_DWORD",1) RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\OSUpgrade\","ReservationsAllowed","REG_DWORD",0) ; Windows 10 Disable RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Power\User\PowerSchemes\381b4222-f694-41f0-9685-ff5bb260df2e\0012ee47-9041-4b5d-9b77-535fba8b1442\6738e2c4-e8a5-4a42-b16a-e040e769756e\","ACSettingIndex","REG_DWORD",0) if not RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DontDisplayLockedUserId",2) Then RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\","DontDisplayLockedUserId","REG_DWORD",2) EndIf if not RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\AUOptions",4) Then RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","AUOptions","REG_DWORD",4) EndIf RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","ScheduledInstallDay","REG_DWORD",$iWeekday) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","ScheduledInstallTime","REG_DWORD",$iHour) if not RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\IncludeRecommendedUpdates",0) Then RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","IncludeRecommendedUpdates","REG_DWORD",0) EndIf if not RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\ElevateNonAdmins",1) Then RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","ElevateNonAdmins","REG_DWORD",1) EndIf #EndRegion #Region Logging $var1 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip6\Parameters\","DisabledComponents") if $var1 = "0xffffffff" Then $log = " Success " Else $log = @error & " " & "Failure " & $var1 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Network", "TCPIPv6 Disabled Components", $log) $var2 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\","DisabledDHCPMediaSense") if $var2 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var2 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Network", "Disabled DHCP MediaSense", $log) $var3 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\CSC\","Start") if $var3 = 4 Then $log = " Success " Else $log = @error & " " & "Failure " & $var3 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Network", "Disabled Client Side Caching", $log) $var4 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters\","FileinfoCacheLifetime") if $var4 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var4 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Network", "File Info Cache Lifetime", $log) $var5 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters\","FileNotFoundCacheLifetime") if $var5 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var5 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Network", "File Not Found Cache Lifetime", $log) $var6 = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters\","DirectoryCacheLifetime") if $var6 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var6 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Network", "Directory Cache Lifetime", $log) $var7 = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Windows Error Reporting\","DontShowUI") if $var7 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var7 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Windows Error Reporting", $log) $var8 = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","SoftwareSASGeneration") if $var8 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var8 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "SoftwareSASGeneration - Local Group Policy", $log) $var9 = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","EnableLUA") if $var9 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var9 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Disable UAC", $log) $var10 = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","ConsentPromptBehaviorAdmin") if $var10 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var10 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Consent Prompt Behavior Admin - Disable UAC", $log) $var11 = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","PromptOnSecureDesktop") if $var11 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var11 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Prompt On Secure Desktop - Disable UAC", $log) $var12 = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","dontdisplaylastusername") if $var12 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var12 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "dont display last username", $log) $var13 = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\","DontDisplayLockedUserId") if $var13 = 2 Then $log = " Success " Else $log = @error & " " & "Failure " & $var13 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Dont Display Locked User Id", $log) $var14 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\","CheckedValue") if $var14 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var14 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Show Hidden Folders", $log) $var15 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\","CheckedValue") if $var15 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var15 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Show File Exstentions", $log) $var16 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SharingWizardOn\","CheckedValue") if $var16 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var16 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Sharing Wizard On", $log) $var17 = RegRead("HKLM\Software\Policies\Microsoft\Windows\WindowsUpdate\","DisableOSUpgrade") if $var17 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var17 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Disable OS Upgrade", $log) $var18 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\GWX\","DisableGwx") if $var18 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var18 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Disable Gwx", $log) $var19 = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\OSUpgrade\","ReservationsAllowed") if $var19 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var19 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Disable OS Upgrade", $log) $var20 = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Power\User\PowerSchemes\381b4222-f694-41f0-9685-ff5bb260df2e\0012ee47-9041-4b5d-9b77-535fba8b1442\6738e2c4-e8a5-4a42-b16a-e040e769756e\","ACSettingIndex") if $var20 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var20 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Settings", "Power Schemes", $log) $var21 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","AUOptions") if $var21 = 4 Then $log = " Success " Else $log = @error & " " & "Failure " & $var21 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Update", "Auto Update", $log) $var22 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","IncludeRecommendedUpdates") if $var22 = 0 Then $log = " Success " Else $log = @error & " " & "Failure " & $var22 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Update", "Include Recommended Updates", $log) $var23 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","ElevateNonAdmins") if $var23 = 1 Then $log = " Success " Else $log = @error & " " & "Failure " & $var23 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Update", "Elevate NonAdmins", $log) $var24 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","ScheduledInstallDay") if $var24 = $iWeekday Then $log = " Success " Else $log = @error & " " & "Failure " & $var24 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Update", "Scheduled Install Day", $log) $var25 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\","ScheduledInstallTime") if $var25 = $iHour Then $log = " Success " Else $log = @error & " " & "Failure " & $var25 EndIf IniWrite("C:\Setup\Logs\Staging.ini", "Windows Update", "Scheduled Install Time", $log) MsgBox(64,"Terminal Registry","The Registry has been modified",0,0) #EndRegion Sleep(2000) MsgBox(64,"Terminal Commands","The DOS commands will start in 2 Seconds",0,0) Sleep(2000) if NOT FileExists("C:\Setup\Logs\time-update.log") Then Run(@ComSpec & " /c " & 'NET TIME \\ALOHABOH /SET /YES > C:\Setup\Logs\Nettime.log', "", @SW_HIDE) EndIf Run(@ComSpec & " /c " & 'bcdedit.exe /set nx alwaysoff > C:\Setup\Logs\bcdedit.log', "", @SW_HIDE) Run(@ComSpec & " /c " & 'sc config "UI0Detect" start= disabled > C:\Setup\Logs\isd.log', "", @SW_HIDE); Interactive Services detection Sleep(2000) #Region ;Network IP setting Run(@ComSpec & " /c " & 'netsh interface ip set address name="Local Area Connection" source=static addr='& _GUICtrlIpAddress_Get( $IPAddress1) &' mask='& _GUICtrlIpAddress_Get($Subnet) &' gateway='& _GUICtrlIpAddress_Get($DefaultGateway) &' gwmetric=1', "", @SW_HIDE) ;setting of IP address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection" ' & _GUICtrlIpAddress_Get($DNS1), "", @SW_HIDE) ;setting of Dns 1 address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection" ' & _GUICtrlIpAddress_Get($DNS2) & ' index=2', "", @SW_HIDE) ;setting of Dns 2 address Run(@ComSpec & " /c " & 'netsh interface ip set address name="Local Area Connection 1" source=static addr='& _GUICtrlIpAddress_Get( $IPAddress1) &' mask='& _GUICtrlIpAddress_Get($Subnet) &' gateway='& _GUICtrlIpAddress_Get($DefaultGateway) &' gwmetric=1', "", @SW_HIDE) ;setting of IP address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 1" ' & _GUICtrlIpAddress_Get($DNS1), "", @SW_HIDE) ;setting of Dns 1 address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 1" ' & _GUICtrlIpAddress_Get($DNS2) & ' index=2', "", @SW_HIDE) ;setting of Dns 2 address Run(@ComSpec & " /c " & 'netsh interface ip set address name="Local Area Connection 2" source=static addr='& _GUICtrlIpAddress_Get( $IPAddress1) &' mask='& _GUICtrlIpAddress_Get($Subnet) &' gateway='& _GUICtrlIpAddress_Get($DefaultGateway) &' gwmetric=1', "", @SW_HIDE) ;setting of IP address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 2" ' & _GUICtrlIpAddress_Get($DNS1), "", @SW_HIDE) ;setting of Dns 1 address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 2" ' & _GUICtrlIpAddress_Get($DNS2) & ' index=2', "", @SW_HIDE) ;setting of Dns 2 address Run(@ComSpec & " /c " & 'netsh interface ip set address name="Local Area Connection 3" source=static addr='& _GUICtrlIpAddress_Get( $IPAddress1) &' mask='& _GUICtrlIpAddress_Get($Subnet) &' gateway='& _GUICtrlIpAddress_Get($DefaultGateway) &' gwmetric=1', "", @SW_HIDE) ;setting of IP address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 3" ' & _GUICtrlIpAddress_Get($DNS1), "", @SW_HIDE) ;setting of Dns 1 address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 3" ' & _GUICtrlIpAddress_Get($DNS2) & ' index=2', "", @SW_HIDE) ;setting of Dns 2 address Run(@ComSpec & " /c " & 'netsh interface ip set address name="Local Area Connection 4" source=static addr='& _GUICtrlIpAddress_Get( $IPAddress1) &' mask='& _GUICtrlIpAddress_Get($Subnet) &' gateway='& _GUICtrlIpAddress_Get($DefaultGateway) &' gwmetric=1', "", @SW_HIDE) ;setting of IP address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 4" ' & _GUICtrlIpAddress_Get($DNS1), "", @SW_HIDE) ;setting of Dns 1 address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 4" ' & _GUICtrlIpAddress_Get($DNS2) & ' index=2', "", @SW_HIDE) ;setting of Dns 2 address Run(@ComSpec & " /c " & 'netsh interface ip set address name="Local Area Connection 5" source=static addr='& _GUICtrlIpAddress_Get( $IPAddress1) &' mask='& _GUICtrlIpAddress_Get($Subnet) &' gateway='& _GUICtrlIpAddress_Get($DefaultGateway) &' gwmetric=1', "", @SW_HIDE) ;setting of IP address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 5" ' & _GUICtrlIpAddress_Get($DNS1), "", @SW_HIDE) ;setting of Dns 1 address Run(@ComSpec & " /c " & 'netsh interface ipv4 add dns "Local Area Connection 5" ' & _GUICtrlIpAddress_Get($DNS2) & ' index=2', "", @SW_HIDE) ;setting of Dns 2 address Run(@ComSpec & " /c " & 'wmic computersystem where name="%COMPUTERNAME%" call rename name="' & GUICtrlRead($ALOHABOH) & '"', "", @SW_HIDE) MsgBox(64,"Terminal User Setup","The User Setup will start in 2 Seconds",0,0) Sleep(2000) ;Run(@ComSpec & " /c " & 'C:\Setup\TBMUserSetup.bat', "", @SW_SHOW) Run(@ComSpec & " /c " & 'C:\Setup\firewall_ports.bat > C:\Setup\Logs\Firewall.log', "", @SW_HIDE) Run(@ComSpec & " /c " & 'wmic nicconfig where TcpipNetbiosOptions=0 call SetTcpipNetbios 1 > C:\Setup\Logs\Netbios.log', "", @SW_HIDE) ; Netbios Run(@ComSpec & " /c " & 'powercfg -x -disk-timeout-ac 0', "", @SW_HIDE) #EndRegion #Region ;Network Power Disable if not ($key0 ="Microsoft") Then RegWrite($string &"\0000",$Value2,"REG_DWORD",24) EndIf if not ($key1 ="Microsoft") Then RegWrite($string &"\0001",$Value2,"REG_DWORD",24) EndIf if not ($key2 ="Microsoft") Then RegWrite($string &"\0002",$Value2,"REG_DWORD",24) EndIf if not ($key3 ="Microsoft") Then RegWrite($string &"\0003",$Value2,"REG_DWORD",24) EndIf if not ($key4 ="Microsoft") Then RegWrite($string &"\0004",$Value2,"REG_DWORD",24) EndIf if not ($key5 ="Microsoft") Then RegWrite($string &"\0005",$Value2,"REG_DWORD",24) EndIf if not ($key6 ="Microsoft") Then RegWrite($string &"\0006",$Value2,"REG_DWORD",24) EndIf if not ($key7 ="Microsoft") Then RegWrite($string &"\0007",$Value2,"REG_DWORD",24) EndIf if not ($key8 ="Microsoft") Then RegWrite($string &"\0008",$Value2,"REG_DWORD",24) EndIf if not ($key9 ="Microsoft") Then RegWrite($string &"\0009",$Value2,"REG_DWORD",24) EndIf if not ($key10 ="Microsoft") Then RegWrite($string &"\0010",$Value2,"REG_DWORD",24) EndIf if not ($key11 ="Microsoft") Then RegWrite($string &"\0011",$Value2,"REG_DWORD",24) EndIf if not ($key12 ="Microsoft") Then RegWrite($string &"\0012",$Value2,"REG_DWORD",24) EndIf if not ($key13 ="Microsoft") Then RegWrite($string &"\0013",$Value2,"REG_DWORD",24) EndIf if not ($key14 ="Microsoft") Then RegWrite($string &"\0014",$Value2,"REG_DWORD",24) EndIf if not ($key15 ="Microsoft") Then RegWrite($string &"\0015",$Value2,"REG_DWORD",24) EndIf if not ($key16 ="Microsoft") Then RegWrite($string &"\0016",$Value2,"REG_DWORD",24) EndIf if not ($key17 ="Microsoft") Then RegWrite($string &"\0017",$Value2,"REG_DWORD",24) EndIf if not ($key18 ="Microsoft") Then RegWrite($string &"\0018",$Value2,"REG_DWORD",24) EndIf if not ($key19 ="Microsoft") Then RegWrite($string &"\0019",$Value2,"REG_DWORD",24) EndIf if not ($key20 ="Microsoft") Then RegWrite($string &"\0020",$Value2,"REG_DWORD",24) EndIf #EndRegion #Region ; Set Long File Date all users #cs This has become invalid due to the nature of windows registry If @OSArch = "X86" Then Fileinstall("C:\work\Hospitallity\Script files\slongdate.exe","C:\Users\All Users\Microsoft\Windows\Start Menu\Programs\Startup\slongdate.exe") ElseIf @OSArch = "X64" Then Fileinstall("C:\work\Hospitallity\Script files\slongdate64.exe","C:\Users\All Users\Microsoft\Windows\Start Menu\Programs\Startup\slongdate64.exe") EndIf #ce sleep(2500) ;Run(@ComSpec & " /c " & 'copy C:\slongdate.exe C:\Windows\System32\GroupPolicy\User\Scripts\Logon\slongdate.exe', "", @SW_HIDE) ;Sleep(2500) ;FileOpen("C:\Windows\System32\GroupPolicy\User\Scripts\scripts.ini",$FO_OVERWRITE) ;FileWriteLine("C:\Windows\System32\GroupPolicy\User\Scripts\scripts.ini", @CRLF) ;FileWriteLine("C:\Windows\System32\GroupPolicy\User\Scripts\scripts.ini", "[Logon]" & @CRLF) ;FileWriteLine("C:\Windows\System32\GroupPolicy\User\Scripts\scripts.ini", "0CmdLine=slongdate.exe" & @CRLF) ;FileWriteLine("C:\Windows\System32\GroupPolicy\User\Scripts\scripts.ini", "0Parameters=" & @CRLF) ;FileWriteLine("C:\Windows\System32\GroupPolicy\User\Scripts\scripts.ini", @CRLF) ;FileClose("C:\Windows\System32\GroupPolicy\User\Scripts\scripts.ini") #EndRegion MsgBox(64,"Checklist","The Checklist has been run",0,0) Sleep(7000) ProcessWaitClose("cmd.exe") FileDelete("C:\Setup\TBMUserSetup.bat") FileDelete("C:\Setup\firewall_ports.bat") ;Shutdown(6) Exit EndSwitch WEnd #Region ;Funcs Func _initHours() For $i=0 to 12 $aHours[$i]=$i&':00 am' Next For $i=13 to 23 $aHours[$i]=$i&':00 pm' Next EndFunc Func _SetDay() Local $iWeekday = _DateToDayOfWeek(@YEAR, @MON, @MDAY) For $i = 1 To 7 If $i = $iWeekday Then GUICtrlSetData($Combo1, $aWeekdays[$i], $aWeekdays[$i]) Else GUICtrlSetData($Combo1, $aWeekdays[$i]) EndIf Next EndFunc ;==>_SetDay Func _setHour() For $i=0 To 23 If $i=@HOUR Then GUICtrlSetData($Combo2, $aHours[$i], $aHours[$i]) Else GUICtrlSetData($Combo2, $aHours[$i]) EndIf Next $iHour=@HOUR EndFunc #EndRegion Thanks Again
-
Need help with an conditional if statement
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
Thank you AutoBert, Pluto41, Jos. the only one that worked out of those sugesstions was autobert's. Thanks again -
Need help with an conditional if statement
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
the value of the registry key is Checkbox, so when I run this is should popup a msgbox saying "Long date set incorrectly ;(", but it gives the opposite, A msgbox that says "Long date set incorrectly :)". so it isn't checking of the value of the reg key is = "Checlls" -
I am trying to put some better logging into my script that i have been working on but I am having a issue I know its how my if statement is formed but i don't know how to fix it. #requireadmin $blah = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt", "type") if not $blah = "checlls" Then Local $longdate = " Long date set incorrectly ;( " Else Local $longdate = " Long date set Correctly :) " MsgBox(64,"Terminal User Setup", $longdate,0,0) EndIf MsgBox(64,"Terminal User Setup", $blah,0,0) exit Thanks for the help
-
Regread always gives error
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
if not RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt", "type") ="checkbox" Then Local $longdate = " Long date set incorrectly ;( " Else Local $longdate = " Long date set Correctly :) " MsgBox(64,"Terminal User Setup", $longdate,0,0) EndIf but I am having an issue where it is always saying that it is correct even if I change "checkbox" to "adshdassdgsd" -
Regread always gives error
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
if not RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt", "type") Then Local $longdate = " Long date set incorrectly ;( " Else Local $longdate = " Long date set Correctly :) " MsgBox(64,"Terminal User Setup", $longdate,0,0) EndIf MsgBox(64,"Terminal User Setup", @error,0,0) this works now thanks -
Regread always gives error
scwoobles replied to scwoobles's topic in AutoIt General Help and Support
I am so so sorry lol, this was so simple I had a blonde moment, $Regkey="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\type" $RegLev=StringSplit($regkey,"\") $Regkey="HKLM" For $x = 2 to $RegLev[0] $Regkey&= "\" & $RegLev[$x] $rc=RegRead($Regkey, "checkbox") ConsoleWrite('Key=' & $Regkey & ' : $rc = ' & $rc & ' Error code: ' & @error & @CRLF) Next this is what it should have been, I am sorry for wasting your time so so sorry. $Regkey="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt" $RegLev=StringSplit($regkey,"\") $Regkey="HKLM" For $x = 2 to $RegLev[0] $Regkey&= "\" & $RegLev[$x] $rc=RegRead($Regkey, "type") ConsoleWrite('Key=' & $Regkey & ' : $rc = ' & $rc & ' Error code: ' & @error & @CRLF) Next