UnGame

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

UnGame

Logged in as: Guest

arrSession:exec spGetSession 2,16,58426

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> UnGame
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

UnGame - 3/26/2008 9:55:41 AM

psycho

Posts: 2
Score: 0
Joined: 3/25/2008
Status: offline

Been lurking for a while and finally decided to start posting up some scripts i've done

most of the scripts i've done are in support of my unit as i am in the US Army and am a sys admin for an entire Division / Task Force

Here is one that when run on a machine removes all Windows Games and traces of it as well

' Uninstall games from Windows XP 
' Written for MND-C 3ID G6
' by:  Psycho-J aka SGT Chapell, Jason
'============================================================================= 
Dim Fso, WshShell, sPrograms
Set Fso = CreateObject("Scripting.FileSystemObject") 
Set WshShell = WScript.CreateObject("WScript.Shell")
sPrograms = WshShell.SpecialFolders("AllUsersPrograms")

If (Fso.FolderExists(sPrograms & "\Games")) Then 
' Create file for uninstalling games 
Set f = Fso.CreateTextFile("c:\windows\inf\wmdtocm.txt", True) 
f.WriteLine("[Components]")
f.WriteLine("freecell=off")
f.WriteLine("hearts=off") 
f.WriteLine("minesweeper=off") 
f.WriteLine("msnexplr=off") 
f.WriteLine("pinball=off") 
f.WriteLine("solitaire=off") 
f.WriteLine("spider=off") 
f.WriteLine("zonegames=off") 
f.Close 
' Uninstalls games
WshShell.Run "sysocmgr.exe /i:c:\windows\inf\sysoc.inf /u:""c:\windows\inf\wmdtocm.txt"" /q", 1, True 
Fso.DeleteFolder(sPrograms & "\Games"), True 
' Removes file used for uninstalling games
Fso.DeleteFile("C:\windows\inf\wmdtocm.txt")
End If
MsgBox ("Complete")

Please leave a comment and let me know what you think.

< Message edited by psycho -- 3/30/2008 2:35:22 PM >

_____________________________

Windows is a set of 32 bit extensions on a 16 bit shell for an 8 bit OS using a 4 bit kernel made by a 2 bit company that can't stand 1 bit of competition