32 lines
1.2 KiB
Plaintext
32 lines
1.2 KiB
Plaintext
' Copyright (c) Microsoft Corporation, All Rights Reserved
|
|
'***************************************************************************
|
|
'
|
|
' WMI Sample Script - Delete a service (VBScript)
|
|
'
|
|
' This script demonstrates how to delete a specific service from instances of
|
|
' Win32_Service.
|
|
'
|
|
' NOTE: This script only applies to NT-based systems since Win9x does support services
|
|
'
|
|
' NOTE: Deleting a service is a permanent change to the system and this script should
|
|
' be used with caution. To help avoid users from accidently deleting a useful
|
|
' service, the script has been created with the string "MyService" as the name of
|
|
' the service to be deleted. Change this to the name of the service you wish to
|
|
' delete but be sure you wish to permanently remove the service before using this
|
|
' script.
|
|
'
|
|
'
|
|
'
|
|
'***************************************************************************
|
|
|
|
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='MyService'")
|
|
|
|
for each Service in ServiceSet
|
|
RetVal = Service.Delete()
|
|
if RetVal = 0 then
|
|
WScript.Echo "Service deleted"
|
|
else
|
|
WScript.Echo "Delete failed: " & RetVal
|
|
end if
|
|
next
|