Download Visual Build Professional Help

Scripting
311
execute rights,
' otherwise specify a valid username/password for the remote server
Function vbld_RemoteStartService(strServer, strServiceName, strUserName,
strPassword)
Dim objService
Set objService = vbld_GetService(strServer, strServiceName,
strUserName, strPassword)
vbld_RemoteStartService = (objService.StartService() = 0)
End Function
' stop a remote service, returning True if stopped
' use "", "" for username and password if the current user has remote
execute rights,
' otherwise specify a valid username/password for the remote server
Function vbld_RemoteStopService(strServer, strServiceName, strUserName,
strPassword)
Dim objService
Set objService = vbld_GetService(strServer, strServiceName,
strUserName, strPassword)
vbld_RemoteStopService = (objService.StopService() = 0)
End Function
' create/update a COM+ application, returning True
' if it did not exist
Function vbld_CreateApplication(strName, blnServer)
Const COMAdminActivationInproc = 0
Const COMAdminActivationLocal = 1
Dim cllApps, objApp, i
vbld_CreateApplication = False
Set cllApps = vbld_ApplicationCollection
i = vbld_FindCollectionIndex(cllApps, strName)
If i >= 0 Then
' update existing item if found
Set objApp = cllApps.Item(i)
Else
' add new app if not found
Set objApp = cllApps.Add
objApp.Value("Name") = strName
vbld_CreateApplication = True
End If
If blnServer Then
objApp.Value("Activation") = COMAdminActivationLocal
Else
objApp.Value("Activation") = COMAdminActivationInproc
End If
cllApps.SaveChanges
End Function
' delete a COM+ application, returning True
' if it existed
Function vbld_DeleteApplication(strName)
Copyright © 1999-2015 Kinook Software, Inc.