Yzöwl

Well if you don't mean those uid0 suggested above, of which only the recycle bin shows by default in XP non-classic mode, then I guess you mean shortcuts. For those you could use the compiled script in the attached, compressed archive! [please malware-scan the file and make your own judgement on whether or not you wish to use it.] NoLinx.7z

Please use the search function!

Not with a reg key! You will need to run a script, prefereably at first logon to do that.

However without renaming the directory: dir/ad/od/b will return by sorting according to date/time (oldest first). You could then parse the output to use the latest directory.

Who's created the directory structure? Can you correct their names so the they are numbered correctly? Were the directories created on different dates according to your needs? Do the setup files have dates which can be used instead? etc.

How about you visit the forums, spend some time there, find out what is often requested but unfulfilled and do your own work! Rules Topic Closed!

My guess is that it's because my executable is using LZX compression which I think wasn't an option in the earlier incarnation of makecab and therefore also in the extraction utility. In the attachment this time there are two different versions: MSZIP - file ver 1.0.0.1 - This should allow the file to be extracted in the earlier OS LZX - file ver 1.0.0.2 - This is as the previous version I posted, with a small difference. The difference is that I have included the XP SP2 version of Makecab as part of both of these executables. This gives you the opportunity to run them without worrying about having makecab installed in %PATH% and to guarantee functionality. Neither have as yet been tested for stupid mistakes! CabAlls.7z

I don't know if this is what you want but here goes: The attached archived 'compiled' batch file (you need to extract it!) takes a directory as a parameter. You do this by dropping your directory onto it. What happens is that it will makecab all files* in the top level of that directory and upon success delete the uncompressed version. This action will be performed without showing a console window, so be careful that the process is finished prior to messing with the directory. Also due to this hiding of the console window your anti-malware scanners may warn you about this file. It is of course up to you whether you continue or not. * - All files will exclude individual files which are already cabbed or cab archives. Please note that this file was intended for use on Windows XP and may fail in any other OS. I hope it helps! CabAll.7z

Or better still just the keys you need! Windows Registry Editor Version 5.00 [-HKEY_CURRENT_USER\Software\TuneUp] [HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\7.0] "Company"="XXXXXXX" "UserName"="XXXXXXX" "RegCode"="XXXXX-XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"

Regardless of whether it works or not, you don't really want to be importing all that data anyhow. The only data you should need is this Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\7.0] "Company"="XXXXXXX" "UserName"="XXXXXXX" "RegCode"="XXXXX-XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"the other data will be added as part of the install anyhow!

Welcome to the worlds greatest forums, MSFN Be prepared for a multitude of answers!

Attach your registry file, compressed, to this topic and we'll see if we can fix it for you.

You shouldn't need all that, try this: @Echo off If Not Exist Y:\SetUp.Done GoTo :Eof Start /b java -jar D:/ruby/lib/ruby/gems/1.8/gems/Selenium-1.0.2/lib/selenium/openqa/selenium-server.jar.txt Ruby "D:\Programs\Cvis_Automation\palm_master_loading.rb"

It's just the /b switch you need dir/b/a/s "x:\path\to\directory\you\want\listed">"x:\path\to\text\file.txt"Or depending on what your output file is to be used for try this as a test: tree "%programfiles%" /f /a>.\desktop\output.txt

I'm assuming again that it's something to do with: Your files are okay so should import without issue!

I assumed that too!Did you try to use another method of introducing your registry changes other that using a reg file. If not I'd suggest you try it next.

Since you've still not said, i'll assume by reg files you mean files using an extension .reg and by open you mean double-click. Have you tried importing using another method in order to rule out a problem with the regedit tool!

Welcome to your first and definitely your best Forum, MSFN! I know you're new to this but surely it hasn't taken you over a month to post...

Am I missing something here?No not at all, that's basically what MHz said. My response was more as an explanation of the process rather than a method. Just because there's no errorlevel reported there is still a stderr/stdout.

Thank you very much, we deserve it! Welcome to the MSFN Forums, I hope you enjoy participating.

Welcome to the MSFN Forums Where some go to know and others no to go

What method are you using to import your registry settings? and what exactly are they?

did you try the Start command as suggested by Robert Klemme in comp.lang.ruby: If that doesn't do it, (without the double backslashes), my guess is that you may need to use Start with the /B switch @echo off start /b D:\ruby\lib\ruby\gems\1.8\gems\Selenium-1.0.2\lib\selenium\openqa\java -jar selenium-server.jar ruby "D:\Programs\Cvis\SmokeTEST1.rb"

Welcome to the MSFN Forums Your new family!

Made a couple of changes to the text due to the change in file types and also a spelling error <TITLE>Text File and NT Command Script Lister</TITLE> <HTA:APPLICATION ID='ListTxtCmd' Scroll='No' SCROLLFLAT ='No' SingleInstance='Yes' SysMenu='Yes' ShowInTaskBar='No' MaximizeButton='No' MinimizeButton='Yes' Border='Thin' BORDERSTYLE ='complex' INNERBORDER ='Yes' Caption='Yes' WindowState='Normal' APPLICATIONNAME='List_Txt_Cmd_Files' Icon='%SystemRoot%\explorer.exe'> <STYLE Type="text/css"> Body { Font-Size:8.05pt; Font-Weight:Bold; Font-Family:Arial,Tahoma,Comic Sans MS,Segoe Ui; Color:#001254; BackGround-Color:Transparent; Filter:progid:DXImageTransform.Microsoft.Gradient (StartColorStr='#fdf7f1',endColorStr='#d1cbc5'); Margin-Top:1; Margin-Bottom:1; Margin-Left:4; Margin-Right:4; Padding-Top:1; Padding-Bottom:1; Padding-Left:4; Padding-Right:4; Text-Align:Center; Vertical-Align:Top; Border-Top:2px Solid #a6a29e; Border-Bottom:3px Solid #cbc7c3; Border-Left:2px Solid #b2aeaa; Border-Right:3px Solid #bcb8b4; } BUTTON { Width:121pt; Height:15; Cursor:Hand; Font-Size:8.05pt; Font-Weight:Bold; Font-Family:Arial,Tahoma,Comic Sans MS,Segoe Ui; Color:#001142; Filter:progid:DXImageTransform.Microsoft.Gradient (StartColorSTR='#bbddff',endColorSTR='#224488'); Padding-Top:1; Padding-Bottom:2; Margin-Left:1pt; Margin-Right:1pt; Border-Top:1px TransParent; Border-Bottom:2px TransParent; Border-Left:1px TransParent; Border-Right:2px TransParent; } TD { Font-Size:7.95pt; Font-Weight:Bold; Color:#5E5E5E; Text-Align:Center; Margin-Top:1; Margin-Bottom:1; } </STYLE> <script language="VBScript"> window.resizeTo 800,625 Const WINDOW_HANDLE = 0 ,OPTIONS = 0,MY_COMPUTER = &H11& Dim Computer :Computer = "." Dim Shell :Set Shell = CreateObject("Shell.Application") Dim Act :Set Act = CreateObject("Wscript.Shell") Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject") Dim Wmi :Set Wmi = GetObject("winmgmts:\\" & Computer & "\root\cimv2") Dim strFolderName '-> Single Directory Function DirectoryList Dim Folder, FolderItem, ObjPath Set Folder = Shell.BrowseForFolder(0, "Select a folder:", 0, MY_COMPUTER) If Folder Is Nothing Then Exit Function Else Set FolderItem = Folder.Self ObjPath = FolderItem.Path UpdateList() Set colFiles = Wmi.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='" & ObjPath & "'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile In colFiles If Right(Instr(objFile.Name,".txt"),4) Or Right(Instr(objFile.Name,".cmd"),4) Then C1 = C1 + 1 Set objOption = Document.createElement("OPTION") objOption.Text = objFile.FileName objOption.Value = objFile.Name If C1 Mod 2 Then objOption.style.backgroundcolor = "#C9C9C9" objOption.style.color = "#3A3A3A" Else objOption.style.backgroundcolor = "#E9E9E9" objOption.style.color = "#235779" End If TxtFile.Add(objOption) End If Next End If C1=0 Exit Function End Function '-> Folder And Sub Folders Function FolderSubFolderListAll() Dim colSubfolders, Folder, FolderItem, ObjPath Set Folder = Shell.BrowseForFolder(0, "Select a folder:", 0, MY_COMPUTER) If Folder Is Nothing Then Exit Function Else Set FolderItem = Folder.Self strFolderName = FolderItem.Path UpdateList() Set colSubfolders = Wmi.ExecQuery _ ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _ & "Where AssocClass = Win32_Subdirectory " _ & "ResultRole = PartComponent") Set colFiles = Wmi.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='" & strFolderName & "'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile in colFiles If Right(Instr(objFile.Name,".txt"),4) Or Right(Instr(objFile.Name,".cmd"),4) Then C1 = C1 + 1 Set objOption = Document.createElement("OPTION") objOption.Text = objFile.FileName objOption.Value = objFile.Name If C1 Mod 2 Then objOption.style.backgroundcolor = "#C9C9C9" objOption.style.color = "#3A3A3A" Else objOption.style.backgroundcolor = "#E9E9E9" objOption.style.color = "#235779" End If TxtFile.Add(objOption) End If Next C1=0 For Each objFolder in colSubfolders GetSubFolders strFolderName Next End If Exit Function End Function '-> Sub Folders Sub GetSubFolders(strFolderName) On Error Resume Next Set colSubfolders2 = Wmi.ExecQuery _ ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _ & "Where AssocClass = Win32_Subdirectory " _ & "ResultRole = PartComponent") For Each objFolder2 in colSubfolders2 strFolderName = objFolder2.Name Set colFiles = Wmi.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='" & strFolderName & "'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile in colFiles If Right(Instr(objFile.Name,".txt"),4) Or Right(Instr(objFile.Name,".cmd"),4) Then C1 = C1 + 1 Set objOption = Document.createElement("OPTION") objOption.Text = objFile.FileName objOption.Value = objFile.Name If C1 Mod 2 Then objOption.style.backgroundcolor = "#C9C9C9" objOption.style.color = "#3A3A3A" Else objOption.style.backgroundcolor = "#E9E9E9" objOption.style.color = "#235779" End If TxtFile.Add(objOption) End If Next GetSubFolders strFolderName Next End Sub '-> All Cmd And Text From Local Computer Function ListAll() UpdateList() Set ColFiles = Wmi.ExecQuery("Select * from CIM_DataFile Where Extension = 'txt' Or Extension = 'cmd'") For Each objFile In colFiles C1 = C1 + 1 Set objOption = Document.createElement("OPTION") objOption.Text = objFile.FileName objOption.Value = objFile.Name If C1 Mod 2 Then objOption.style.backgroundcolor = "#C9C9C9" objOption.style.color = "#3A3A3A" Else objOption.style.backgroundcolor = "#E9E9E9" objOption.style.color = "#235779" End If TxtFile.Add(objOption) Next Exit Function End Function '-> Select From List Function ReadFile() On Error Resume Next Set objFile = Fso.OpenTextFile(TxtFile.Value) strContents = objFile.ReadAll objFile.Close Contents.Value = strContents Path.innerHTML=TxtFile.Value Exit Function End Function Function UpdateList() For Each ObjList In TxtFile.Options :ObjList.RemoveNode :Next Exit Function End Function </SCRIPT> <BODY>Gunsmokingman List And Show Txt and Cmd Files <TABLE Border='1' Align='Center'> <!-- --> <TD> <BUTTON OnClick='DirectoryList()'>Single Directory</BUTTON> </TD> <!-- --> <TD> <BUTTON OnClick='FolderSubFolderListAll()'>Folder And Sub Folder</BUTTON> </TD> <!-- --> <TD> <BUTTON OnClick='ListAll()'>Local Computer</BUTTON> </TD> </TABLE> <TABLE width="100%" Border='1'> <TR> <TD width="25%" valign="top"> <select size="35" name="TxtFile" onChange="ReadFile()" style="Width:100%;Font-Family:Arial,Tahoma,Comic Sans MS,Segoe Ui;Font-Size:7.95pt;Font-Weight:Bold;"> </select> </TD> <TD width="75%" valign="top"> <textarea name="Contents" rows="35" cols="100" Style='Width:100%;Font-Family:Arial,Tahoma,Comic Sans MS,Segoe Ui;Font-Size:7.95pt;' ReadOnly> </textarea> </TD> </TR> </TABLE> <SPAN ID='Path'> </SPAN> <DIV Style='Color:#Ad1111;Margin-Top:5;'> This may appear to not be responding, while the query is active! </DIV> </BODY>I gotta say, I really do like this idea; thanks again GSM!