Plamdi

This is actually not a bug at all. When you install Windows XP it creates the "Documents And Settings" folder, and then populates it with the name of your predefined accounts, for instance Administrator. Sometimes, when doing a reinstall for instance, it's possible for the isntaller to find that the directory (ie the user profile) already exisits. In these cases it appends a file extension of the computer name to the account name. So, if your computer's name is "XP-PRO" and there's already an Administrator folder in "Documents and Settings", then instead it will create a folder named "Administrator.XP-PRO", rather than overwriting your old settings.

Have you tried using a filter like http://www.radiance.m6.net/? I just installed it today (my brother has been downloading porn since he was 12, he's 14 now... I kind of forgot about lately, so I installed another filter). My personal recommendations after isntalling the program: 1. Use the "No Tray Icon plugin", and then move the file naointerface.exe to your desktop (you'll find it in %WINDIR%\SYSTEM32). This is the file you need to run to make changes or uninstall the program. 2. Move the files Readme.htm and the GIF image to the desktop. 3. Add the three files you put on the desktop to a password-protected archive (eg Naomi.7z). Then delete the three files and empty the recycle bin. You can now hide the archive where-ever you like. 4. Change this key: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] Shell="Explorer.exe \"%PROGRAMFILES%\\rnamfler\\NAOMF.EXE\"" Alternativly you can use HKEY_CURRENT_USER if you're just doing this to his account. This will prevent the auto-run being removed from the registry RUN.

Liton drives do not need the firmware flashed, there are cracks which do not touch the firmware to remove hardware region coding. I suggest downloading DVD43, it will unlock most DVDs.

Here is a compiled version written using AutoIt... http://plamdi.com/files/reg_jump.exe

If you've ever used the Sysinternals REGJUMP you will have noticed it lanuches RegEdit - and THEN navigates to the correct Key. I have a question? What stops them from using the Microsoft allocated Value to store the start Key in? Answer: Nothing. Save as REGJUMP.CMD: @ECHO OFF IF NOT "%1"=="" GOTO NEXT ECHO Launches Regedit to specified key. ECHO. ECHO REGJUMP key ECHO. ECHO key Specifies the registry key to go to. ECHO. ECHO Example: ECHO REGJUMP HKCR\pngfile\DefaultIcon ECHO. ECHO Known limitations: Key name cannot contain certain characters. ECHO REGJUMP is Freeware, (c) 2006 Plamdi.com. GOTO END :NEXT SETLOCAL ENABLEEXTENSIONS SET K=%* IF NOT %1==%~1 SET K=%~1 IF %K:~0,4%==HKLM SET K=HKEY_LOCAL_MACHINE%K:~4% IF %K:~0,4%==HKCU SET K=HKEY_CURRENT_USER%K:~4% IF %K:~0,4%==HKCR SET K=HKEY_CLASSES_ROOT%K:~4% IF %K:~0,4%==HKCC SET K=HKEY_CURRENT_CONFIG%K:~4% IF %K:~0,3%==HKU SET K=HKEY_USERS%K:~3% REG QUERY "%K%">NUL IF ERRORLEVEL 1 GOTO END REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /V "LastKey" /D "My Computer\%K%" /F "%SYSTEMROOT%\REGEDIT.EXE" :END SETLOCAL DISABLEEXTENSIONSAnd yeah, I'll probably make a better compiled .EXE version written in C++ ... but until then this should do. Launches Regedit AT the required key. Another interesting fact is that my version does not launch RegEdit if the Key does not exisit.

I did a fresh install and it went straight into classic mode... I didn't use nlite - I did use RyanVM's update packs (post-sp2 hotfixes/WMP10). I prefer classic mode anyway, but I thought this info may help you.

I just become a member here....I just wanted to say thank you thank you! the above instructions "fixed" my problem ~yorky~ I would like to confirm this, RunOnce* is NOT a value under HKLM - it only exisits under HKCU. My system doesn't have a problem, but for those who do: Windows Registry Editor Version 5.00 [HKCU\Software\Microsoft\Internet Explorer\Main] "RunOnceComplete"=dword:00000001 "RunOnceHasShown"=dword:0000000 Save as IE7FIX.REG and run it. For those who manually open Regedit and are not familiar with it - KEYS are FOLDERS, and the things inside the Keys are the VALUES (whereas normally files are inside values). Each value contains DATA. For instance: "HKCU\Software\Microsoft\Internet Explorer\Main" is a KEY. "RunOnceComplete" is a VALUE. "dword:00000001" is DATA. You could also do this with a batch (.CMD or .BAT) file: REG ADD "HKCU\Software\Microsoft\Internet Explorer\Main" /V "RunOnceComplete" /T REG_DWORD /D 1 /F REG ADD "HKCU\Software\Microsoft\Internet Explorer\Main" /V "RunOnceHasShown" /T REG_DWORD /D 1 /F

cmdow /run /hid reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx" /v "TITLE" /t REG_SZ /d "Installing Programs" /fThere is no reason to use cmdow for this, instead use: reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx" /v "TITLE" /t REG_SZ /d>nul

Do you know if it needs to be activated before it can pass WGA?

Nice contribution.

I've tried FirmTools - have you tried my VBS alternative? It does not display any prompts when converting (except if the file exists) - and it works when selecting multipul images to convert. You can also customize the supported formats manually, if so inclined. http://www.msfn.org/board/index.php?showtopic=72295

Don't you hate it when you install your compression software - 7-zip, winzip, winrar ... whatever you flavour is and then they change all the icons to THEIR icon for ALL archive formats? Here's a simple solution (first uninstall zip folders): @ECHO OFF REG ADD HKCR\.iso /VE /D "isofile" /F REG ADD HKCR\.iso /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\isofile /VE /D "ISO Archive" /F REG ADD HKCR\isofile\DefaultIcon /VE /D "%SystemRoot%\System32\shell32.dll,188" /F REG ADD HKCR\.zip /VE /D "zipfile" /F REG ADD HKCR\.zip /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\zipfile /VE /D "ZIP Archive" /F REG ADD HKCR\zipfile\DefaultIcon /VE /D "%SystemRoot%\System32\zip.ico" /F REG ADD HKCR\.tar /VE /D "tarfile" /F REG ADD HKCR\.tar /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\tarfile /VE /D "TAR Archive" /F REG ADD HKCR\tarfile\DefaultIcon /VE /D "%SystemRoot%\System32\zip.ico" /F REG ADD HKCR\.gz /VE /D "gzipfile" /F REG ADD HKCR\.tgz /VE /D "gzipfile" /F REG ADD HKCR\.gz /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\.tgz /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\gzipfile /VE /D "gzip archive" /F REG ADD HKCR\gzipfile\DefaultIcon /VE /D "%SystemRoot%\System32\zip.ico" /F REG ADD HKCR\.bz2 /VE /D "bzipfile" /F REG ADD HKCR\.tbz2 /VE /D "bzipfile" /F REG ADD HKCR\.tb2 /VE /D "bzipfile" /F REG ADD HKCR\.bz2 /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\.tbz2 /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\.tb2 /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\bzipfile /VE /D "bzip2 compressed file" /F REG ADD HKCR\bzipfile\DefaultIcon /VE /D "%SystemRoot%\System32\zip.ico" /F REG ADD HKCR\.7z /VE /D "7zipfile" /F REG ADD HKCR\.7z /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\7zipfile /VE /D "7-Zip Archive" /F REG ADD HKCR\7zipfile\DefaultIcon /VE /D "%SystemRoot%\System32\7z.ico" /F REG ADD HKCR\.rar /VE /D "rarfile" /F REG ADD HKCR\.rar /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\rarfile /VE /D "RAR Archive" /F REG ADD HKCR\rarfile\DefaultIcon /VE /D "%SystemRoot%\System32\rar.ico" /F REG ADD HKCR\.lha /VE /D "lhafile" /F REG ADD HKCR\.lha /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\.lhz /VE /D "lhafile" /F REG ADD HKCR\.lhz /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\lhafile /VE /D "LHA Archive" /F REG ADD HKCR\lhafile\DefaultIcon /VE /D "%SystemRoot%\System32\zip.ico" /F REG ADD HKCR\.ace /VE /D "acefile" /F REG ADD HKCR\.ace /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\acefile /VE /D "ACE Archive" /F REG ADD HKCR\acefile\DefaultIcon /VE /D "%SystemRoot%\System32\zip.ico" /F REG ADD HKCR\.arj /VE /D "arjfile" /F REG ADD HKCR\.arj /V "Content Type" /D "application/x-zip-compressed" /F REG ADD HKCR\arjfile /VE /D "ARJ Archive" /F REG ADD HKCR\arjfile\DefaultIcon /VE /D "%SystemRoot%\System32\zip.ico" /FThis is a WIP. You should run this file BEFORE installing your archiving software, it is included as a batch file so you can put it directly into another batch file. When you install your software - 7zip, winzip, winrar, whatever, you should allow it to add shell extensions -but not to associate itself with the file. Please let me know of other formats you would like to see included and also what other icons I could include/use. At the moment I've set most archives to the "Winzip icon" - I would be interested if you have other alternatives. I would eventually like to create a DLL file with all the icons in it so that you only have to copy one file into System32 ... if anyone knows of the best way to do this please LMK. Cabinent File is not included because it already has its own icon set (and disabling zip folders does not disable .cab folders - does anyone know how to do this?) For now you can download the three required icons from my site directly: http://plamdi.com/files/7z.ico http://plamdi.com/files/rar.ico http://plamdi.com/files/zip.ico

FOR %%i IN (D E F G H I J K L M N O P Q R S T U V W X Y Z) DO IF EXIST %%i:\CD1.txt SET CDROM=%%i:Why is this even suggested here? I love batch files, I've loved .BAT files since I was a kid... I also love working with VBS files too. Have you ever heard of Keep it Simple? Why do they suggest if using: SET CDROM=%~d0That you put in SetLocal enableextensions? Command extensions are enabled by default, and you need to edit the registry to disable them - so during an unattended installation it isn't possible that they've been disabled yet! Nevertheless, it is a good idea to use it because then all environment variables you set will be cancelled once the file has completed - there is actually very little difference in the two methods - in the end result that is - the "CDROM" is an environment variable set - but when you use Setlocal you can cancel the variable with Endlocal, so it does not carry over into other processes. It is a terrible idea to use the file searching method when there is a better method. Batch files take arguments, like: RunOnceEx.cmd Arg1 "Argument 2" Argument3And you can call the arguments using %1, %2, %3, etc... you can also call %0 which is the argument of the filename itself. Calling %0 by itself will simply return the string as it was typed to call the file, for instance the string could have been RunOnceEx or it could have been RunOnceEx.cmd or it may have been $OEM$\RunOnceEx.cmd ... or it could have even had the drive letter in it with the full path: X:\$OEM$\RunOnceEx.cmd. But it doesn't matter because the actual variable as understood by cmd.exe is the file's identity. So no matter how it was typed you can get the full name of the file, the full path of the file - short or long, or the drive letter of the file. In fact, %~f0 will give you the full path to the file, including drive letter, folder(s) and file name (including extension). That's all very interesting but how is it useful? Imagine you've created a batch file for several purposes, defined by an argument... you could do: REG ADD %K%\001 /VE /D "Some function" /f REG ADD %K%\001 /V 1 /D "\"%~f0\" Argument" /fAnd you could save having to use more batch files. Interestingly there is another very useful combination that goes %~dp0That gives you the path to the file. To give you a comparison, this is how I do the same thing in vb script: p=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))It is a very useful combination, for instance you could write "%~dp0PROGRAMNAME.EXE" in your batch file, and as long as your .CMD and .EXE are in the same directory the exe will be called by the cmd file. No need to manually write out the path. Personally I prefer to work with this in my RunOnceEx.cmd: SET P=%~d0\PROGRAMS\ SET K=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceExIf you still use FOR %%i IN (D E F G H I J K L M N O P Q R S T U V W X Y Z) DO IF EXIST %%i:\CD1.txt SET CDROM=%%i:Then please, delete it and replace it with SET CDROM=%~d0 which does not search for anything - it just goes and gets it.

No it isn't, the only way to do that is by compleatly rewriting the installation package.

Done. The Google toolbar's uninstaller actually already has the silent switch in it, but it doesn't hurt to add it again, just to be sure

Another first, from yours truly. I prefer to use the original installation files using official switches and then to move the icons and make other changes manually. Some programs, such as CCleaner install the Yahoo Toolbar when run silently. You can use these scripts to silently remove the toolbars. 7 lines of script (awwe ), errorlevel returned when used with cscript (of course, you can use either CSCRIPT or WSCRIPT with this one). Do you need any other silent un-installations? Just LMK! Available combined into one file, or as seperate files: ' (c) 2006 Plamdi.com. This file silently uninstalls the Google and Yahoo! Toolbars. Option Explicit:On Error Resume Next Dim WshShell,a,i:i=0:Set WshShell=WScript.CreateObject("WScript.Shell") a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2318C2B1-4965-11d4-9B18-009027A5CD4F}\UninstallString") If a<>"" Then WshShell.Run(a&" /S"),1,True:i=i+1 a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Yahoo! Companion\UninstallString") If a<>"" Then WshShell.Run(""""&a&""" /S"),1,True:i=i+1 WshShell=Nothing:Wscript.Quit(i)Save as REMTOOLB.VBS ' (c) 2006 Plamdi.com. This file silently uninstalls the Yahoo! Toolbar. Option Explicit:On Error Resume Next Dim WshShell,a,i:i=0:Set WshShell=WScript.CreateObject("WScript.Shell") a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Yahoo! Companion\UninstallString") If a<>"" Then WshShell.Run(""""&a&""" /S"),1,True:i=1 WshShell=Nothing:Wscript.Quit(i)Save as REMYAHOO.VBS ' (c) 2006 Plamdi.com. This file silently uninstalls the Google Toolbar. Option Explicit:On Error Resume Next Dim WshShell,a,i:i=0:Set WshShell=WScript.CreateObject("WScript.Shell") a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2318C2B1-4965-11d4-9B18-009027A5CD4F}\UninstallString") If a<>"" Then WshShell.Run(a&" /S"),1,True:i=1 WshShell=Nothing:Wscript.Quit(i)Save as REMGOOGLE.VBS And here's a tip - if you plan on running this file from the HDD rather than the CD/DVD, you could add these lines: Dim fso:Set fso=CreateObject("Scripting.FileSystemObject") fso.DeleteFile(WScript.ScriptFullName)and script would automatically self-destruct. You would add the lines anywhere after the first line (of code) and before the last line. * Slight modification, the script now waits for the uninstaller to complete before terminating - which is probably better if you're going to use cscript as the uninstaller will finish before processing the next command.

Here is a more universal version: @Echo off cls deltree /y "%SystemRoot%\temp\*.*" deltree /y "%SystemRoot%\WUTemp\*.*" deltree /y "%SystemRoot%\system32\config\systemprofile\cookies\*.*" Rem: No need to duplicate the following section for each registered User deltree /y "%USERPROFILE%\Cookies\*.*" deltree /y "%USERPROFILE%\History\*.*" deltree /y "%USERPROFILE%\recent\*.*" deltree /y "%USERPROFILE%\Local Settings\cookies\*.*" deltree /y "%USERPROFILE%\userdata\*.*" deltree /y "%USERPROFILE%\Local Settings\History" deltree /y "%USERPROFILE%\Local Settings\Temp\*.*" deltree /y "%USERPROFILE%\Local Settings\History\Temporary Internet Files\Content.IE5\*.*" deltree /y "%USERPROFILE%\Local Settings\Temporary Internet Files\Content.IE5\*.*" deltree /y "C:\Documents and Settings\NetworkService\Cookies\*.*" deltree /y "C:\Documents and Settings\NetworkService\Local Settings\History\History.IE5\*.*" deltree /y "C:\Documents and Settings\NetworkService\Local Settings\Temp\*.*" deltree /y "C:\Documents and Settings\NetworkService\Local Settings\Temporary Internet Files\Content.IE5\*.*" deltree /y "C:\Documents and Settings\LocalService\Local Settings\History\History.IE5\*.*" deltree /y "C:\Documents and Settings\LocalService\Local Settings\Temporary Internet Files\Content.IE5\*.*" deltree /y "C:\Documents and Settings\LocalService\Local Settings\Temp\*.*" deltree /y "C:\Documents and Settings\LocalService\Cookies\*.*" deltree /y "C:\Documents and Settings\Administrator\Local Settings\Temp\*.*" deltree /y "C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\*.*" deltree /y "C:\Documents and Settings\Administrator\Local Settings\History\*.*" deltree /y "C:\Documents and Settings\Administrator\Cookies\*.*" deltree /y "%TEMP%\*.*" deltree /y "%TEMP%orary Internet Files\*.*" deltree /y "%USERPROFILE%\Local Settings\History\*.*" deltree /y "%USERPROFILE%\Cookies\*.*" deltree /y "C:\$VAULT$.AVG\*.*" deltree /y "C:\Regclean\*.reg" deltree /y "%SystemRoot%\prefetch\*.*" deltree /y "C:\Program Files\CallWave\Calls\*.*" deltree /y "%USERPROFILE%\Local Settings\Application Data\Mozilla\Firefox\Profiles\DEFAULT.HKJ\Cache\*.*" deltree /y "%SystemRoot%\system32\WgaTray.exe deltree /y "%SystemRoot%\system32\dllcache\WgaTray.exe deltree /y "%SystemRoot%\system32\wgalogon.dll deltree /y "%SystemRoot%\system32\dllcache\wgalogon.dll

Yes there's a way and it would be quite easy. You would need Shortcut.exe from http://www.optimumx.com/download/. You would then need to create a script to use it, here's a very cheap and nasty vb script: Option Explicit On Error Resume Next Dim objDialog,WshShell Set WshShell=WScript.CreateObject("WScript.Shell") Set objDialog=CreateObject("UserAccounts.CommonDialog") objDialog.Filter="Icon Files|*.ico; *.dll; *.exe|All Files|*.*" objDialog.FilterIndex=1 'objDialog.InitialDir="C:\" w=objDialog.ShowOpen If w<>0 Then WshShell.Run("cmd /c shortcut /F:"""&Wscript.Arguments(0)&""" /A:E /I:"""&objDialog.FileName&""""),0,True Wscript.Quit(1) Else Wscript.Quit(0) End IfIt's untestted, so don't flame me if it doesn't work. If you saved it as ICONEDIT.VBS you would call it like: WSCRIPT ICONEDIT.VBS FILENAME.EXT. It's very primitive and limited, it does not allow selecting the icon-index (for instance, the 3rd or 4th icon in an EXE or DLL file). You would need to call the specific dialogue MS uses for their icons

Remember my Image-Conversion Shell Extension? No? Well here are two more shell extensions written by yours truly. Both are fully uninstallable from "add/Remove Programs". Enjoy them! Name: Directory Usage Reuirements: Windows NT (2000,XP,etc), and a commandline tool from Sysinternals called "Du". Description: Adds a handy context-menu item to display directory (folder) usage. Information loads in Notepad, and includes the number of files, directories and the size it occupies in bytes. Code (save as DIRINFO.VBS): ' (c) 2006 plamdi.com, this file must not be sold, you may distribute it ' freely so long as it remains unmodified with all internal documentation. ' Use this file with Du from Sysinternals. Copy Du.exe to %WINDIR%\SYSTEM32, ' and then run this file to install the shell extension. You may now right click any ' directory (folder) to view it's disk usage. Option Explicit:On Error Resume Next Dim WshShell,fso,f,o,p,t,v,w,tmp:w=0 Set WshShell=WScript.CreateObject("WScript.Shell") Set fso=CreateObject("Scripting.FileSystemObject") p=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName)) If Wscript.Arguments.Count=1 Then If Wscript.Arguments(0)="/REM" Then v=MsgBox("Are you sure you want to remove the directory-information shell extension?",292,"Remove shell extension confirmation") If v=7 Then WshShell=Nothing:Wscript.Quit(1) w=7 ElseIf UCase(Wscript.Arguments(0))="/S" Or UCase(Wscript.Arguments(0))="/SILENT" Then w=6 Else tmp=fso.GetSpecialFolder(2)&"\"&fso.GetTempName WshShell.Run("cmd /c du -q """&Wscript.Arguments(0)&""">"""&tmp&""""),0,True Set f=fso.OpenTextFile(tmp,1) o="Directory Information For:"&vbCrLf&Wscript.Arguments(0)&vbCrLf&vbCrLf&f.ReadAll f.Close fso.DeleteFile(tmp) Set f=fso.CreateTextFile(tmp, True):f.Write o:f.Close WshShell.Run("Notepad """&tmp&""""),1,True fso.DeleteFile(tmp) Set WshShell=Nothing Wscript.Quit(1) End If ElseIf Wscript.Arguments.Count<>0 Then ErrHndlr() End If If fso.fileexists(p&"du.exe") Then If UCase(WScript.ScriptFullName)<>UCase(p&"DIRINFO.VBS") Then fso.CopyFile WScript.ScriptFullName,p&"dirinfo.vbs" End If Else If fso.fileexists(WshShell.Environment("PROCESS")("SystemRoot")&"\System32\du.exe") Then p=WshShell.Environment("PROCESS")("SystemRoot")&"\System32\" fso.CopyFile WScript.ScriptFullName,p&"dirinfo.vbs" Else If w=6 Then WshShell=Nothing:Wscript.Quit(0) ElseIf w<>7 Then v=MsgBox("Du not found. Would you like to remove the shell extension?",292,"Remove shell extension") If v=7 Then WshShell=Nothing:Wscript.Quit(1) End If End If End If If w=0 Then w=MsgBox("Do you want the directory-information shell extension?",292,"Enable/Disable shell extension") t="HKCR\Folder\shell\show_dir_usage\" If w=6 Then WshShell.RegWrite t,"Show Directory Usage" WshShell.RegWrite t&"command\","WScript.exe """&p&"dirinfo.vbs"" ""%d""" Else WshShell.RegDelete t&"command\":WshShell.RegDelete t End If t="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\dirinfo\" If w=6 Then WshShell.RegWrite t,"" WshShell.RegWrite t&"DisplayName","Directory Information Shell Extension (Removal)" WshShell.RegWrite t&"UninstallString","WScript.exe """&p&"dirinfo.vbs"" /REM" WshShell.RegWrite t&"NoModify",1,"REG_DWORD" WshShell.RegWrite t&"NoRepair",1,"REG_DWORD" Else WshShell.RegDelete t&"NoModify":WshShell.RegDelete t&"NoRepair" WshShell.RegDelete t&"UninstallString":WshShell.RegDelete t&"DisplayName":WshShell.RegDelete t fso.DeleteFile(p&"dirinfo.vbs") End If Set WshShell=Nothing Wscript.Quit(1) sub ErrHndlr() MsgBox "Invalid parameters were given. The only correct user command line is /s or /silent.",16,"dirinfo.vbs error" Set WshShell=Nothing Wscript.Quit(0) End Sub Name: Quick Find Reuirements: Windows NT (2000,XP,etc) Description: Adds a cheap-and-nasty search feature to all folders, so you can right click and select "Quick Find" - this will search just that directory, and it's subdirectories. Code (save as QFIND.VBS): ' (c) 2006 plamdi.com, this file must not be sold, you may distribute it ' freely so long as it remains unmodified with all internal documentation. ' Wildcards not supported, just type in the search as a logical filename. ' Example: File.Ext ' You do not need to specify file extension, it is optional. Option Explicit:On Error Resume Next Dim WshShell,fso,f,o,p,t,v,w,tmp:w=0 Set WshShell=WScript.CreateObject("WScript.Shell") Set fso=CreateObject("Scripting.FileSystemObject") p=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName)) If Wscript.Arguments.Count=1 Then If Wscript.Arguments(0)="/REM" Then v=MsgBox("Are you sure you want to remove the quick find shell extension?",292,"Remove shell extension confirmation") If v=7 Then WshShell=Nothing:Wscript.Quit(1) w=7 ElseIf UCase(Wscript.Arguments(0))="/S" Or UCase(Wscript.Arguments(0))="/SILENT" Then w=6 Else w=LCase(InputBox("Searching Folder "&Wscript.Arguments(0)&"."&vbCrLf&vbCrLf&"Enter a partial filename to search for below, do not use wildcards.","Quick Find")) If w="" Then Wscript.Quit(0) v=InStrRev(w,".") If v<>1 Then If v=0 Then t="|find """&w&"""" Else t="|find """&Left(w,v-1)&"""" End If Else t="" End If If v<>0 And v<>Len(w) Then v="|find """&Right(w,Len(w)-v+1)&"""" Else v="" End If tmp=fso.GetSpecialFolder(2)&"\"&fso.GetTempName WshShell.Run("cmd /c dir/a/b/s/oe/l """&Wscript.Arguments(0)&""""&t&v&">"""&tmp&""""),0,True Set f=fso.GetFile(tmp) If f.Size<>0 Then WshShell.Run("Notepad """&tmp&""""),1,True Else WScript.Echo "File Not Found." End If fso.DeleteFile(tmp) Set f=Nothing Set WshShell=Nothing Wscript.Quit(1) End If ElseIf Wscript.Arguments.Count<>0 Then ErrHndlr() End If p=WshShell.Environment("PROCESS")("SystemRoot")&"\System32\" fso.CopyFile WScript.ScriptFullName,p&"qfind.vbs" If w=0 Then w=MsgBox("Do you want the quick find shell extension?",292,"Enable/Disable shell extension") t="HKCR\Folder\shell\qfind\" If w=6 Then WshShell.RegWrite t,"Quick Find" WshShell.RegWrite t&"command\","WScript.exe """&p&"qfind.vbs"" ""%d""" Else WshShell.RegDelete t&"command\":WshShell.RegDelete t End If t="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\qfind\" If w=6 Then WshShell.RegWrite t,"" WshShell.RegWrite t&"DisplayName","Quick Find Shell Extension (Removal)" WshShell.RegWrite t&"UninstallString","WScript.exe """&p&"qfind.vbs"" /REM" WshShell.RegWrite t&"NoModify",1,"REG_DWORD" WshShell.RegWrite t&"NoRepair",1,"REG_DWORD" Else WshShell.RegDelete t&"NoModify":WshShell.RegDelete t&"NoRepair" WshShell.RegDelete t&"UninstallString":WshShell.RegDelete t&"DisplayName":WshShell.RegDelete t fso.DeleteFile(p&"qfind.vbs") End If Set WshShell=Nothing Wscript.Quit(1) sub ErrHndlr() MsgBox "Invalid parameters were given. The only correct user command line is /s or /silent.",16,"qfind.vbs error" Set WshShell=Nothing Wscript.Quit(0) End Sub

'========================================================================== ' NAME: GetCDKeyandSerialNumber.vbs ' ' AUTHOR: Mark D. MacLachlan , The Spider's Parlor ' URL: http://www.thespidersparlor.com ' DATE : 3/16/2006 ' (C) 2006, All Rights Reserved ' ' COMMENT: ' '========================================================================== Set WshShell = CreateObject("wscript.Shell") Set WshNetwork = WScript.CreateObject("WScript.Network") Set env = WshShell.environment("Process") strComputer = env.Item("Computername") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Const HKEY_LOCAL_MACHINE = &H80000002 Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ ".\root\default:StdRegProv") strDigitalProductId="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId" strXPKey=GetKey(WshShell.RegRead(strDigitalProductId)) Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems report = report & "Original CD Key:"& strXPKey & vbCrLf report = report & "SerialNumber: " & objItem.SerialNumber & vbCrLf Next MsgBox report Function GetKey(rpk) Const rpkOffset=52:i=28 szPossibleChars="BCDFGHJKMPQRTVWXY2346789" Do 'Rep1 dwAccumulator=0 : j=14 Do dwAccumulator=dwAccumulator*256 dwAccumulator=rpk(j+rpkOffset)+dwAccumulator rpk(j+rpkOffset)=(dwAccumulator\24) and 255 dwAccumulator=dwAccumulator Mod 24 j=j-1 Loop While j>=0 i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey if (((29-i) Mod 6)=0) and (i<>-1) then i=i-1 : szProductKey="-"&szProductKey End If Loop While i>=0 'Goto Rep1 GetKey=szProductKey End Function ' ' WMI Script - ChangeVLKey.vbs ' ' This script changes the product key on the computer ' '*************************************************************************** ON ERROR RESUME NEXT if Wscript.arguments.count<1 then Wscript.echo "Script can't run without VolumeProductKey argument" Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX" Wscript.quit end if Dim VOL_PROD_KEY VOL_PROD_KEY = Wscript.arguments.Item(0) VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") result = Obj.SetProductKey (VOL_PROD_KEY) if err <> 0 then WScript.Echo Err.Description, "0x" & Hex(Err.Number) Err.Clear end if NextI think this is by the same author, apologies script has been modded, I've restored it to the best of my ability to be the original version.

Yes it does, yet you said: ...No they're not. I've activated my Windows installation now, by manually calling MS. As I said I didn't have much choice in the matter, and I'm not prepared to waste more time then it's worth.But here, let me prove your point, the system is a: Acer Veriton 5600G That is what is printed on the case, that is what is displayed when using the VBScript found here: http://www.msfn.org/board/index.php?showtopic=71016 So here's your chance to back-up your rather unintelligent remark that the OEMBIOS files for my machine are easy to obtain - as you're obviously a PC technician, and "know what you're talking about" you won't mind finding the OEMBIOS files and posting them back here. If you can't do that, I think it proves your advice was simply poor advice to begin with.

It's ACER, not DELL. And it's ex-lease, the company who sold it aren't stupid enough to let their CD Keys get leaked. I may try using a master key, but if it's more work then simply calling MS it begs the question - why?

An alternative to your alternative: http://hotfix.xable.net/index.php?dir=English/Windows%20XP/ ^^ that's a LOT of updates!

My point has been explained by The Apache above, I'm not as familiar with the WGA crack myself, though. But how about I remind you that illegal things aren't always the best choice. An unregistered vehicle is illegal to drive for good reason you know, and to drive a registered vehicle you must have a valid licence. Besides, read the forum rules before claiming that WGA crack's and illegal copies of WinXP are the way.

I wouldn't trust Wikipedia for legal advice. On the matter of EULA's being contacts - for this to be possible you would have to have read and understood it first - if you just check the box and go ahead then you can't be held by it, if it is treated as a contract as you haven't read it. It's like the sign on a shop that says "All bags this size and over must be checked by our staff" - police don't even have that right, so shops certainly don't. The sign doesn't represent a legal obligation, and if you don't want them to look in your personal belongings the worst they can do is refuse to serve you, and inform you that you're not welcome to return.