anystupidassname

Thank you both for this example. I am slightly less clueless because of it.

I've started using _FileWriteLog and it seems to be working out for me. Thank you!

If I uncomment an EndIf, I'll have an EndIf without an If... I do not like green eggs and ham. Thanks anyway.

Hi all, Any body have some tips for tshooting where a script is failing? This is skipping to the end and just showing the last msgbox... (Time for a beer) I made the mistake of writing it all first thinking I could tshooting it after but I guess it is better to go line by line? Any assistance would be much appreciated! ;check for telltale RegRead("hklm\software\","lam") If @Error > 0 Then MsgBox(0, "", "1") FileInstall("QRes.exe",@TempDir,1) FileInstall("WUInstall.exe",@TempDir,1) MsgBox(0, "", "2") If @OSBuild < 3791 Then $wl = RegRead("hklm\software\microsoft\windows\currentversion\setup","Installation Sources") FileCopy($wl"\I386","%systemroot%\I386",9) EndIf MsgBox(0, "", "3") ;disable prelogon screensaver RegWrite("hku\.default\control panel\desktop\","screensaveractive","REG_DWORD","0") ;set resolution Run(@ComSpec & " /c " & @TempDir & "qres.exe /x:1024 /c:32 /r:85") ;add lam user Run(@ComSpec & " /c " & "net user lam **ZAPPED** /add") Run(@ComSpec & " /c " & "net localgroup Users lam /del") Run(@ComSpec & " /c " & "net localgroup Administrators lam /add") Run(@TempDir & "WUInstall.exe /install") ;disable UAC RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\","EnableLUA","REG_DWORD","2") ;remove IE ESC RegWrite("HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A7-37EF-4b3f-8CFC-4F3A74704073}","IsInstalled","REG_DWORD","0") RegWrite("HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A8-37EF-4b3f-8CFC-4F3A74704073}","IsInstalled","REG_DWORD","0") RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OC Manager\Subcomponents","iehardenadmin","REG_DWORD","0") RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OC Manager\Subcomponents","iehardenuser","REG_DWORD","0") ;disable firewall RegWrite("HKLM\SOFTWARE\Policies\Microsoft\WindowsFirewall\DomainProfile","EnableFirewall","REG_DWORD","0") RegWrite("HKLM\SOFTWARE\Policies\Microsoft\WindowsFirewall\StandardProfile","EnableFirewall","REG_DWORD","0") Run(@ComSpec & " /c " & "sc config SharedAccess start= disabled") Run(@ComSpec & " /c " & "netsh firewall set opmode mode=disable profile=all") Run(@ComSpec & " /c " & "net stop SharedAccess") ; Run the following command lines: (from an elevated command line window.) Run(@ComSpec & " /c " & "Rundll32 iesetup.dll, IEHardenLMSettings") Run(@ComSpec & " /c " & "Rundll32 iesetup.dll, IEHardenUser") Run(@ComSpec & " /c " & "Rundll32 iesetup.dll, IEHardenAdmin") Run(@ComSpec & " /c " & "Rundll32 iesetup.dll, IEHardenMachineNow") ;security center disable RegWrite("HKLM\SYSTEM\ControlSet001\Services\wscsvc","Start","REG_DWORD","4") ;disable system restore RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows NT","DisableConfig","REG_DWORD","1") ;simple file sharing RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Lsa\","forceguest","REG_DWORD","0") ;set windows update manual RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU","NoAutoUpdate","REG_DWORD","0") RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU","AUOptions","REG_DWORD","2") ;logon type + screensaver RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\","LogonType","REG_DWORD","0") RegWrite("HKLM\\Software\Microsoft\Windows\CurrentVersion\Policies\System\","DisableCAD","REG_DWORD","1") ;enable rdp RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server","fDenyTSConnection","REG_DWORD","0") ;remove IE ESC RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap","IEHarden","REG_DWORD","0") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap","UNCAsIntranet","REG_DWORD","0") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap","AutoDetect","REG_DWORD","1") RegDelete("HKCU\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A7-37EF-4b3f-8CFC-4F3A74704073}") RegDelete("HKCU\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A8-37EF-4b3f-8CFC-4F3A74704073}") RegDelete("HKCU\Software\Microsoft\Internet Explorer\Main","First Home Page") ;;;MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BackInfo=1,C:\BackInfo.exe ;unhide hidden and system files and show extensions RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","superhidden","REG_DWORD","1") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","hidden","REG_DWORD","1") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","hidefileext","REG_DWORD","0") ;set best performance RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\","VisualEffects","REG_DWORD","2") ;server startup wizard disable RegWrite("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Setup\Welcome","srvwiz","REG_DWORD","0") ;classic systray RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer","EnableAutoTray","REG_DWORD","0") ;create telltale RegWrite("hklm\software\","lam","REG_SZ","deleteme") ;prompt to reboot and login as lam MsgBox(16,"Logout","Please log out, log back in as "lam" and run this a second time") Shutdown(16) Else ;;;MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BackInfo=1,C:\BackInfo.exe ;set resolution Run(@ComSpec & " /c " & @TempDir & "qres.exe /x:1024 /c:32 /r:85", "") ;disable IE ESC RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap","IEHarden","REG_DWORD","0") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap","UNCAsIntranet","REG_DWORD","0") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap","AutoDetect","REG_DWORD","1") RegDelete("HKCU\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A7-37EF-4b3f-8CFC-4F3A74704073}") RegDelete("HKCU\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A8-37EF-4b3f-8CFC-4F3A74704073}") RegDelete("HKCU\Software\Microsoft\Internet Explorer\Main","First Home Page") ;server startup wizard disable RegWrite("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Setup\Welcome","srvwiz","REG_DWORD","0") ;set best performance RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\","VisualEffects","REG_DWORD","2") ;unhide hidden and system files and show extensions RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","superhidden","REG_DWORD","1") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","hidden","REG_DWORD","1") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","hidefileext","REG_DWORD","0") ;classic systray RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer","EnableAutoTray","REG_DWORD","0") ;delete telltale RegDelete("hklm\software\","lam") EndIf ;If @error Then ; MsgBox(0, "Failed", "Sum Ting Wong!") ; Exit ;Else MsgBox(64, "Time for a beer", "The tool thinks everything went well and you're now done..." & @LF & "Thank you for abusing this tool") ;EndIf Exit

It sounds to me like you just are unaware of the macros provided by autoit. Search for "Macro" in the autoit help. @StartMenuDir @DesktopDir

I guess I wasn't clear. A java app for case tracking spawns a window titled "Cross Reference" I would like to detect if this window exists. Whether or not it actually exists, the following two statements give a wrong result: WinGetState("Cross Reference") returns 5 (1 = exists and 4 = enabled) If Not WinExists("Cross Reference") Then blah EndIf blah never happens

I've experimented with (If Not) WinExists and WinGetState (5) and both indicate a window exists when it does not which is causing a script to fail. Anybody have any suggestions? I could use some help please and thanks.

Thanks for pointing that out spud! I tried it the right way and sadly it doesn't seem to have made a difference. I think the fact that it is a java app might have something to do with it maybe?!? When I do a "WinGetState ("title") on the same it gives me a return of 5 which I take means it exists and is enabled... But that is wrong. WTF?!?

While Not WinExists("Cross Reference") Send("!f") Send("n") Send("x") ;;tried alternative method that didn't work... WinMenuSelectItem("Titan","&File","&New","New &Xref") WEnd I'm choosing an option in a menu which should bring up a child window. occasionally, the first app takes a while longer to respond so I'd just like to keep trying the menu until the child window comes up. (what I've pasted isn't working and I'm not sure why...) thanks

Thanks but sorry, I tried and that wasn't it...

Hello all. I have a script that occasionally initiates before the java app it is supposed to interact with is ready/responding. This results in failure of the script. Could somebody please advise how this situation would be handled by a GOOD script writer (unlike me :-/)? ;grab 16 Numbers $doc4 = StringRegExp($doc3, "\d{12,16}", 1) $doc5 = _ArrayToString($doc4) ;msgbox(48,"",$doc1) ;switch to titan WinActivate("Titan") WinWaitActive("Titan") Sleep(5) ;initiate xref alt-f n x Send("!f") Send("n") Send("x") ;;tried alternative method that didn't work... WinMenuSelectItem("Titan","&File","&New","New &Xref") ;pick resource tab tab t tab WinActivate("Cross Reference") WinWaitActive("Cross Reference") Sleep(50) Sleep(50) Send("{TAB}") Sleep(50) Send("{TAB}") Sleep(50) Send("t") Thanks!

OK, I'm still stuck... http://www.autoitscript.com/forum/index.php?showtopic=64608

Please take a look at the attached screenshot and provide an example of how WinMenuSelectItem or _GUICtrlMenu_FindItem would be used to click "Copy IDs". How can I tell if these are the type of emulated menus that AutoIt says won't work with WinMenuselectItem? This doesn't seem to be working... WinMenuSelectItem("Lotus Notes", "", "&Actions", "C&opy...","&Copy ID(s)." )

Thanks man. I think I'm getting WinMenuSelectItem to work for me actually! Just more error checking involved than I wanted. I'll look at menufinditem but it looks like it will explode my noob head. Have a good weekend.

Thanks, nice try but the stupid underlined character/hotkey/& is in different places. Arg! Unless it was modified to support regex or even partial matchs it isn't going to work.