bimini07

That didn't work for some reason but the following did: (cred. goes to the smart folks on this forum -- I found partial solution searching) include <GuiConstantsEx.au3> #include <String.au3> ;=========================================== ;Utility for roaming users to be able to add printers w/o admin rights.... Nab 07/16/09 ;=========================================== $s_EncryptText = "blah blah blah blah" $s_EncryptPassword = InputBox("Security Check", "Enter your password.", "", "*") $adminuser = "administrator" $adminpass = _StringEncrypt(0, $s_EncryptText, $s_EncryptPassword, 1) $admindomain = @ComputerName Func _RunAsAdmin($cmd) RunAs($adminuser, $admindomain, $adminpass, 0, $cmd) EndFunc;==>_RunAsAdmin $var = "rundll32 printui.dll,PrintUIEntry /il" _RunAsAdmin($var)

Hi Guys, I am pretty sure I am doing something pretty dumb.. I am new to programming and new to scripting as well.... Scenario: Laptop user's can't install printers b/c they don't have elevated priv... I want to be able to write a script that runs the RunAS command and supplies the admin password in encrypted form. Meaning.. the admin password is encrypted within the script.. the user is verbally given a decrypt password for the _stringencrypt function... which in turn decrypts the admin password and launches the runas command and in turn launches the ADD Printer wizard for the end user. Have I confused you enough I got parts of it working from searching here on the forum etc.. but my command won't execute beyond the decryption.... Here is the code: include <GuiConstantsEx.au3> #include <String.au3> Local $s_EncryptPassword, $s_EncryptText = "blahblahblah" $s_EncryptPassword = InputBox("Security Check", "Enter your password.", "", "*") $adminuser = "administrator" $adminpass = _StringEncrypt(0, $s_EncryptText, $s_EncryptPassword, 1) $var = "rundll32 printui.dll,PrintUIEntry /il" RunAs($adminuser, @ComputerName, $adminpass, 0, @ComSpec & $var, @SW_MAXIMIZE) any help would be greatly appreciated.... thx

Stumpii, I am just curious... the tooltips that you created... can it be ported for any other programming language? Meaning... I want to create tooltips with description and stuff for a scripting language that is similar to C... within UltraEdit. I have already created a wordlist for it and it works.. but was wondering if I could add tooltips to it. So AutoIT came to mind... and yours is the first post I have seen that has actually embeded AutoIT into UltraEdit. I am still learning AutoIT btw... and it would be of great help if you can give me some sense of direction... Thx,

O.k I think I figured the problem out... I don't know what I am doing is optimal or not but when doing a RegRead: $vncviewer = RegRead("HKEY_CLASSES_ROOT\Applications\vncviewer.exe\shell\open\command", "") It picks up the %1 variable from the registry. So I added the following: $vncpath = StringTrimRight($vncviewer, 12) And that seems to have fixed the problem. Thanks

Cworks thanks for all your help... If you don't mind can you attach your .au3 file so I can see where in the world I am messing up? I still keep on getting the cannot read vnc file name error and once you click o.k. it launches fine. Thanks

Thanks.. Cworks... It does take the spaces now but still comes up with a prompt about unable to find configuration file.. and once you click o.k. then it launches vnc with no problem... it also shows the long path in the msg box. Thanks

Thanks covaks.. the first part works like a champ but... the second part it errors out at line 27 "For $x =1 to $aTemp[0] saying error:Subscript used with non-Array variable... What does this mean? I am assuming it is looking for an Array at $aTemp[0]? Thanks

I am attaching FileRename.txt and FileStringReplace.txt.... this is basically sample data. The FileRename.txt will be used to rename the copied files, and the FileStringReplace.txt will be used to replace the HOST= value in the same config file. We have 2000 machines that have VNC server installed on them. In order to avoid the end user lookup the machine name then search to find it's ip and then enter its password... and in the process of eliminating a ton of support calls. I want to be able to create a vnc config file for each machine that these users can double click and launch vnc. The graphical end of this piece is already kinda sort of working. This is the next piece of puzzle that I need to get working. Thanks, FileRename.txt FileReplaceString.txt

Hi guys, I am wondering if this is possible with Auto IT and if so how? Any direction would be appreciated: The problem is two fold... I have a vnc config file that I need copied several times. The new name for the copied files need to be pulled from a text file and the files renamed as such. For example if you have a single config file named lets say AA.cfg this file needs to be copied lets say 1000 times, but the new names for the files need to be pulled from a txt file. So if the text file has the following entries: BB CC DD EE The new files will be BB.CFG, CC.CFG etc.. Second is a search and replace scenario on the same files. After the renaming has been done... then execute an AutoIT script that checks the file name against another text file that containts two entries or two columns. The first column lists the name of the file such as BB, CC, DD and the second column lists the value that needs to be changed within these files... for example the first line of the text file would look like this: BB, 192.168.0.1 CC, 192.168.1.1 DD, 192.168.1.2 So the script would look at the first line of the text file AA.. then open the file AA.CFG search for an entry that starts with HOST= and replaces that entry with the new IP Address. And do this till it's finished with all the entries in the text file... Is this possible with AutoIT? and if so how? Thanks,

o.k I think I got the minimize part down: $hMyGUI = GuiCreate("Search as typing", 179, 336,-1, -1) WinSetState($hMyGUI, '', @SW_MINIMIZE) Run ($vncpath & " -config " & @ScriptDir & "\" & $n, "", @SW_MAXIMIZE) Is this the right way of doing this? Thanks

Thanks for your help Cworks.... but If I use the RegRead and execute the script it errors out with unable to execute external program... The system cannot find the file specified.. But If I hardcode the path to vncviewer then everything works fine. I looked into the registry and the vncviewer.exe app path actually doesn't exist for me. I did a search and found it in the shell open command entry... so I modified it with the following: $vncviewer = RegRead("HKEY_CLASSES_ROOT\Applications\vncviewer.exe\shell\open\command", "") $vncpath = StringTrimRight($vncviewer, 12) And then used the following: Run ($vncpath & " -config " & @ScriptDir & "\" & $n, "", @SW_MINIMIZE) And this seems to work for me... I have a few questions though... Just curious if it is possible to make this app work with spaces in the path to .vnc file? Also... can you guide me on how to minimize the current gui window? Meaning whenever you double click on vnc file to execute it... VNC software runs in the background with the gui window still showing up front... how do you minimize the main gui window within this script? Thanks... Another thing I just realized is that if the vnc file listes has spaces in its name then it will not execute.... for example if I use test.vnc then it works, but If I use copy of test.vnc then it will not execute b/c of the spaces. Thanks...

O.K stuck again The double click function works fine. I can call a message box and it will show me the list item that was clicked on... but when I try to use the run command to call a config file (config file being the double clicked file) VNC says it can't find the config file. How do I fix this? Please help... thanks.. A little summary on the program: VNC supports config files. We have 2000 machines that we vnc into. The whole idea behind this is to let the end user search for the config file... double click on the config file... and in turn launch the vnc program with that specific config file. Thanks, Here is the code: #include <GuiConstants.au3> #Include <GuiListView.au3> Dim $buffer $SearchFolder = @ScriptDir $runType = '.vnc' $search = FileFindFirstFile($SearchFolder & '\*.*') $data = '' While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $attr = FileGetAttrib($file) If Not @error And StringInStr($attr, 'D') = 0 And StringRight($file, StringLen($runType)) = $runType Then $data = $data & '|' & $file EndIf WEnd FileClose($search) ;$data = StringLeft($data,StringLen($data) - 1);remove last separator $data = StringRight($data,StringLen($data) - 1);remove first separator ;MsgBox(0,'',$data) Opt("GUIDataSeparatorChar", "|") $split = StringSplit($data, "|") GuiCreate("Search as typing", 179, 336,-1, -1) $input = GuiCtrlCreateInput("", 10, 10, 160, 20) $list = GUICtrlCreateList("", 10, 40, 160, 271) GuiCtrlSetData($list, $data) $case = GUICtrlCreateCheckbox("Case sensitive", 10, 311, 160, 20) GuiSetState() GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") While 1 $msg = GuiGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit If GuiCtrlRead($input) <> "" Then $savetext = GuiCtrlRead($input) For $i = 1 to $split[0] If GuiCtrlRead($case) = $GUI_CHECKED Then If StringLeft($split[$i], StringLen(GuiCtrlRead($input))) == $savetext Then $buffer &= $split[$i] & "|" EndIf Else If StringLower(StringLeft($split[$i], StringLen(GuiCtrlRead($input)))) == StringLower($savetext) Then $buffer &= $split[$i] & "|" EndIf EndIf Next $buffer = StringTrimRight($buffer, 1) GuiCtrlSetData($list, "") GuiCtrlSetData($list, $buffer) $buffer = "" ;========================================GUI Main Loop======================================== Do $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case Else ;;; EndSelect Until GuiCtrlRead($input) <> $savetext ;============================================GUI Main Loop End===================================================== If GuiCtrlRead($input) = "" Then GuiCtrlSetData($list, "") GuiCtrlSetData($list, $data) EndIf EndIf WEnd Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam) Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox If Not IsHWnd($list) Then $hWndListBox = GUICtrlGetHandle($list) $hWndFrom = $ilParam $iIDFrom = BitAND($iwParam, 0xFFFF); Low Word $iCode = BitShift($iwParam, 16); Hi Word Switch $hWndFrom Case $list, $hWndListBox Switch $iCode Case $LBN_DBLCLK; Sent when the user double-clicks a string in a list box $n = GUICtrlRead($list) Run ("C:\Program Files\RealVNC\VNC4\VNCVIEWER.EXE -config ($n)", "", @SW_MINIMIZE) Msgbox(0, "The selected vnc config file is:", GUICtrlRead($list)) EndSwitch EndSwitch EndFunc ;==>WM_COMMAND

... LOL!!! I thought I was the only nut that worked long hours every week. My hats off to you for being able to work that long and being able to master AutoIT!!! Can you also please provide help with the double click event... How would I go about executing the double click event as such that when someone double clicks on the searched item (file in the script directory) it gets executed? Thanks...

Hi Gurus, I am a newbie at this and don't even know if this is possible or not. A while back while searching I found some excellent code written by someone on this forum. This code is an example on how to search as you type. It references a txt file data.txt which it loads in a list box and lets you search as you type. What I want to do is to be able to use files in a directory for the listing instead of a text file... and then once the right file in the list is found to be able to double click it to execute it. Obviously a yes/no box before I can execute the file just to make sure the right file was clicked? Is it possible? and if so how? With a work schedule of 60 to 70 hrs a week it will take me quite a while to figure this out so hence I am turning to you all for help... Thank you in advance... Here is the original code: This is my second time posting only so forgive me if I mess up in attaching the original code: CODE#include Dim $buffer $data = StringReplace(FileRead("data.txt"), @CRLF, "|") Opt("GUIDataSeparatorChar", "|") $split = StringSplit($data, "|") GuiCreate("Search as typing", 179, 336,-1, -1) $input = GuiCtrlCreateInput("", 10, 10, 160, 20) $list = GUICtrlCreateList("", 10, 40, 160, 271) GuiCtrlSetData($list, $data) $case = GUICtrlCreateCheckbox("Case sensitive", 10, 311, 160, 20) GuiSetState() While 1 $msg = GuiGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit If GuiCtrlRead($input) <> "" Then $savetext = GuiCtrlRead($input) For $i = 1 to $split[0] If GuiCtrlRead($case) = $GUI_CHECKED Then If StringLeft($split[$i], StringLen(GuiCtrlRead($input))) == $savetext Then $buffer &= $split[$i] & "|" EndIf Else If StringLower(StringLeft($split[$i], StringLen(GuiCtrlRead($input)))) == StringLower($savetext) Then $buffer &= $split[$i] & "|" EndIf EndIf Next $buffer = StringTrimRight($buffer, 1) GuiCtrlSetData($list, "") GuiCtrlSetData($list, $buffer) $buffer = "" ;========================================GUI Main Loop======================================== Do $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case Else ;;; EndSelect Until GuiCtrlRead($input) <> $savetext ;============================================GUI Main Loop End===================================================== If GuiCtrlRead($input) = "" Then GuiCtrlSetData($list, "") GuiCtrlSetData($list, $data) EndIf EndIf WEnd data.txt

Yes... 5 Minutes is kinda too long in our environment. These systems need to have an above 99% uptime. We have a realtime monitor that tells us that such and such machine is not connected. Since it does not lease the IP address from the DHCP server... we can't get in. I would love to know the registry setting that I can tweak to achieve the same results. I have searched on increasing the dhcp renew timeout value with no success. Thanks,

Thank You!

Hi Gurus, Whenever a DHCP client can't get an IP address from a DHCP server it resolves to a 169.XXX.XXX.XXX ip address. Is it possible to write a script that detects the current ip address assigned, and if it is an APIPA ip.. then it issues an ipconfig /renew and if not then it exits. Can this also be set on a timer or as a service so every 30 secs or so the script autoruns? How would I go about doing this? Using netsh to get current stats? But how would I go about scripting on the basis of the first octet being 169 or not? I guess I am looking for some direction here.... Thanks,