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	joko	1.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