----------COPY EVERYTHING BELOW THIS LINE----------

'This script is used to remove a service from Services.msc
'Cheyenne Harden 12.18.06

strComputer = "."
strService = inputbox("Type in the service to be removed.")
If strService > "" Then
strService2 = "'" & strService & "'"

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service Where Name = "& strService2 & " ")

For Each objService in colListOfServices
    'objService.StopService()   ' used for testing
    objService.Delete()
Next

Else
Wscript.Echo "You did not type in a service name."
Wscript.Quit

End If

Wscript.Echo strService & "Removed"

----------COPY EVERYTHING ABOVE THIS LINE----------

PLEASE MAKE SURE NO WORD WRAPPING IS HAPPENING IN YOUR SCRIPT!!!

To make this script work you will need one things!

1. You will need to have Admin privlidges on the computer.

This information is provided "AS IS" with no warranties expressed or implied.

Comments

Add New

Write comment
Name:
Email:
Title:
	Please input the anti-spam code that you can read in the image.

Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."