Jump to content



Welcome to AstaHost - Dear Guest , Please Register here to get Your own website. - Ask a Question / Express Opinion / Reply w/o Sign-Up!

Toggle shoutbox Shoutbox Open the Shoutbox in a popup

@  agyat : (23 May 2013 - 01:23 AM) Wow! Mr. Sb Back Home.
@  OpaQue : (23 May 2013 - 12:44 AM) Ting
@  OpaQue : (24 April 2013 - 02:44 PM) I guess, Time to run Mycent script.
@  OpaQue : (24 April 2013 - 02:43 PM) wow.. not much spam. except habatt posting lot of links.. :P
@  yordan : (23 April 2013 - 01:04 PM) You're welcome, agyat. Nice to have been helpful. Second lesson: try full words, "you" instead of "EW".
@  agyat : (23 April 2013 - 05:03 AM) @YORDAN: tHANK EW FOR YOUR FIRST LESSON.   :D
@  yordan : (22 April 2013 - 09:43 PM) @agyat : "why don't you help me", or "please help me", or "please teach us"
@  yordan : (22 April 2013 - 09:42 PM) welcome back, velma
@  velma : (22 April 2013 - 07:51 AM) **yawns** Good to be back, wonder what is going on here :)
@  agyat : (22 April 2013 - 03:50 AM) Oh! so, why don't help me learn english..
@  yordan : (21 April 2013 - 08:38 PM) The goal mentioned by shiu : "learning english, learning computer"
@  agyat : (21 April 2013 - 06:31 PM) WHAT GOAL?
@  yordan : (20 April 2013 - 10:39 AM) yes, that's our goal. simultaneouly learning English and teaching/learning computer using.
@  shiyu : (20 April 2013 - 07:30 AM) learning english,learning computer
@  yordan : (19 April 2013 - 01:11 PM) Oh, I see, it's just a trick in order to force people looking at your texte. Somehow smart, maybe.
@  agyat : (19 April 2013 - 02:54 AM) And of course I know it is not SEO friendly.
@  agyat : (19 April 2013 - 02:52 AM) There may be two possible answers for that ....


1) Shout was posted using mobile keypad.

2) To force people read content carefully and/or with more concentration.
@  agyat : (19 April 2013 - 02:49 AM) There may be two possible answers for that ....
@  yordan : (18 April 2013 - 09:35 PM) however, why this mixing of capital letters in the middle of your text?
@  agyat : (18 April 2013 - 11:10 AM) false feelings.

Replying to Remove Windows Update Uninstall Information


Post Options

    • Can't make it out? Click here to generate a new image

  or Cancel


Topic Summary

Posted 31 August 2010 - 01:17 AM

enhancementRemove Windows Update Uninstall Information

It would be great to display the output in a scrolling window with an acumulative total of amount of free space recovered. :)

Perhaps even an option of copying a .Reg file and the $NTUninstall folders to a network share for the ability to roll back a particular update if need be.

-reply by T_u_c_k_e_r_s

 


wutske

Posted 16 August 2008 - 12:27 PM

Nice script, but I think there are thousands of other programs that do the same (and I personaly prefer to remove these folders manualy, IF I remove them :mellow: ).

LegallyHigh

Posted 14 August 2008 - 10:19 PM

Nice job man, I wish I knew how to script like that. The only language I have some knowledge of is HTML, and it can't be used for doing much besides creating websites.

levimage

Posted 14 August 2008 - 10:02 PM

This seems cool. Maybe you could make some more scripts so when it comes to backing up the os or creating images, the images will be a lot smaller. Save space and make management easier. I always try to get rid of the pagefile.sys and the hibernation file. They take up a more space now days since computer/laptops use more memory.

Good job. :mellow:

toby

Posted 14 August 2008 - 11:09 AM

It's for rollbacks. Could you show some way of matching them up, so we can pick which to delete?

mastercomputers

Posted 14 August 2008 - 07:49 AM

Below is a script I created to remove those space taking $NtUninstall Folders from the Windows Directory as well as the entries in the Registry for them. It's not much space saving but at least it gets rid of the unnecessary scrolling that comes with it when looking in the Windows Folder.

Tested on Windows XP, Requires WScript and VBScript (which would be with most Windows OS)

$NtUninstall Folders contain the uninstall information required if you chose to remove a Windows Updated Component, I don't know anyone who needs to do this, and usually if you do, you would be required to remove it the second it's been installed because it should give you problems instantly. This script will only remove those that are present now, so if you do another Windows Update, you'll end up with newer folders so if you have problems with the new updates, least you have the option of going into Add/Remove to remove the new update. If you have no problems, you can re-use this script to remove them.

Save the script as RemoveWindowsUninstall.vbs in Notepad or any Text Editor of your choice (Not Word Processor Documents)

Option Explicit
Dim o, oShell, nConfirm
Set o = WScript.Application
o.Interactive = True
Set oShell = CreateObject("WScript.Shell")
nConfirm = oShell.Popup("Do you want to remove Windows Update Uninstall Files?", 0, "Remove Windows Update Uninstall Files", 4 + 32)
If nConfirm = 7 Then
	o.Quit 0
End If
Dim oFSO, sWinDir, oFolder, oDictionary, oSubFolder, sFolderName, sFolderPath, sUpdateName, sDeleted
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)
sDeleted = vbNullString
Set oFolder = oFSO.GetFolder(sWinDir)
Set oDictionary = CreateObject("Scripting.Dictionary")
For Each oSubFolder In oFolder.SubFolders
	sFolderName = LCase(oSubFolder.Name)
	sFolderPath = LCase(oSubFolder.Path)
	If Left(sFolderName, 12) = "$ntuninstall" And Mid(sFolderName, 13, 2) = "kb" Or Mid(sFolderName, 13, 2) = "q" Then
		sUpdateName = Mid(sFolderName, 13, Len(sFolderName) - 13)
		oDictionary.Add sUpdateName, sFolderPath
	End If
Next
For Each sUpdateName in oDictionary.Keys
	sDeleted = sDeleted & vbCrLF & sUpdateName
	sFolderPath = oDictionary.Item(sUpdateName)
On Error Resume Next
	oShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & sUpdateName & "\"
On Error Goto 0
	oShell.Run "%ComSpec% /C RD /S /Q " & Chr(34) & sFolderPath & Chr(34), 0, True
Next
If Len(sDeleted) > 0 Then
	MsgBox "The uninstall data for the following updates are now removed:" & vbCrLf & UCase(sDeleted), vbOKOnly + vbInformation, "Files Removed"
	sDeleted = vbNullString
Else
	MsgBox "No Windows Update Folders found for removal", vbOKOnly + vbInformation, "Nothing To Do"
End If
o.Quit 0

Just run the program, and those pesky $NtUninstalls should be gone, I know there are other folders that could be removed too, but I'll look at doing that another time, the majority is made up of these $NtUninstalls.

I will be working on other scripts to remove Temporary Files, Cookies, Prefetch, Recent and any other nonsense I come across as I need to create a very basic clean up script that does all the tasks people usually need to do if they want to get some space back. So stay tune for that.

Cheers,


MC

Review the complete topic (launches new window)