1:\ A prepare cmd is a option I dont use one
2:\ The RunOnceEx.cmd Is What You Use To Install Stuff
3:\ The Clean Up Cmd Is To Remove The Install And Drivers
Folders
Example Of A RunOnceEx.cmd
REG ADD %KEY%\065 /VE /D "Ua065 %A1% Wrar341" /f
REG ADD %KEY%\065 /V 1 /D "%CD1%Ua065\Wrar341-SFX.exe" /f
Here A Clean Up Cmd That Will Remove The Install And Driver Folders Remove These Shortcuts.
CMD
Quote
echo off
cls
color f1
mode con: Cols=53 Lines=5
Title Clean R1
IF EXIST net user aspnet /delete
IF EXIST %SYSTEMDRIVE%\CleanR1.vbs GOTO WORK
if not exist %SYSTEMDRIVE%\CleanR1.vbs goto OPS
ping -n 2 127.0.0.1>Nul | Echo Processing.......
:WORK
START %SYSTEMDRIVE%\CleanR1.vbs
echo.
ping -n 3 127.0.0.1>Nul | Echo Running CleanUp Script!!.......
echo.
exit
:OPS
echo.
ECHO R1Cleanup.vbs Is Not At This Location:
ECHO Missing %systemdrive%\R1Cleanup.vbs
ping -n 7 127.0.0.1>nul | Echo Cleanup Of Ua Files Cancel!!!!!
echo.
exit
Things In Purple Are Varibles I Have Try To Add As Many Generic Spots To That People Seem To Use In The Ua. If There Are Some That I Missed Please Post Some More So I Can Add Them To The Script.
The Stuff That Is Orange Is Inactive This Is Safe To Delete Or You Can Edit Them To Match Your Needs. '''''' These Must Be Removed
The Front Of The Script, To Make Active.
The Stuff InGreen Is Safe To Remove From The Script Or Edit To Suit Your Needs
The Stuff That Is Red Use Caution When Editing
VBS SCRIPT
Quote
On Error Resume Next
Dim Garbage, Shell, AP, UP, SD, SP
Set Shell = WScript.CreateObject("WScript.Shell")
A1 = Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\")
A2 = Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\DESKTOP\")
A3 = Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\START MENU\")
A4 = Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\START MENU\PROGRAMS\")
B1 = Shell.ExpandEnvironmentStrings("%USERPROFILE%\")
B2 = Shell.ExpandEnvironmentStrings("%USERPROFILE%\DESKTOP\")
B3 = Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\START MENU\")
B4 = Shell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\START MENU\PROGRAMS\")
SD = Shell.ExpandEnvironmentStrings("%SYSTEMDRIVE%\")
SP = Shell.ExpandEnvironmentStrings("%SYSTEMDRIVE%\Program Files\")
W1 = Shell.ExpandEnvironmentStrings("%WINDIR%\")
W2 = Shell.ExpandEnvironmentStrings("%WINDIR%\RESOURCES\THEMES\")
W3 = Shell.ExpandEnvironmentStrings("%WINDIR%\SYSTEM32\")
W4 = Shell.ExpandEnvironmentStrings("%WINDIR%\WEB\WALLPAPER\")
Set fso = CreateObject("Scripting.FileSystemObject")
''''''''' REMOVE THESE '''''' BEFORE ANY THING TO MAKE ACTIVE
''''''''' SHORTCUT EXAMPLES
'fso.DeleteFile( A2 & "BSPlayer.lnk")
'fso.DeleteFile( A2 & "Media Player Classic.lnk")
'fso.DeleteFile( A2 & "HP Director.lnk")
'fso.DeleteFile( A2 & "HP Memories Disc.lnk")
'fso.DeleteFile( A2 & "HP Photo & Imaging.lnk")
'fso.DeleteFile( A3 & "Set Program Access and Defaults.lnk")
'fso.DeleteFile( A3 & "Windows Catalog.lnk")
'fso.DeleteFile( A3 & "Java Web Start.lnk")
''''''''' -------- FOLDERS -----------> fso.DeleteFolder( SD & "SOMEFOLDER")
''''''''' EXAMPLE THIS IS WHAT THE COMPUTER READS %SYSTEMDRIVE%\SOMEFOLDER
fso.DeleteFolder( SD & "DRIVERS")
fso.DeleteFolder( SD & "INSTALL")
''''''''' USE THIS TO DELETE ANY EXTRA FILES
''''''''' I USE THIS TO DELETE THIS FILE AND THE CMD THAT CALLS IT
fso.DeleteFile( A2 & "Java Web Start.lnk")
fso.DeleteFile( A2 & "Nero StartSmart.lnk")
fso.DeleteFile( A2 & "Mozilla.lnk")
fso.DeleteFile( A3 & "Set Program Access and Defaults.lnk")
fso.DeleteFile( A3 & "Windows Catalog.lnk")
fso.DeleteFile( SD & "CLEANR1.VBS")
fso.DeleteFile( SD & "CLEANR1.CMD")
''''''''' FILES
MSGBOX "Defualt Install And Drivers Deleted" & vbcrlf & "Defualt ShortCuts Deleted" & vbcrlf & "Deleted Files For Script", 0 + 64,"RUNONCE CLEAN UP!"
To Test This Script
Make 2 Folders On Systemdrive
Systemdrive Is Where You Have Windows Installed
Install
Drivers
Than Run The Sfx File And The 2 Folders Will Be Gone
Plus Any Shortcuts That Are Listed.
This post has been edited by gunsmokingman: 22 February 2006 - 02:53 AM