Tips, Tricks & Tweaks - page 1

Last Updated: November 17, 2003.

CyberLink PowerDVD

Tweak.VBS removes unnecessary registry information that
is created after using the DVD player "CyberLink PowerDVD"

Created and tested in WinXP by Benny Pedersen, (September 2003)
Press Ctrl+A within the below text box, Copy, then Paste...
' tweak.vbs const forReading = 1 dim wsh: set wsh = createObject("wScript.shell") dim fso: set fso = createObject("scripting.fileSystemObject") dim byteRemoved, tempFolder, exportFile, key byteRemoved= 0 tempFolder = fso.getSpecialFolder(2) exportFile = tempFolder & ".\PowerDVD.tmp" key = "HKEY_USERS\S-1-5-21-995690780-3563514748-4210259494-1004" &_ "\Software\CyberLink\PowerDVD\DVD_ResumeState" wsh.run("regedit /e " & exportFile & " " & key),, 1 if fso.fileExists(exportFile) then dim rFile, sFile, preKey set rFile = fso.openTextFile(exportFile, forReading) sFile = tempFolder & ".\s.tmp" preKey = left(key, inStrRev(key,"\")-1) wsh.run("regedit /e " & sFile & " " & preKey),, 1 byteRemoved = fso.getFile(sFile).size Remove wsh.run("regedit /e " & sFile & " " & preKey),, 1 byteRemoved = byteRemoved-fso.getFile(sFile).size rFile.close set rFile = nothing fso.deleteFile exportFile fso.deleteFile sFile end if set wsh = nothing set fso = nothing msgBox "Removed " & byteRemoved & " bytes.   ", 64, ":-)" sub Remove() dim strng, i, subKey do: on error resume next: strng = rFile.readLine if err <> 0 then exit do on error goTo 0 for i = 0 to 13: strng = replace(strng, chr(i), empty): next if key & "\" = mid(strng, 2, 1 + len(key)) then subKey =left(mid(strng, 2), len(strng) -2) & "\" if vbOk=msgBox(subKey, vbOKCancel+vbDefaultButton1, "Remove")_ then wsh.regDelete subKey & "DiscState" wsh.regDelete subKey & "Resume" wsh.regDelete subKey end if end if loop wsh.regDelete key & "\" end sub

Messenger

xp_messenger_remove.vbs

Created by Doug Knox
Press Ctrl+A within the below text box, Copy, then Paste...
'xp_messsenger_remove.vbs - Removes Windows Messenger from Windows XP '© Doug Knox - 3/30/02 'This code may be freely distributed/modified 'Downloaded from www.dougknox.com Option Explicit On Error Resume Next 'Dimension variables Dim WSHShell, MyBox, p1, q1, rcmd Dim jobfunc 'Set the Windows Script Host Shell and assign values to variables Set WSHShell = WScript.CreateObject("WScript.Shell") p1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Hide Messenger" q1 = 2 rcmd = "RunDll32 advpack.dll,LaunchINFSection %windir%\inf\msmsgs.inf,BLC.Remove" 'Create or change the Hide Messenger value WSHShell.RegWrite p1, q1 'Run the uninstall command WshShell.Run(rcmd)

Image Cache

ThumbsXP.VBS find and removes unnecessary files named "Thumbs.db".
A Thumbs.db file is a hidden system file that is used as a cache for your
pictures such as JPG files and other image files.

Press Ctrl+A within the below text box, Copy, then Paste...
' ThumbsXP.VBS by Benny Pedersen, (September 2003). ' Removes "Thumbs.db" file(s) in Windows XP. ' Note: Subfolder(s) maybe included: See line numb 22: RECURSE = vbYes ' Tips: To search the current location on Drive C, when prompted, then ' input C: (a drive letter followed by a colon (without a Backslash)). ' const quot="""" dim fso: set fso = createObject("scripting.fileSystemObject") dim byteRemoved, spec, fileList, numbOfFiles, i, xFile byteRemoved = 0 on error resume next spec = fso.getSpecialFolder(2) spec = left(spec, inStrRev(spec,"\",inStrRev(spec,"\",len(spec)-1)-1)) spec = fso.getFolder(spec) if err<>0 then spec = fso.getSpecialFolder(2) spec = inputBox("Input C:\ for the entire Drive C, or another fold" &_ "erName for searching ""Thumbs.db"":", "Path ?", spec) err.clear spec = fso.getFolder(spec) if err = 0 then on error goTo 0 ' _____ fileList=getFileList(spec,(6+ RECURSE = vbYes ),empty) fileList=split(fileList, "*") numbOfFiles=(uBound(fileList) - (uBound(fileList) = -1)) else on error goTo 0 numbOfFiles = 0 : spec = "ERROR detected in your input." end if for i = 1 to numbOfFiles xFile = fileList(i) byteRemoved = byteRemoved + fso.getFile(xFile).size fso.deleteFile(xFile) next msgBox "Search path for ""Thumbs.db"": " & vbCrLf & vbCrLf & vbTab &_ quot & spec & quot & vbCrLf & vbCrLf & "Result:" & vbCrLf & "Found" &_ " and removed:" & vbCrLf & vbCrLf & vbTab & numbOfFiles & " file(s" &_ "), " & byteRemoved & " bytes.", vbInformation, ":-)" set fso = nothing function getFileList(folderSpec, recurse, list) dim f createObject("WScript.Shell").run "%comSpec% /c ::", 7, 0 for each f in fso.getFolder(folderSpec).files if uCase(fso.getFileName(f.path)) = ("THUMBS.DB")_ then list = list & "*" & f.path next if recurse then for each f in fso.getFolder(folderSpec).subfolders getFileList f.path, recurse, list next end if getFileList = list end function

"WinXP.REG":

REGEDIT4
; Prevent programs from being displayed in the
; Most Frequently Used Programs List in Windows XP,
; (the big icons in the dynamic menu to the left of the Start Menu).

; When we put a DVD into the DVD Drive, it starts automatically, so why clutter the Start Menu ?
; PowerDVD. Prevent a link (shortcut).
[HKEY_CLASSES_ROOT\Applications\PowerDVD.exe]
"NoStartPage"=""

; Notepad. We better use another Text Editor, so why clutter ...
[HKEY_CLASSES_ROOT\Applications\notepad.exe]
"NoStartPage"=""

; My knowledge source for creating this REG file was found here:
; http://support.microsoft.com/default.aspx?scid=kb;en-us;284198

NoStrCmpLogical

Sorting files in Windows XP. The old way (Win9X), or the new XP way.
Ex. 4 files: 10.txt, 1.txt, 2.txt and 0.txt

"do4txtXP.BAT" (in one line, 48 (+/- 1) bytes)
You can make the four TXT files by a BATch file
in an empty folder, like this:

FOR %%F IN (10 1 2 0) DO ECHO. File%%F>>%%F.TXT

"sortOrderXP.REG" (Run but remember to restart your computer)
REGEDIT4
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer]
"NoStrCmpLogical"=dword:00000001

; Fix problems with Word Viewer 97 + Word 2000 in Windows XP.
; Solved October 16, 2003 for Ejler N. Andersen by Benny Pedersen.
REGEDIT4
[HKEY_CLASSES_ROOT\Word.Document.8\shell]
@="Open"
@="wordview"

OOPS!

1. The Problem

2. Exercise or Solution

I found a new security problem in Windows XP that could (most likely, already happening) delete your data. Microsoft do not know about it, so they have NOT released a patch that fixes that vulnerability. It is not a malicious hacker that delete your important data but it is a BUG. If you do not know it, then it could easily and often be a problem. You simply may lose important data from your computer. Serious stuff, so I do not hope that Microsoft will ignore such a problem.

"doGif.BAT" creating three GIF files for testing: Press Ctrl+A within the below text box, Copy, then Paste... EE'*01 DoGif.BAT for WinXP by Benny Pedersen, http://2dos.homepage.dk' EE'*02&MODE CON LINES=50&COLOR F1&::' EE'*03&CLS&CD,%TMP%&ECHO:>1.GIF&DEBUG<%0,1.GIF&PAUSE&EXPLORER,.&EXIT:' EE'*05 Asterisk & Number is line numb. (Significant * in above lines)' FF 15A 0 E100 47 49 46 38 39 61 18 0 18 0 80 0 0 23 23 23 FF FF FF 21 F9 4 4 14 E119 FF 0 2C E120 18 0 18 0 0 2 33 8C 8F A9 CB ED 9 22 78 4D 46 AA EC C5 5A E3 D0 E137 59 5F 28 8D E4 F4 1D 5D AA 7A 2C E8 B2 EB 3B CB 71 5A E3 B7 29 D2 E14D 7B 75 EA 31 82 C2 5 B1 4 3C BE 1C 5 0 3B RCX 5C W E2'{*15 Instead of the command "Q", let us make two more GIF files: }' N2.GIF E100 47 49 46 38 39 61 18 0 18 0 80 0 0 1B 1B 1B E110 FF FF FF 21 F9 4 4 14 0 FF 0 2C 0 0 0 0 E120 18 0 18 0 0 2 35 8C 8F A9 CB ED 6 A2 7C 48 E130 DA FB AE 9E 6D 6F 87 41 5A 7 2C 23 A5 84 68 65 E140 AD 6C EB 8A 5C 7C BA F5 7A A3 39 B5 67 AA DE 23 E150 79 82 C3 8F A9 F8 7B 21 23 B1 47 1 0 3B RCX 5E W E3'{*26 Create the last GIF file named "3.GIF": }' N3.GIF RCX 62 E100 47 49 46 38 39 61 18 0 18 0 80 0 0 23 23 23 E110 FF FF FF 21 F9 4 4 14 0 FF 0 2C 0 0 0 0 E120 18 0 18 0 0 2 39 8C 8F A9 7B E0 F 1 6B B1 E130 BA 19 AC 9E 7A 2F 98 58 18 53 8D 5F 64 2A 68 DA E140 49 AC 98 1A 5D 9C CD 34 5 DE 72 AE 97 FD 1A BA E150 A8 80 C1 16 AF 68 74 9D 92 23 26 8D A8 33 15 0 0 3B W EE'{*37 }' Q *** NOTICE: Important that this line, (numb 38) is included. Any text below the command q, or after a line that is prefixed with q would be ignored. For ex.: If you prefixed line numb 15 with q, (as qE2), then only one file would be created, instead of three. 1. Move the 3 created GIF files into an empty folder. 2. Set the "Folder View" to view as big icons. To make sure that a hidden file named "Thumbs.db" is created, close the folder, [Alt+F4]. Reopen the folder. 3. Select the GIF file named "2" (use a single mouse click, or use your arrow key(s)). 4. Drag a window using the mouse, (you may use [Ctrl+A], or whatever, as long only the three GIF files are selected). 5. Press the [F2] key to open the "Rename Dialog Box" for the file named "2". When everything is correctly, "2.GIF" would now be waiting for renaming, and the other files: "1" and "3.GIF" should be displayed in some highlights. All three files appears as big icons. 6. Without renaming the GIF extension, now rename the file named "2" to "img (9)". If everything is correctly, you should now see that all three files are GIF files and that they are renamed "img (9)", "img (10)" and "img (11)". For each [Ctrl+Z] key, a renamed file would be unrenamed, so: Do NOT press the [Ctrl+Z] keys. 7. Select "img (11)", then select all three files. To open the dialog box for renaming "img (11)", press [F2]. Now, rename the "img (11)" image to a GIF file named "2". You should now be able to see the bug. (See a record on video (1.2 MB). I have now recorded a new video (only 290 KB). This time without any "Thumbs.db" files and with the Image Cache disabled and using two of the previous images. Anyhow, an interesting discussion on the Usenet was started. Todd Vargo said: "Apparently, the bug is that the thumbnail cache (thumbs.db) becomes corrupt after certain multiple file rename processes, and the only way to fix it is to regenerate the thumbnail cache by deleting it." -- but maybe that is not the true; just see this small video. A problem is that it is not possible to force the bug (sometimes the bug and other times NOT the bug). As Todd Vago said: "It seems this bug may be a bit inconsistent but I'm not interested in rebooting any more to examine it any further." - I agree. Wee have other things to do than rebooting our computers. Anyhow, anyone who is working with pictures, doing one of the following: post an image, uploading to the Web, or simply handle image files such as renaming, moving, or deleting... should be aware of that problem. If not, then you might lose important data. Conclusion: You could e-mail a wrong picture to someone. If two of the same picture is found, then you could delete one of them. Removing the cache for images, selecting: Functions, Folder Options, and Show... would NOT deleting the cache but you can remove the cache using the VBScript, named "ThumbsXP.VBS" PS. It now seems that this fatal bug is hidden in another hidden cache. Disabled cache or deleted Thumbs.db files do not solve that problem. Benny Pedersen. PS. If you will describe some of the above on your Homepage, or whatever, then you are free to take (this including the two videos).

Hotfix

whatFix.VBS Both the topic and the file is under construction.

Press Ctrl+A within the below text box, Copy, then Paste...
' whatFix.vbs for Windows XP. Under Construction: dim wsh: set wsh = createObject("wScript.shell") dim fso: set fso = createObject("scripting.fileSystemObject") dim tempFile, exportFile, key tempFile = fso.getSpecialFolder(2) & ".\tmpfix.txt" exportFile = fso.getSpecialFolder(2) & ".\hotfix.txt" key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows XP\SP2" wsh.run("regedit /e " & tempFile & " """ & key & """"),, 1 wsh.run("%comspec% /c sort " & tempFile & " /+64 /O " & exportFile),, 1 fso.deleteFile tempFile if fso.fileExists(exportFile) then dim hotfix, numb, i hotfix = getHotfix() numb = uBound(hotfix) for i=1 to numb if vbEmpty = inputBox(string(5,vbCr) & "HotFix:", i & ";" & numb, hotfix(i)) then exit for next fso.deleteFile exportFile end if set wsh = nothing set fso = nothing function getHotfix() dim rFile, regStr, i, endStr set rFile = fso.openTextFile(exportFile, 1) on error resume next do: regStr = rFile.readLine if err <> 0 then exit do for i = 0 to 13: regStr = replace(regStr, chr(i), empty): next endStr = mid(regStr, 63, 9) if right(endStr, 1) = "]" then if left(endStr, 1) = "Q" then getHotfix = getHotfix & "," & mid(endStr, 2, 6) else getHotfix = getHotfix & "," & mid(endStr, 3, 6) end if end if loop rFile.close set rFile = nothing getHotfix = split(getHotfix, ",") end function

New version: (File extension .WSF, not .VBS)
function that(x)that=-(sgn(x)^2):end function
' Allow syntax such as: if not that( ...
Other subs/functions, which could be useful:
jsSort(arr) // Sort an array.
jsFind(x,strng) // Return True or False (as -1 or 0).
arrayOfFile(readFile) ' Put a file into an array.
writeArray(arr,writeFile) ' Write an array to a file.
run(f) ' Useful in a HTA file for running an exe.

<!-- 'hotfix.WSF' is tested on Windows XP home, (Danish version) --> <PACKAGE><JOB ID="hot"> <SCRIPT language="JScript"> function jsSort(arr){return arr.toArray().sort().join('*')} function jsFind(x,strng){return( that (1+strng.search(x)))} </SCRIPT> <SCRIPT language="VBS"> dim wso: set wso = createObject("wScript.shell") dim fso: set fso = createObject("scripting.fileSystemObject") hotFix() sub hotFix() '----------- dim file,a01,i,arr,f,mmyy file=fso.getSpecialFolder(2) & ".\" & fso.getTempName & ".txt" on error resume next if"Windows XP"<>mid(wso.regRead("HKLM\SOFTWARE\Microsoft\Windows" &_ " NT\CurrentVersion\ProductName"),11,10) then msgBox "Script for" &_ " Windows XP ", vbInformation, "Wrong OS": exit sub set f= fso.getFile(fso.getSpecialFolder(1) & ".\Jscript.dll") mmyy = right("0" & month(f.dateCreated),2) &_ right(year(f.dateCreated),2): set f= nothing if mmyy = "0103" then a01 = "814078;" a01 = a01 & wso.regRead("HKLM\SOFTWARE\Microsoft\Windows\Current" &_ "Version\Internet Settings\MinorVersion") a01 = uCase(a01): a01 = replace(a01,"SP","*IE SP") wso.run("%comSpec% /c Jview|find "".3810"">""" & file & """"),2,true if fso.getFile(file).size then a01 = a01 & ";816093" fso.deleteFile file on error goTo 0 for each i in array("Q","KB"): a01 = replace(a01,i,empty): next for each i in array("59 DataAccess","69 Windows Media Player",_ "56 DirectX","63 Windows XP\SP1","63 Windows XP\SP2") wso.run("regedit /e """ & file & """ """ & "HKEY_LOCAL_MACHINE" &_ "\SOFTWARE\Microsoft\Updates\" & mid(i,4) & """"),,true if fso.fileExists(file) then arr = arrayOfFile(file) :_ a01=a01 & getHotfix(arr,left(i,2)): fso.deleteFile file next missingHotfix(a01) if vbOK = msgBox("Do you want to see what hotfix that is insta" &_ "lled? ", vbQuestion +vbOKCancel +vbDefaultButton1, "")then a01 = replace(a01,"*IE SP1",empty) do: a01=replace(a01,";;",";"): loop until a01=replace(a01,";;",";") arr=split(a01, ";") if 1+uBound(arr)and not a01=";" then a01 = jsSort(arr) arr = split(a01, "*") writeArray arr,file wso.run("""" & file & """"),, true fso.deleteFile file else msgBox"Did not found any hotfix that was installed",,"Failure" end if end if '----------- end sub function arrayOfFile(readFile) dim line,ac,_ file: set file=fso.openTextFile(readFile,1): on error resume next do: line = file.readLine if err<>0 then exit do for each ac in array(0,10,13): line=replace(line,chr(ac),empty) next arrayOfFile=arrayOfFile & "*" & line loop : file.close : set file = nothing arrayOfFile = split (arrayOfFile, "*") end function function getHotfix(arr,p): dim i,endStr,a for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))=empty) if "]" = right(mid(arr(i),p,9),1)then endStr = left(right(mid(arr(i),p,9),7),6) if 6=len(endStr)and isNumeric(endStr)then a=a & ";" & endStr end if next: getHotfix= a end function sub writeArray(arr,writeFile) dim i, file: set file = fso.openTextFile(writeFile, 2, true) for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))="") file.writeLine arr(i) next: file.close: set file=nothing end sub sub missingHotfix(installed) : dim IE,DX,MP: on error resume next if "Windows XP Service Pack 1"<>mid(wso.regRead("HKLM\SOFTWARE" &_ "\Microsoft\Windows NT\CurrentVersion\ProductName"),11,10) & " "&_ wso.regRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" &_ "\CSDVersion")then msgBox "You need Windows XP Service Pack 1 ",_ vbCritical, "XP outdated": exit sub IE=wso.regRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version") DX=wso.regRead("HKLM\SOFTWARE\Microsoft\DirectX\Version") MP=wso.regRead("HKLM\SOFTWARE\Microsoft\MediaPlayer\PlayerUpgrade"_ & "\PlayerVersion") on error goTo 0 dim HackerLocal,HackerNotLocal,OtherBadStuff,OtherXP,IE6SP1,OE6SP1,_ a21,MPlayerLess9,MPlayer9,MPlayer9orLess,DirectXLess9b,Recommended dim Recommendable,want,need,wantHotfixNum,missing,msg,wantPackage1 if left(IE,3)="6.0" and jsFind("IE SP1",installed)then IE6SP1= true if replace(mid(DX,3),".","") < "09000902" then DirectXLess9b = true msg = vbLf & "and Windows Media Player ver. " if MP=empty then msg=MP elseIf replace(left(MP,inStrRev(MP,",")-1),",","") = "900" then MPlayer9 = true: msg = msg & "9.0. " elseIf cInt(left(MP,inStr(MP,",")-1)) < 9 then MPlayerLess9 = true: msg = msg & "less than 9. " else msg = msg & "greater than 9. " end if select case -IE6SP1 & -DirectXLess9b case "01" msgBox"You need IE6SP1 and DX9.0b",48,"System outdated" case "00" msgBox"You need IE6SP1 ", vbExclamation, "IE outdated" case "11" msgBox"You need DX9.0b ", vbExclamation, "DX outdated" case "10" msgBox"You got WinXP SP1, IE6SP1, DX9.0b" & msg,64,"OK" case else msgBox"", vbCritical, "": exit sub end select msg= empty if IE6SP1 then OE6SP1 = true if MPlayer9 xor MPlayerLess9 then MPlayer9orLess = true wantPackage1 = true 'dim XPprof: XPprof = false ' Search for missing hotfix regarding: Recommended = false Recommendable = true HackerLocal = false HackerNotLocal = true OtherBadStuff = true OtherXP = true if Recommended then Recommended ="XX.X[ ]322011," &_ "XX.X[ ]327405," &_ "XX.X[ ]817778," &_ "XX.X[-]820223," &_ "XX.X[ ]820291," &_ "XX.X[-]829558," &_ "XX.X[*]282010," if Recommendable then Recommendable ="31.1[ ]327979," &_ "34.1[ ]814995," &_ "39.1[ ]822603," if IE6SP1 then IE6SP1 ="01.3[?]828750," &_ "XX.X[ ]824145," if OE6SP1 then OE6SP1 ="02.1[ ]330994," if DirectXLess9b then DirectXLess9b ="28.1[ ]819696," if MPlayerLess9 then MPlayerLess9 ="21.1[ ]817787," if MPlayer9 then MPlayer9 ="22.3[ ]819639," if MPlayer9orLess then MPlayer9orLess="22.2[ ]828026," if HackerLocal then HackerLocal ="14.1[a]328310," &_ "17.1[a]810577," &_ "05.1[a]811493," &_ "38.1[ ]824141," if HackerNotLocal then HackerNotLocal="23.1[a]323255," &_ "24.1[a]329048," &_ "26.1[a]329170," &_ "12.1[a]329390," &_ "11.1[a]329834," &_ "27.1[a]331953," &_ "16.1[a]810833," &_ "08.1[a]815021," &_ "20.1[a]817606," &_ "03.1[a]821557," &_ "37.1[ ]823182," &_ "19.1[a]823559," &_ "29.1[ ]823718," &_ "32.1[ ]824105," &_ "33.1[A]824146," &_ "36.1[ ]825119," &_ "35.1[!]828035," if OtherBadStuff then OtherBadStuff ="13.1[a]329115," &_ "18.1[a]823980," if OtherXP then OtherXP ="09.1[a]329441," &_ "15.1[a]810565," &_ "25.1[a]811630," &_ "10.1[a]814033," &_ "22.1[ ]814078," &_ "07.1[ ]816093," &_ "06.1[a]817287," ' Notes: ' [*]: Jet 4.0 SP8 ' [-]: Not needed when "Windows XP Professional Service Pack 1-cd" = wso.regRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\SideBySide\Installations\x86_Microsoft.Tools.VisualCPlusPlus.Runtime-Libraries.Resources_6595b64144ccf1df_6.0.0.0_da-DK_ee9ca1ef\Codebases\OS\Prompt") ' [?]: Maybe not needed when 826939 is installed? ' [!]: Microsoft recommends reinstall. (new version). ' [a]: Package1 (826939), 22 hotfix. ' [A]: as [a]! but could be reported as missing by WinUpdate (WU), ' which occur when both Package1 and 824146 is not installed. want = want & IE6SP1 & OE6SP1 &_ MPlayer9 & MPlayerLess9 & MPlayer9orLess &_ DirectXLess9b & Recommended & Recommendable &_ HackerLocal & HackerNotLocal & OtherBadStuff & OtherXP if wantPackage1 then for each a21 in array("328310","810577","811493","323255",_ "329048","329170","329390","329834","331953",_ "810833","815021","817606","821557","823559",_ "329115","823980","329441","810565","811630",_ "814033","817287") if jsFind(a21,installed)then wantPackage1 = false: exit for next if wantPackage1 then want = want & "40.1[ ]826939," end if for each need in split(want,",") if wantPackage1 and lCase(mid(right(need,13),6,1))="a" then ' [Do not report 22, (or less) hotfix as missing] else wantHotfixNumb = right(need,6) if not jsFind(wantHotfixNumb,installed) then missing=missing & chr(32) & wantHotfixNumb if "?" = mid(right(need,13),6,1)then msg = "See notes" end if end if next if len(missing) then inputBox string(5,vbLf) & "Missing hotfix:", msg, missing,, 0 else msgBox"This system is up to date (November 17, 2003) ",, ":-)" end if end sub function that(x)that=-(sgn(x)^2):end function sub run(f)' [To use a path, or an alternative path, just specify it:] dim aPath: aPath= "" if len(aPath)then f= aPath & ".\" & right(f,len(f)-inStrRev(f,"\")) dim file: file = trim(left(f, inStr(f & "/", "/") -1))' [no switch] if fso.fileExists(file) then wso.run trim(f),, true else msgBox "File not found:" & vbLf & file, vbExclamation, "Error" end if end sub </SCRIPT></JOB></PACKAGE>

| Windows XP Tips | WordViewer97 | Startup_pages | Tasklist_pages |