Q265003 Windows 2000 Overwrites or Damages an OS/2 Boot Manager Partition			
			
Q265365 FRS Creates Unneeded Folders in DFS Root Alternates			
			
Q265509 Ntldr Cannot Load Fragmented System Hive			
			
Q266247 Special Function Keys May Not Work on Dell Laptop Computers			
			
Q266251 Memory Dump Stops When the PAE Option Is Enabled			
			
Q266647 Drive Letters Automatically Assigned to Unrecognizable Partitions

....................................

Q264824	D
"			"	D
Q265003	D
"			"	D
Q265365	D
"			"	D
Q265509	D
"			"	D
Q266247	D
"			"	D
Q266251	D
"			"	D
Q266647	D
"			"	D
Q266704	D
"			"	D
Q266710	D
"			"	D

Q

cd C:\WINNT%\$NtUninstall

	D

$

"			"$

hotfix.exe -y -m -z %1

@echo off         
echo "UnInstalling Complex Microsoft Post SP2 HotFix (x86) at 30.09.2001 by babay for Windows 2000 (EN)"
echo --------------------------------------------------------------------------------
echo press any key to continue or Ctrl+C for abort uninstallation...
pause > NUL
         
         
cd Q276471$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ281767$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ282784$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ285156$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ285851$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ285985$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ286818$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ287397$        
hotfix.exe -y -m -z %1         
         
cd C:\WINNT%\$NtUninstallQ293826$        
hotfix.exe -y -m -z %1         

<?xml version="1.0" encoding="ISO-8859-1" ?>
<!-- 
    File:    delhfs.wsf
    Author:  Andrey Babkin
-->
<job id="Remove hotfixes">
	<?job error="false" debug="true" ?>
	<script language="JScript">
<![CDATA[
    
]]>
	</script>
	<script language="VBScript">
<![CDATA[
Option Explicit
	Dim Message, Title
	Dim WshShell, objEnv, fso, oDirs, oFolders, oFolder, oSubFolders, wsh
	Dim result
	Dim ArrCurrDirNumbers
	Dim counter, errCode
	Dim ArrCurrDir
	Const path = "%WINDIR%"
	Const patrn = "\$NtUninstallQ\d{6}\$"
Set WshShell = CreateObject("Wscript.Shell")
Set objEnv = WshShell.Environment("Process")
Set wsh = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set oFolders = fso.GetFolder(wsh.ExpandEnvironmentStrings(path))  
Set oSubFolders = oFolders.SubFolders
Title = "WSH program :" & WScript.ScriptName & " by Andrey Babkin"
For Each oFolder In oSubFolders
	oDirs = oDirs & oFolder.Name 
Next
ArrCurrDir = RegExpTest(patrn, oDirs)

Function RegExpTest(patrn, strng)
    Dim regEx, Match, Matches    ' Create variable.
    Dim retStr                   ' Result  
    Dim i
    Dim aItems()
    ArrCurrDirNumbers = 0
    Set regEx = New RegExp       ' Create a regular expression.
    regEx.Pattern = patrn        ' Set pattern.
    regEx.IgnoreCase = True      ' Set case insensitivity.
    regEx.Global = True          ' Set global applicability.
    Set Matches = regEx.Execute(strng)    ' Execute search.
    i = 1
    For Each Match In Matches    ' Iterate Matches collection.
    	ReDim Preserve aItems(i)
    	aItems(i-1) = Match.Value
		RetStr = RetStr & "Installed Hotfix :'" & Match.Value & "'." & vbCrLf
		i = i + 1
    Next
    counter = counter + 1
    If counter = 1 Then 
        RegExpTest = aItems
    Else
        RegExpTest = retStr          ' Return result.
        i = i - 1
		ArrCurrDirNumbers = i
    End If
End Function
Message = RegExpTest(patrn, oDirs) & vbCrLf & vbCrLf &_
"Automaticaly Uninstall All hotfix ?"& vbCrLf &_
"Note:To manual uninstall hotfix click """"No"""" "
result = MsgBox (Message, vbYesNoCancel + vbQuestion, Title)
Dim Text1, Text2, Text3, Text4, Text5
Text1 = "Click ""Ok"" to delete All hotfix"
Text2 = "Deleting hotfix Done." & vbCrLf &" Reboot System !"
Text3 = "Delete These hotfix : "
Text4 = "Deleting these HF Done !"
Text5 = "Bye !!!"
Dim n
n = 0
On Error Resume Next
Dim oFilePath
If Err.Number <> 0 Then
	MsgBox "Value doesn't exist"
	WScript.Quit
End If
Select Case result
	Case vbYes
	result = MsgBox (Text1, vbOkCancel + vbInformation, Title)
		If result = vbOk Then
		Do While n < ArrCurrDirNumbers
			oFilePath = oFolders & "\" & ArrCurrDir(n) & "\hotfix.exe /y /m /z"
			If (Not fso.FileExists("oFilePath")) Then	
				errCode = WshShell.Run(oFilePath, 1, True)
				WScript.Echo "Error code received: ", errCode
			End if			
			n = n + 1
		Loop
		WScript.Echo Text2
		end If  
	Case vbNo
	Dim counter1
		Do While n < ArrCurrDirNumbers
			oFilePath = oFolders & "\" & ArrCurrDir(n) & "\hotfix.exe /y /m /z"
			result = MsgBox (Text3 & Left(Right(ArrCurrDir(n),7),6) & " ?", vbOkCancel + vbQuestion, Title)
			If result = vbOk Then
				If (Not fso.FileExists("oFilePath")) Then
					errCode = WshShell.Run(oFilePath, 1, True)
					WScript.Echo "Error code received: ", errCode
	 				Counter1=Counter1 + 1
					WScript.Echo Text4
				End If 
			end If 
			n = n + 1
		Loop
		If Counter1 > 0 Then
			WScript.Echo Text2
		
		Else
			WScript.Echo Text5
		End If
	Case 2
	WScript.Echo Text5
End Select
]]>
	</script>
</job>