国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > VBScript > 正文

WMI 創(chuàng)建系統(tǒng)服務(wù)的實(shí)現(xiàn)代碼(Automatic)

2019-10-26 18:06:28
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

復(fù)制代碼 代碼如下:

Const OWN_PROCESS = &H10
Const ERR_CONTROL = &H2
Const INTERACTIVE = False

ServiceName = "TestService"
DisplayName = "This is a test service."
InstallPath = "c:/windows/system32/Test.exe"

Set ObjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!//./root/cimv2")

Set ObjSvr = ObjWMI.Get("Win32_Service")
Return = ObjSvr.Create(ServiceName, DisplayName, InstallPath, OWN_PROCESS, ERR_CONTROL, "Automatic", INTERACTIVE, "LocalSystem", "")
If (Return = 0) Then
 Wscript.Echo "Service create success."
 Wscript.Echo "ServiceName: " & ServiceName
 Wscript.Echo "DisplayName: " & DisplayName
 Wscript.Echo "InstallPath: " & InstallPath
 Wscript.Echo ""
Else
 Wscript.Echo "Service create failure(" & Return & ")."
 Wscript.Quit(Return)
End If
Wscript.Quit

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 新乡市| 神木县| 宜宾县| 南岸区| 山阴县| 新巴尔虎左旗| 日照市| 专栏| 抚州市| 吴忠市| 厦门市| 湖北省| 会东县| 赫章县| 保德县| 崇明县| 公主岭市| 海林市| 长治县| 台江县| 青川县| 确山县| 鄯善县| 哈尔滨市| 克山县| 班戈县| 唐河县| 温宿县| 扶余县| 益阳市| 新营市| 孝义市| 黑龙江省| 渝中区| 库尔勒市| 师宗县| 鲜城| 开鲁县| 友谊县| 神农架林区| 漳浦县|