NtServices/ServiceControl/PauseService.bas

' 2001-12-09

Public Function PauseService(ServiceName As String) As Boolean
    
    Dim oSysInfo As New ActiveDs.WinNTSystemInfo
    Dim oComp As ActiveDs.IADsComputer
    Dim oSvcOp As ActiveDs.IADsServiceOperations
    Dim sCompName As String
    Dim sSvc As String
    Dim lRet As Boolean
    
    On Error GoTo errorhandler:
    
    sSvc = ServiceName
   
    sCompName = "WinNT://" & _
       oSysInfo.ComputerName & ",computer"
    
    Set oComp = GetObject(sCompName)
    Set oSvcOp = oComp.GetObject("Service", sSvc)
   oSvcOp.Pause
PauseService = True
Exit Function
errorhandler:
PauseService = False
End Function
1	' 2001-12-09
2
3	Public Function PauseService(ServiceName As String) As Boolean
4
5	Dim oSysInfo As New ActiveDs.WinNTSystemInfo
6	Dim oComp As ActiveDs.IADsComputer
7	Dim oSvcOp As ActiveDs.IADsServiceOperations
8	Dim sCompName As String
9	Dim sSvc As String
10	Dim lRet As Boolean
11
12	On Error GoTo errorhandler:
13
14	sSvc = ServiceName
15
16	sCompName = "WinNT://" & _
17	oSysInfo.ComputerName & ",computer"
18
19	Set oComp = GetObject(sCompName)
20	Set oSvcOp = oComp.GetObject("Service", sSvc)
21	oSvcOp.Pause
22	PauseService = True
23	Exit Function
24	errorhandler:
25	PauseService = False
26	End Function
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26