弹窗交互式的删除服务的脚本
有些病毒是以服务的形式存在的，也有些服务是不小心装上去又不知道怎么卸载的，使用此脚本，运行后输入对应的服务名，就可以删除相应的服务了。查服务时可以通过命令services.msc查看，希望对大家有用
) E, U6 K( T1 [- z
6 D+ a$ U8 H" ?6 K) I6 `7 W$ tstrComputer = ".") }, i8 q w8 e$ T
messageinfo = "输入要删除的服务名称"&vbNewLine&"例: messenger"
* {( A) f/ p" s3 ^# k/ H" ]; e( NstrSubnet = InputBox (messageinfo,default)
: U$ i* T: U' B9 d: [6 R! T; ] If strSubnet="" Then
* i( B) N8 W; L# } WScript.Echo("服务名称不能为空")5 _7 t8 }( y7 l; W8 I a
Else
6 z8 d% ]% A3 t* }# ^# C) K/ }; Z" b Set objWMIService = GetObject("winmgmts:" _1 s5 V5 {8 ~/ C. L8 m3 u c) W
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
0 w. E' b, M: l+ a2 N Set colListOfServices = objWMIService.ExecQuery _. y$ b" o. K. h& h, l! k. c1 e+ Z$ p
("Select * from Win32_Service Where Name = '"&strSubnet&"'")7 Z2 M& f1 P1 d8 }( d
For Each objService in colListOfServices
- Y3 K L5 p! p2 \" V( D S objService.StopService()) d5 F q% g' i# h! p9 X
objService.Delete()8 K8 g! X" z" c" S
Next# c' k& t% H0 C4 s! y; J2 s9 P
End If
