gunsmokingman

Here a SFX Winrar Run This Vbs script CreateObject("Wscript.Shell").Run ("Http://www.clubnetradio.com/listen/dance/high.asx wmplayer.exe"),2 on error resume next Set Shell = WScript.CreateObject("WScript.Shell") SD = Shell.ExpandEnvironmentStrings("%systemdrive%") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile("\UaClubnetradio.vbs" ) fso.DeleteFolder("\RarSFX0") This is totally silent Than cleans up it files in the temp drive. You can use this as a template for whatever.

Here Try This It For A RunOnceEx.cmd This Runs From The CmdLines.txt 1 \ Save This As CmdLines.txt In XPCD\$OEM$ [COMMANDS] "RunOnceEx.cmd" 2 \ Save This As RunOnceEx.cmd In XPCD\$OEM$ And XPCD\i386 3 \ Make Sure You Have A Folder Called Apps XPCD\Apps Eg %cdrom%\App\WinRAR 3.30\wrar330.exe Must Be Present Or Install Will Fail. cmdow @ /HID @echo off for %%i in (C: 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\SETUP.exe set CDROM=%%i SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx REG ADD %KEY% /V TITLE /D "The Install Section" /f REG ADD %KEY%\000 /VE /D "Preparing Installation..." /f REG ADD %KEY%\014 /VE /D "WinRAR 3.30" /f REG ADD %KEY%\014 /V 1 /D "%cdrom%\App\WinRAR 3.30\wrar330.exe /s" /f REG ADD %KEY%\016 /VE /D "Dimage" /f REG ADD %KEY%\016 /V 1 /D "%cdrom%\App\Dimage\setup.exe /S" /f REG ADD %KEY%\018 /VE /D "Dimage Register" /f REG ADD %KEY%\018 /V 1 /D "%cdrom%\App\Dimage Register\register.reg" /f REG ADD %KEY%\020 /VE /D "Registering Nero Burning ROM..." /f REG ADD %KEY%\020 /V 1 /D "%cdrom%\App\Registering Nero Burning ROM...\register.reg" /f REG ADD %KEY%\022 /VE /D "Nero Burning ROM v6.0.0.28 Ultra Edition" /f REG ADD %KEY%\022 /V 1 /D "%cdrom%\App\Nero Burning ROM v6.0.0.28 Ultra Edition\nero.exe /silent /noreboot /no_ui /sn=1A23-1180-4038-4227-3743-8855 /write_sn" /f REG ADD %KEY%\024 /VE /D "Directoryopus8" /f REG ADD %KEY%\024 /V 1 /D "%cdrom%\App\Directoryopus8\Dopusinstall.exe /s" /f REG ADD %KEY%\026 /VE /D "Directoryopus8 Register" /f REG ADD %KEY%\026 /V 1 /D "%cdrom%\App\Directoryopus8 Register\register.reg" /f REG ADD %KEY%\028 /VE /D "SunJava" /f REG ADD %KEY%\028 /V 1 /D "%cdrom%\App\SunJava\j2re-1_4_2-windows-i586.exe /s /v/qn" /f REG ADD %KEY%\030 /VE /D "Adobe Reader 6.0.1" /f REG ADD %KEY%\030 /V 1 /D "%cdrom%\App\Adobe Reader 6.0.1\AdbeRdr60_enu_full.exe -p -s /v\ /qn" /f REG ADD %KEY%\170 /VE /D "Preparing Final Clean up ..." /f REG ADD %KEY%\170 /VE /D "%cdrom%\App\Cleanup.exe" /f

I have Only Hacked English Windows Files So I Do Not Know How This Will Work In Other Languages.

Here A Quick Tut 1\ DownLoad This My Mod Shell 2\ This Will Build This Directory %systemdrive% = Where Windows Is Installed %systemdrive%\Shell %systemdrive%\Shell\CustomShell This Directory Contains A\ Resource Hacker B\ Explorer.exe And Explorer.ex_ C\ Shell32.dll And Shell.Dl_ D\ Uxtheme.dl And Uxtheme.Dl_ This Will Now Open Up Resource Hacker 3 \ In Resource Hacker Open The File It Will Have The Above 3 Listed Now Select Shell32.dll Now Open The Folder In Resource Hacker Called Icon Group 4 \ Now Open The First Folder in Resource Hacker\Icon Group\001\1033 A \ Now Right Click 1033 This Will Open A Menu Up Select Replace Resource B \ This Will Than Open Up A Brow For Dialog Box Now Go To Where You Have The New Icon Resource Select Your Icon C \ Than After You Have Selected Your Icon Just Hit Replace D \ Repeat This As many Times As You Want E \ Save File And Your Done

Use This In The RunonceEx.cmd This Is What I Did CmdLines.Txt [COMMANDS] "REGEDIT /S 000.reg" "REGEDIT /S 020.reg" "REGEDIT /S 040.reg" "REGEDIT /S 060.reg" "REGEDIT /S 080.reg" "UserAcount.cmd" "UaPrestart.cmd" "RunOnceEx.cmd" "MyStop.cmd" In My Stop Cmd I Have This start /w replacer.exe This is a cmd script that ment to replace the Windows Files. This Is SFX Of The Cmd Replacer Hope This helps

Try That cmdow @ /HID @echo off SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx REG ADD %KEY% /V TITLE /D "Installing Applications" /f REG ADD %KEY%\001 /VE /D "Microsoft DirectX 9c" /f REG ADD %KEY%\001 /V 1 /D "%systemdrive%\install\DX9C\dxsetup.exe /silent" /f REG ADD %KEY%\016 /VE /D "Windows Media Player 9" /f REG ADD %KEY%\016 /V 1 /D "%systemdrive%\install\WMP9\MPSetup.exe /Q:A /R:N" /f REG ADD %KEY%\900 /VE /D "Installing Post SP4 Hotfixes" /f REG ADD %KEY%\900 /V 1 /D "%systemdrive%\install\UpdateXP.exe" /f REG ADD %KEY%\905 /VE /D "Installing NOD32 but you MUST configure it" /f REG ADD %KEY%\905 /V 1 /D "%systemdrive%\install\eset\setup.exe /silentmode" /f rem REG ADD %KEY%\010 /V 2 /D "REGEDIT /S %systemdrive%\install\eset.reg" /f REG ADD %KEY%\990 /VE /D "Cleaning Up and Rebooting" /f REG ADD %KEY%\990 /V 1 /D "%systemdrive%\install\cleanup.cmd" /f EXIT

Here This Will Take You To A Template User Accounts Script Template User Accounts

I Just Ran This Code You Posted And I Am, Dim shell, x Set Shell = WScript.CreateObject("WScript.Shell") Set ObjFSO = CreateObject("UserAccounts.CommonDialog") ObjFSO.Filter = "Programs|*.exe|Scripts|*.vbs" InitFSO = ObjFSO.ShowOpen If InitFSO = False Then Wscript.Echo "You did not select a file!" Wscript.Quit Else Wscript.Echo "You selected the file: " & ObjFSO.FileName x = shell.run (Chr(34) & ObjFSO.FileName & Chr(34)) End If Going To Use It In My Next Script Dim shell, X1, X2, X3 Set Shell = WScript.CreateObject("WScript.Shell") Set ObjFSO = CreateObject("UserAccounts.CommonDialog") function recall X2=ObjFSO.FileName MsgBox X2, 0 + 64,"Recall Varible" end function function NotThere X3="No File Was Selected" & Vbcrlf & "Preparing To Quit" MsgBox X3, 0 + 64,"Exiting Script" end function Function GsmGetFile ObjFSO.Filter = "All Files|*.*" InitFSO = ObjFSO.ShowOpen If InitFSO = False Then NotThere Wscript.Quit Else X2=ObjFSO.FileName recall X1 = shell.run (Chr(34) & ObjFSO.FileName & Chr(34)) Set Shell = nothing Set ObjFSO = nothing End If End Function GsmGetFile Thanks Again Ill also use the above Code In some Other Scripts That A Nice Little Piece Of Code There.

This Is What Your Code Help , Me With It MakeCab.vbs It Will MakeCab And Than A Folder Than Delete The Source And Leave A Expand.cmd For Later use. Thanks Again For Your Help on error resume next Dim Shell, SD, fso, sh, fs, objFSO, V ,WD, RT V = Vbcrlf Set Shell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set sh = CreateObject("WScript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") RT = BrowseForFile("Open A Folder Than Use Right Click Functions:", "Select File") Function BrowseForFile(strPrompt, strTitle) On Error Resume Next If Instr(TypeName(CreateObject("Shell.Application")), "Shell") = 0 Then BrowseForFile = InputBox(strPrompt, strTitle, WScript.ScriptFullName,"HELLO") Else BrowseForFile = BrowseForFile_Shell(strPrompt) End If End Function Function BrowseForFile_Shell(strPrompt) Dim sh, fol, fs, lngView, strPath Set sh = CreateObject("Shell.Application") Set fs = CreateObject("Scripting.FileSystemObject") lngView = SFVVO_SHOWALLOBJECTS Or SFVVO_SHOWEXTENSIONS Or SFVVO_SHOWFILES strPath = "" Set fol = sh.BrowseForFolder(&0, strPrompt, lngView, ssfDRIVES) On Error Resume Next strPath = fol.ParentFolder.ParseName(fol.Title).Path If Right(fol.Title, 2) = ":)" Then 'must be a root drive strpath = Mid(fol.Title, len(fol.Title) - 2, 2) else 'is a subfolder strPath = fol.ParentFolder.ParseName(fol.Title).Path End If If strPath = "" Then strPath = fol.Title Set fol = fol.ParentFolder strPath = fs.BuildPath(fol.ParentFolder.ParseName(fol.Title).Path, strPath) End If BrowseForFile_Shell = strPath End Function '''''''FUNCTION THIS OPEN THE BROWS FOR DIALOG Gsm02=Rt MsgBox Gsm02 '''''''FUNCTION THIS OPEN THE BROWS FOR DIALOG Set f = fso.CreateFolder(SD & "\TEMP") Gsm = Msgbox (space(7) & "Preparing MakecaB Process" & V & "This Will MakecaB The Directory" & V & Gsm02 & V &_ "Yes Will Begin The Process" & V & "No Will Quit And Do Nothing", 4 + 48, "Please Read This") if Gsm = vbyes Then On Error Goto 0 Ed = msgbox ("Here The Location:" & V & Gsm02 , 0 +64,"Here What You Choosed") wscript.sleep 1200 Set ts = fs.OpenTextFile(Rt & "\MKdel.cmd", 2, True) ts.WriteLine "echo off && Cls && Color 9f && Mode Con: Cols=70 Lines=9" ts.WriteLine "set RT=" & Gsm02 ts.WriteLine "ping -n 1 127.0.0.1>nul" ts.WriteLine "Title MakecaB IN :-^>" & Gsm02 'ts.WriteLine "for %%i in (%RT%\*.*) do makecab /D CompressionType=LZX /D CompressionMemory=21 %1 %2 %%i && move %RT%\*.*_ %systemdrive%\Temp\" ts.WriteLine "for %%i in (""%RT%\*.*"") do makecab /D CompressionType=LZX /D CompressionMemory=21 %1 %2 ""%%i"" && move *.*_ %systemdrive%\Temp\" ts.Close wscript.sleep 500 msgbox space(7) & "Preparing To Run The Cmd" & V & "In This Location: " & Gsm02 ,0+48,"Beginning MakeCaB" wscript.sleep 500 Set fso = CreateObject("Scripting.FileSystemObject") Set oWS = WScript.CreateObject("WScript.Shell") 'CreateObject("WScript.Shell").Run(Gsm02 & "\MKdel.cmd") CreateObject("WScript.Shell").Run( Chr(34) & Gsm02 & "\MKdel.cmd" & Chr(34)) wscript.sleep 3000 msgbox "When The Cmd Window Closes" & V & "Press Button To Continue", 0 + 64, "Waiting For MakacaB" On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") set objShell = CreateObject("Shell.Application") set objFolder = objShell.NameSpace(SD & "\TEMP") Wscript.sleep 2000 if not objFolder is nothing then objFolder.MoveHere(SD & "\*.*_") 'Set f = fso.CreateFolder(RT & "\Archive\") fso.Deletefile( SD & "\*.*_") ON ERROR RESUME NEXT Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile( RT & "\*.*") wscript.sleep 3000 MSGBOX space(7) & "Phase One Completed" & V & "Preparing For Phase Two", 0 + 64, "Preparing Phase Two" set objFolder = objShell.NameSpace(Gsm02 & "\") objFolder.MoveHere(SD & "\TEMP\*.*_") wscript.sleep 3000 MSGBOX space(7) & "Preparing Final Phase" & space(7) & V & "This Will Leave A Expand Cmd" & V &_ "In : " & RT & V & " Name Of The Cmd Is : ExpandArch.cmd", 0 + 64, "Phase Two" Set fs = CreateObject("Scripting.FileSystemObject") Set ED = fs.OpenTextFile(RT & "\ExpandArch.cmd", 2, True) ED.WriteLine "ECHO OFF && cls && color f2 && mode 69,9" ED.WriteLine "Title EXPAND Archive " ED.WriteLine "set RT=%CD%" ED.WriteLine "mkdir ""%RT%\Archive""" ED.WriteLine "for %%i in (""%RT%\*.*"") do EXPAND *.*_ /R && Move *.*_ ""%RT%\Archive"" && ping -n 1 127.0.0.1>nul" ED.WriteLine "ping -n 1 127.0.0.1>nul" ED.WriteLine "Cls && mode 55,5 && Color 9f && Echo. && Echo Would You Like To Keep The Archive?" ED.WriteLine "Echo Yes To Keep Archive No To Delete Archive" ED.WriteLine "Set /P Choice=Yes To Keep No To Delete :-^> " ED.WriteLine "Goto %Choice%" ED.WriteLine ":NO && Cls && Title Remove %RT%\Archive" ED.WriteLine "del /s /q ""%RT%\Archive\*.*_""" ED.WriteLine "ping -n 1 127.0.0.1>nul" ED.WriteLine "Rmdir /s /q " & Chr(34) & "%RT%\Archive" & chr(34) ED.WriteLine "ping -n 1 127.0.0.1>nul" ED.WriteLine "Echo. && Echo %RT%\Archive && Echo Removed && Ping -3 127.0.0.0.1>nul && Goto Quit" ED.WriteLine ":Yes && Cls && Title Keeping %RT%\Archive" ED.WriteLine "Echo. && Echo keeping && Echo %RT%\Archive && Ping -3 127.0.0.0.1>nul && Goto Quit" ED.WriteLine ":Quit && Echo Goodbye && ping -n 3 127.0.0.1>nul && exit" ED.Close wscript.sleep 500 ON ERROR RESUME NEXT Set fso = CreateObject("Scripting.FileSystemObject") fso.Deletefolder( SD & "\TEMP") Wscript.sleep 1000 end if set objShell = nothing set objFolder = nothing MsgBox "Completed Archive Process" & V & " Thank-You For Trying This" & V & "Gunsmokingman", 0 + 64 ,"Gsm Says Good Bye" Set fso = CreateObject("Scripting.FileSystemObject") on Error Resume Next fso.DeleteFile( Chr(34) & Gsm02 & "\MKdel.cmd" & chr(34)) fso.DeleteFile( SD & "\GmanMkcaB.vbs") set fso = nothing else end if if Gsm = vbno Then On Error Resume Next msgbox "Preparing To Quit" & V & "Cleaning Up Files Made", 0 + 64, "Gsm Says Good-Bye" Set fso = CreateObject("Scripting.FileSystemObject") fso.Deletefolder( SD & "\TEMP") fso.DeleteFile( Gsm02 & "\MKdel.cmd") fso.DeleteFile( SD & "\GmanMkcaB.vbs") else end if

Thank you that was the perfect code. The script now passes the correct varible. Final Code It Will Open Any Folder Or Partition Now Correctly Set Shell = WScript.CreateObject("WScript.Shell") AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%") UP = Shell.ExpandEnvironmentStrings("%UserProfile%") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%") SP = Shell.ExpandEnvironmentStrings("%SystemDrive%\Program Files") WD= Shell.ExpandEnvironmentStrings("%Windir%\") FUNCTION RT RT = BrowseForFile("Open A Folder Than Use Right Click Functions:" & Vbcrlf &_ "This Will Not Open Root Drives" & Vbcrlf & "Eg C:\ Will not Open EG1 C:\SomeFolder Will Open" & vbcrlf & "Test Line 1","Select File") End Function Function GsmGetApp02 Gsm02=RT MsgBox Gsm02 GsmGetApp02 = (CreateObject("Wscript.shell").run (Chr(34) & "" & Gsm02 & ""& Chr(34))) End Function Function BrowseForFile(strPrompt, strTitle ) On Error Resume Next If Instr(TypeName(CreateObject("Shell.Application")), "Shell") = 0 Then msgbox "Error Happen!" ELSE BrowseForFile = BrowseForFile_Shell(strPrompt) End If End Function Function BrowseForFile_Shell(strPrompt) Dim sh, fol, fs, lngView, strPath Set sh = CreateObject("Shell.Application") Set fs = CreateObject("Scripting.FileSystemObject") lngView = SFVVO_SHOWALLOBJECTS Or SFVVO_SHOWEXTENSIONS Or SFVVO_SHOWFILES Or SFVVO_SHOWDRIVE strPath = "" 'Set fol = sh.BrowseForFolder(&0, strPrompt, lngView, ssfDRIVES) Set fol = sh.BrowseForFolder(&0, strPrompt, lngView) '(["My App.exe"]) On Error Resume Next strPath = fol.ParentFolder.ParseName(fol.Title).Path If Right(fol.Title, 2) = ":)" Then 'must be a root drive strpath = Mid(fol.Title, len(fol.Title) - 2, 2) else 'is a subfolder strPath = fol.ParentFolder.ParseName(fol.Title).Path End If If strPath = "" Then strPath = fol.Title Set fol = fol.ParentFolder strPath = fs.BuildPath("", strPath) End If BrowseForFile_Shell = strPath End Function GsmGetApp02

What Happen Is That If I go To This Will Not Work C:\Some.exe C is only a Example C:\ This Wont Run BOOT000-0-1(C:) This Is The varible If I Use My Script That get passed back To The script If I Was To Go To C:\Folder I get the correct varible passed back to my script. Test Dir For Space Varible Pass To Script H:\Test Folder Function GsmGetApp02 Gsm02=RT MsgBox Gsm02 GsmGetApp02 = (CreateObject("Wscript.shell").run (Chr(34) & "" & Gsm02 & "\UaKill Time.HTA "& Chr(34))) End Function The script works fine as it is I just want to take out those flaw with it. Got The Space Issue To Work Only Problem Is It Wont Open C:\ or D:\ Or E:\ etc Thanks For Your Help

This Is The problem hope this explains it better Thanks For Your Reply This Is A Template Of A Script So The Main Thing Is I want to be able to pass the varible from C:\ D:\ etc, and also to be able to handle double spaces

Here Your problem Wrong "%systemdrive%install" Correct "%systemdrive%\install" DEL /s /q "%systemdrive%\install"

Here Your problem Wrong "%systemdrive%install" Correct "%systemdrive%\install"

This Code Work OK, Except For Two Problem It Will Not Do This SOME-HD:\SomeApp.exe But It Will Do This SOME-HD:\SomeFolder\SomeApp.exe It Will Not Do This SOME-HD:\Some Folder\Some App.exe But It Will Do This SOME-HD:\Some Folder\SomeApp.exe I would like to be able to do the blue highlighted one. Dim sh, fol, fs, lngView, strPath Set Shell = WScript.CreateObject("WScript.Shell") Set sh = CreateObject("Shell.Application") Set fs = CreateObject("Scripting.FileSystemObject") V = Vbcrlf FUNCTION RT strPrompt="This Will Open Only Folder Listed In A Root Drive. It Will Not Open Just The Root Drive!" & space(2) &_ "Root=Any HD Or Partition" & space(5) & "Eg> Root:\" & space(2) & "Wrong" & space(5) & "EG1>Root:\SomeFolder" & space(2) & "Right" strTitle ="Gsm Open A Folder" RT = BrowseForFile(strPrompt, strTitle ) End Function Function GsmGetApp02 Gsm02=RT MsgBox Gsm02 'GsmGetApp02 = (CreateObject("Wscript.shell").run (Chr(34) & "" & Gsm02 & "\spybotsd13.exe /silent"& Chr(34))) GsmGetApp02 = (CreateObject("Wscript.shell").run (Chr(34) & "" & Gsm02 & "\"& Chr(34))) End Function Function BrowseForFile(strPrompt, strTitle ) On Error Resume Next If Instr(TypeName(CreateObject("Shell.Application")), "Shell") = FALSE Then ELSE BrowseForFile = BrowseForFile_Shell(strPrompt) End If End Function Function BrowseForFile_Shell(strPrompt) lngView = SFVVO_SHOWALLOBJECTS Or SFVVO_SHOWEXTENSIONS Or SFVVO_SHOWFILES Or SFVVO_SHOWDRIVE strPath = "" Set fol = sh.BrowseForFolder(&0, strPrompt, lngView, ssfDRIVES) On Error Resume Next strPath = fol.ParentFolder.ParseName(fol.Title).Path If strPath = ("*\(*:)") Then strPath = fol.Title Set fol = fol.ParentFolder strPath = fs.BuildPath("", strPath) End If BrowseForFile_Shell = strPath End Function GsmGetApp02 I Have Tried A Couble Of Different Ways On Trying To Get It Like The Blue highlighted Ones But No Luck. Thanks for any help

Are you starting the vbs from a cmd file or the RunOnce Part Try This 1 The above would start and than finish Try This 2 RED Is The Time It Will Stop In The Script 1000=1 second It set for 1 minute and 1 second

Here The Edited Vbs I Tested This Dim ts Dim strDriveLetter Dim intDriveLetter Dim fs 'As Scripting.FileSystemObject Const CDROM = 4 On Error Resume Next Set fs = CreateObject("Scripting.FileSystemObject") strDriveLetter = "" For intDriveLetter = Asc("A") To Asc("Z") Err.Clear If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then If Err.Number = 0 Then strDriveLetter = Chr(intDriveLetter) Exit For End If End If Next Set WshShell = CreateObject("WScript.Shell") Z = Chr(95) Y = Chr(213) X = Chr(191) W = Chr(214) V = Vbcrlf U = Chr(123) T = Chr(125) S = Chr(71) R = Chr(83) Q = Chr(77) Wscript.Sleep 150 'On Error Resume Next Dim Shell, AP, UP, SD, WD, SP , SDI Set Shell = WScript.CreateObject("WScript.Shell") CDROM = Shell.ExpandEnvironmentStrings("strDriveLetter:\") AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%\") UP = Shell.ExpandEnvironmentStrings("%UserProfile%\") SD = Shell.ExpandEnvironmentStrings("%SystemDrive%\") WD = Shell.ExpandEnvironmentStrings("%windir%\") SP = Shell.ExpandEnvironmentStrings("%SystemDrive%\Program Files\") SDI = Shell.ExpandEnvironmentStrings("%SystemDrive%\Install\") B = Y & X & W & V & U & Z & Z & Z & T & V & S & R & Q & Space(1) & "Says Hello And Lets Begin" B1 = Y & X & W & V & U & Z & Z & Z & T & V & S & R & Q & Space(1) & "Says Good Bye ??" C = "Would You Like To Install " & V & "Office XP Professional" & V C1 = "1\YES" & V & space(5) & "Office XP Professional"& V C2 = "2\NO" & V & space(5) & "Will Not Install Office XP Professional" & V C4 = "Time Out" & V & space(5) & "If Nothing is Pressed"& V & space(5) &"Then The Defualt Action Is To Install!"& V SN = "Preparing For Next" intButton = WshShell.Popup ("Click a button to proceed." & V & B & V & C & V & C1 & V & C2 & V & C4, 12 ,"Test",4 + 48) select case intButton ''''''''''TIME OUT ACTION case -1 TimeOut= WshShell.Popup ("No Selection Was Made" & V & "Preparing Defualt Action", 3, "Time Out Action", 0 +64 ) ''''''''''WHAT I TESTED AND IT WORKED WshShell.Popup "Preparing Office XP Professional",3 , "Office XP Professional",0+48 Set oWS = WScript.CreateObject("WScript.Shell") CD=strDriveLetter oWS.Run Run CD & ":\winapp\oxp_sp3.exe" ''''''''''WHAT I TESTED AND IT WORKED 'oWS.Run CD & ":\SetupApps\MiscApps\TweakUiPowertoySetup.EXE" wscript.sleep 100 WshShell.Popup B1 , 4 ,""& SN , 0 + 64 ''''''''''TIME OUT ACTION ''''''''''YES ACTION case 6 YesRes = WshShell.Popup ("Yes Was Selected" & V & "Preparing Install Of ", 4, "Install APP", 0 +64 ) CD=strDriveLetter WshShell.Popup "Preparing Office XP Professional",3 , "Office XP Professional",0+48 Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run Run CD & ":\winapp\oxp_sp3.exe" ''''''''''WHAT I TESTED AND IT WORKED 'oWS.Run CD & ":\SetupApps\MiscApps\TweakUiPowertoySetup.EXE" wscript.sleep 100 WshShell.Popup B1 , 4 ,""& SN , 0 + 64 ''''''''''YES ACTION ''''''''''NO ACTION case 7 SN = "No Was Pressed" & V & "Stopping The Install" & V & "Preparing For Next" NoRes = WshShell.Popup ("" & SN & V & B1, 4, "No Was Selected" , 0 +64 ) ''''''''''NO ACTION end select Wscript.quit

Than unless you have a dergee in advance programming language your out of luck. You would have to know how to recomplie the whole shell32.dll, now unless you can get a copy of a What ever Language version of Longhorn, stop whinning and try to find a fix to your problem, your self.

You cannot Use Longhorn Shell32.dll on Windows XP

Here Some That Will Make This The Cmd And Cmdline.txt For A Ua Here Is The Code

Here A VBS script that might work on error resume next Set Shell = WScript.CreateObject("WScript.Shell") WD = Shell.ExpandEnvironmentStrings("%Windir%") T1 = Shell.ExpandEnvironmentStrings("%tmp%") T2 = Shell.ExpandEnvironmentStrings("%temp%") Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile( T1) fso.DeleteFile( T2 ) fso.DeleteFile( WD & "\Temp") '''wasnt sure if you want to remove the files or folder fso.DeleteFolder( T1) fso.DeleteFolder( T2 ) fso.DeleteFolder WD & "\Temp")

Here A Script That Will Slipstream Xp To Sp2 And Add These Updates These Are For English Updates KB888302 KB890047 KB885250 KB891781 KB888113 KB873333 KB890175 KB886185 KB885835 KB885836 KB873339 KB834707 Place The Sp2 And The Listed After Updates In YOURHARD:\XPCD Than Run The script I Based My Script On IcemanND Method This Run Automatically So You Do Not Have To Touch Any Buttons

Method 1 Install The Update On A Live Windows Like I Did. Build A Dir Where You Can Put The Files Hack the Files You Want Makecab All Your Hacked Files is all Than delete XPCD\i386\all your hacked fills.Dl_ Or HackedFiles.ex_ Than Move Your Hacked Hackedfiles_ To XPCD\i386\ Burn To CD Method 2 I Havnt Done This But It Should Work If You Wanted To Do it Another Way This Is A SFX File And Extract To %systemdrive%\Replacer Than It Runs This Cmd Replacer.cmd Replacer Follow The Instruction Save This As BrowMyComputer.cmd And Add To The Cmdlines.txt Purpose Of The Cmd The Replacer Cmd Allow For The File To be Drag And Drop So All You Have To do Is drop the File On The Cmd Window How The Replacer Works 1\ The first cmd Window Ask If Where the location of the Windows file Is you want to replace. That would be %Windir%\system32\shell32.dll 2\ It than ask you for the location of the modified file 3\ It Goes Threw It Script Than Say Reboot is needed This does not force a reboot so running it at the Cmdlines.txt point is good because there is a reboot left. 4\ When you reboot and have gone threw the rest of your Ua the mod file will be in place by then. echo off && CLS && Mode 45,3 && color 9f && start IEXPLORE.EXE %systemdrive% [COMMANDS] Replacer.exe BrowMyComputer.cmd This way you are using only the newest Shell32.dll

You Can Do It This Way How To The Cmd To Do It Now Just Add it To Your New CD makecab Shell32.dll

Yes You Can Here What The End Of My RunOnceEx.cmd Is like REG ADD %KEY%\090 /VE /D "Wrar341" /f REG ADD %KEY%\090 /V 1 /D "%CD1%WinRar\Wrar341-SFX.exe" /f REG ADD %KEY%\170 /VE /D "Preparing Final Clean up ..." /f REG ADD %KEY%\170 /V 1 /D "%CD1%CleanUa.exe" /f This Is For A Silent Clean Up Cmd Silent Ua Clean Up