code:

---

@echo off
IF EXIST "%TEMP%\%USERNAME%.BAT" DEL "%TEMP%\%USERNAME%.BAT"
::%0\..\GETVAR.EXE -v FN -f %TEMP%\%USERNAME%.BAT "Enter a UserID:"
\\SERVER\utility\GETVAR.EXE -v FN -f %TEMP%\%USERNAME%.BAT "Enter a UserID: "
@echo on

CALL "%TEMP%\%USERNAME%.BAT"

set zInput=%FN%

@echo off
ECHO WE ARE GOING TO REMOVE CITRIX_HOMEDIR FOR %zInput%
@echo on
PAUSE
PUSHD \\SHARSERVER\citrix_homedir\%zInput%
If not errorlevel 1 goto :CitrixHomedir
If      errorlevel 1 echo \\SHARESERVER\Citrix_Homedir\%zInput% was not found && goto :CitrixProf
:CitrixHomedir
IF EXIST \\SHARESERVER\Citrix_Homedir\%zInput%\. DEL /q \\SHARESERVER\Citrix_Homedir\%zInput%\*.*
FOR /F "Tokens=*" %%i in ('DIR /B') DO RD /s /q "%%i"
::UNDO THE DRIVE
POPD
:CitrixProf
@echo off
ECHO WE ARE GOING TO REMOVE CITRIX_PROFILES FOR %zInput%
PAUSE
@echo on
PUSHD \\SHARESERVER\Citrix_Profiles\%zInput%
If not errorlevel 1 goto :CitrixProfiles
If     errorlevel 1 echo \\SHARESERVER\Citrix_Profiles\%zInput% was not found && goto :eof
:CitrixProfiles
IF EXIST \\SHARESERVER\Citrix_Profiles\%zInput%\. DEL /q \\SHARESERVER\Citrix_Profiles\%zInput%\*.*
FOR /F "Tokens=*" %%i in ('DIR /AD /B') DO ATTRIB -H -S /s /D "%%i"
FOR /F "Tokens=*" %%i in ('DIR /B') DO RD /s /q "%%i"
POPD

if exist %zInputTmp% del %zInput% >NUL

@echo off
ECHO Let's Clean the profiles on the servers
PAUSE
::for %%a in (1 2 3 4 5 6 7 8 9 10 11) do call :TestPad %%a
@echo on
FOR /L %%a in (1,1,11) do call :TestPad %%a
goto :EOF

:TestPad
set Padded=%1
for %%a in (%Padded%) do set pad=00%%a
::echo %Pad%
set Padded=%Pad:~1,2%
If %Pad:~2,3% GTR 9 Set Padded=%Pad:~2,2%

PING CITRIXSERVER%Padded% -n 1 | find "TTL"
IF  %errorlevel% EQU 1 goto :EOF
::If not exist \\CITRIXSERVER%Padded%\ADMIN$\PROFILES\* goto :EOF
PUSHD \\CITRIXSERVER%Padded%\ADMIN$\PROFILES
for /f "Tokens=*" %%i in ('dir %zInput%.* /B') do rd /s /q "%%i"
POPD

goto :CHK

:CHK
pause

goto :EOF
:EOF

---

code:

---

; The dir where the profiles are stored
$dir = "C:\Documents and Settings\"

cd $dir

COLOR g+/n
? "Round 1"
COLOR w+/n

gosub EmptyProfilesdir

COLOR g+/n
? "Round 2"
COLOR w+/n

; Run it twice, incase it missed anything
gosub EmptyProfilesdir


  

EXIT 1



;*******************************************************************
;EmptyProfilesDir - Remove the contents of the Profiles dir except the standard folders
;*******************************************************************

:EmptyProfilesdir

	Dim $SubDir 
	$Filename = Dir("*.*") 
	While $Filename <> "" And @Error = 0 
		If SubStr( $Filename , 1 , 1) <> "." 
			If GetFileAttr( $Filename ) & 16 
				$SubDir = $Filename 
				if $subdir = "Administrator"
					? "Cannot remove $subdir Directory." ?
				else
					if $subdir = "All Users"
						? "Cannot remove $subdir Directory." ?
					else
						if $subdir = "bob"
							? "Cannot remove $subdir Directory." ?
						else
							if $subdir = "Default User"
								? "Cannot remove $subdir Directory." ?
							else
								CD $SubDir
								GoSub EmptyProfilesdir
								CD ".."
								$Filename = Dir("*.*")
								While $Filename <> $SubDir
									$Filename = Dir()
								Loop
								if $subdir = "Administrator"
									? "Cannot remove $subdir Directory." ?
								else	
									if $subdir = "bob"
										? "Cannot remove $subdir Directory." ?
									else
										if $subdir = "All Users"
											? "Cannot remove $subdir Directory." ?
										else
											if $subdir = "Default User"
												? "Cannot remove $subdir Directory." ?
											else
												COLOR r+/n
												? "   $subdir empty...Removing..."
												rd $subdir
												COLOR w+/n
												"Done."
											endif
										endif
									endif
								endif
							endif
						endif
					endif
				endif

				$Err = SetFileAttr( $SubDir , 128 )
			Else
				$Err = SetFileAttr( $Filename , 128 )
				$Extension = SubStr( $Filename , Len($Filename) - 3 , 4 )
				;Select
					;Case $Extension = ".*"
					Del $Filename
					? "      Deleting  $Filename "
					"Done."
				;EndSelect
			Endif
		Endif 
		$Filename = Dir()
	Loop 

RETURN

---

Hope this helps



[ 02 May 2002, 10:05: Message edited by: Ghost ]

code:

---

  

; Uninstall Utility for Win32
; by cj
;
; This program reads the Uninstall information from the Registry and 
; allows you to select a program to be uninstalled.
;
; Be careful and enjoy!
;
; cj
;

dim $programs[100] ; increase this if you have more than 100 installed apps
$base="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$loud="UninstallString"
$quiet="QuietUninstallString"
$runstring=""
$disp=0

color w+/n "Unstallable Programs:" color w/n
$indexQ=0
while @error=0
	$indexQ=$indexQ+1
	$program=enumkey($base, $indexQ) ; get the next installed program's name

	$=readvalue("$base\$program", $quiet) ; does it have the Quiet Uninstall?
	if @error=0 ; YES
		$disp=$disp+1 ? if $disp<10 " " endif
		"$disp - Quiet Uninstall: $program"
		$programs[$disp]="$program" ; store its name for later
	endif

	$=readvalue("$base\$program", $loud) ; Does it have the loud install?
	if @error=0 ; YES
		$disp=$disp+1 ? if $disp<10 " " endif
		"$disp - "
		$programs[$disp]=$program ; store its name for later
		readvalue("$base\$program", "DisplayName") ; and display the Full name
	endif

	; this restores @error to 0 so that a failure to find the UninstallString
	; value does not prematurely end the EnumKey loop
	$=enumkey($base, $indexQ)
loop

? ? "Enter the number of the program you wish to Uninstall or Q to Quit : "
gets $which
if $which="Q" ? ? "That was close..." ? exit endif
? ? 
$choice=$programs[$which]
"You chose : " readvalue("$base\$choice", "DisplayName")
if @error<>0 "$choice" endif

? ? "Are you sure ?"
get $yn
if $yn="n" ? ? "That was close..." ? exit endif

 Toast app
$runstring=readvalue("$base\$choice", $quiet)
if @error<>0 $runstring=readvalue("$base\$choice", $loud) endif

;? ? "Running: $runstring" ? ; Uncomment this line and comment the next one
shell "%comspec% /c $runstring" ; if you want to see what would happen without it happening...

? ? "All done, thanks" ?

---

code:

---

 

;Uninstall Winamp
$LongKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\winamp\"
$exist = existkey($Longkey)
if $exist = 0
	"  Winamp Found.. Removing..."
	$UninstallStr = READVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\winamp","UninstallString")
	SHELL $UninstallStr + " -A"
	"Complete." ?
else
	"  Winamp Not installed." ?
endif

;Remove Winamp Directory
IF (EXIST ("C:\Program Files\winamp") = "1") 
	"  Winamp Folder Found...Removing..."
	cd "C:\Program Files\winamp"
	del "*.*"
	cd ".."
	rd "winamp"
	"Done." ?
endif


 

---

Let me know if you need any more help.