http://www.microsoft.com/technet/tre...s/ScrSvc12.asp
Install a Service
Description
Installs a hypothetical service Db.exe.
Script Code
Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = False
Const NORMAL_ERROR_CONTROL = 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2"
Set objService = objWMIService.Get("Win32_BaseService"
errReturn = objService.Create("DbService", _
"Personnel Database", _
"c:\windows\system32\db.exe", _
OWN_PROCESS, _
NORMAL_ERROR_CONTROL, _
"Manual", _
NOT_INTERACTIVE, _
"NT AUTHORITY\LocalService", ""
Wscript.Echo errReturn
[s]Исправлено:
Thalt, 14:27 14-01-2004[/s]
Добавлено:
А вообще - SrvAny и instsrv.
