windows-server-2003/enduser/sakit/sak/plugins/services/script/service_dispatch.asp

<%@ Language=VBScript   %>
<%	Option Explicit
	'-------------------------------------------------------------------------
	' service_dispatch.asp		 This is the customised page which acts as a 
	'							 intemediate page for redirecting to respective pages
	'							 (with task that to be done)							
	'
	' Copyright (c) Microsoft Corporation.  All rights reserved. 
	'
	' Date					Description
	' 09 Aug 2000			Creation Date
	' 15 mar 2001			Creation Date
	'-------------------------------------------------------------------------
%>
	<!-- #include virtual="/admin/inc_framework.asp" -->
	<!-- #include file="loc_services.asp" -->
<%
	'-------------------------------------------------------------------------
	'Global Variables
	'-------------------------------------------------------------------------
	Dim G_strURL					'url obtained				
	Dim G_strPageType				'page type to get from registry
	Dim G_FlagNotDisable			'flag value for not disable key
	Dim G_arrPkeyvalue				'pkey array
	Dim G_strPkeyValue				'pKey value 
	Dim G_PageTitle					'page title on browser that has to be passed through query string	
	
	Const CONST_SERVICES_CONTAINER = "SERVICES"
	Const CONST_FLAGNOTDISABLE = 1	'notdisable reg key value - service cannot disable 
	
	G_arrPkeyvalue	= split(Request.QueryString("Pkey") ,"~")
	G_strPkeyValue  = G_arrPkeyvalue(0)
		
	'to get url,page type from registry
	Call GetServicePropertyURL(G_strPkeyValue, G_strURL, G_strPageType)
	G_strURL = m_VirtualRoot + G_strURL
	
	'page url is set and redirecting to the respective page depending on the request 
	Call setPageURL()
	
	'-------------------------------------------------------------------------
	' Function name:	setPageURL
	' Description:		page url is set and redirecting to the respective 
	'					page depending on the request  
	' Input Variables:	None
	' Output Variables:	None
	' Return Values:	None
	' Global Variables: strReturnUrl,strPageRedirectURL
	'-------------------------------------------------------------------------
	Sub setPageURL()
	
		Dim strPkeyvalue					'pkey value
		Dim strReturnUrl					'return url
			
		Dim tab1							'tab1
		Dim tab2							'tab2
		
		'getting tab 1 and tab2 values
		tab1 = GetTab1()
		tab2 = GetTab2()	
			
		'obtaining qurystring variables
		strPkeyvalue = G_strPkeyValue 
		

		'return url obtained from previous page- query string
		strReturnUrl = Request.QueryString("ReturnUrl")

		Call SA_MungeURL(strReturnUrl, "service", "")
			
		'properties page  -- on clicking properties page
		'Frame set url
		If ( 0 = StrComp(UCase(G_strPageType), "FRAMESET", vbTextCompare)) Then
			Dim strFrameSetURL
			
			' URL for requested page
			If ( Len(strPkeyvalue ) > 0 ) Then
				Call SA_MungeURL(G_strURL, "PKey", strPkeyvalue)
			End If

			Call SA_MungeURL(G_strURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())

			'
			' Frameset for this page
				
			strFrameSetURL = m_VirtualRoot + "sh_taskframes.asp"	
			
			'appending the title to the url
			Call SA_MungeURL(strFrameSetURL, "Title", G_PageTitle)
			
			Call SA_MungeURL(strFrameSetURL, "URL", G_strURL)
			
			If ( Len(tab1) > 0 ) Then
				Call SA_MungeURL(strFrameSetURL, "Tab1", tab1)
			End If
				
			If ( Len(tab2) > 0 ) Then
				Call SA_MungeURL(strFrameSetURL, "Tab2", tab2)
			End If
				
			Call SA_MungeURL(strFrameSetURL, "ReturnUrl", strReturnUrl) 
			Call SA_MungeURL(strFrameSetURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())
				
			SA_TraceOut "SERVICE_DISPATCH", "Redirect to frameset URL: " + strFrameSetURL
			
			'redirecting to properties page
			Response.Redirect ( strFrameSetURL )
		Else
			'appending the title to the url
			Call SA_MungeURL(G_strURL, "Title", G_PageTitle)
			
			Call SA_MungeURL(G_strURL, "PKey", strPkeyvalue)
			SA_TraceOut "SERVICE_DISPATCH", "Redirect to normal page URL: " + G_strURL
				
			'adding the return url content
			Call SA_MungeURL(G_strURL, "ReturnUrl", strReturnUrl) 
				
			Call SA_MungeURL(G_strURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())

			'redirecting to no properties page --when there no configuration properties for the selected service
			Response.Redirect( G_strURL )
		End If
	
	End Sub
	
	'-------------------------------------------------------------------------
	' Function name:	IsSameElementID
	' Description:		Compares 2 service names and returns true if they are
	'					same else false
	' Input Variables:	sElementID1 - System Service 
	'					sElementID2 - Manged service 
	' Output Variables:	None
	' Return Values:	True if equals else false
	' Global Variables: None
	'-------------------------------------------------------------------------
	Function IsSameElementID(ByVal sElementID1, ByVal sElementID2)
		Err.Clear
		on error resume next
		
		Dim s1, s2
		s1 = LCase(Trim(sElementID1))
		s2 = LCase(Trim(sElementID2))
		IsSameElementID = CBool(s1 = s2)
		
	End Function

	'-------------------------------------------------------------------------
	' Function name:	GetServicePropertyURL
	' Description:		Serves in getting the Service URL from Registry.
	' Input Variables:	strServiceName,strServicePropURL,G_strPageType
	' Output Variables:	strServicePropURL,G_strPageType
	' Return Values:	None
	' Global Variables: 1/0
	'-------------------------------------------------------------------------
	Function GetServicePropertyURL(ByVal strServiceName, ByRef strServicePropURL, ByRef G_strPageType)
	
	    Dim sElementID	'element id
	    Dim objElement	'element object 
		Dim objManagedServices	'services obtained from registry
		
	    Err.Clear
		on error resume next

		GetServicePropertyURL = 0
		
		strServicePropURL = ""
		Set objManagedServices = SA_GetElements(CONST_SERVICES_CONTAINER)

	    For Each objElement In objManagedServices
			sElementID = objElement.GetProperty("ServiceName")
	        If IsSameElementID(sElementID, strServiceName) Then
	            strServicePropURL =  objElement.GetProperty("URL")
	            G_strPageType = objElement.GetProperty("PageType")
	            If ( Err.Number <> 0 ) Then
	            	SA_TraceOut "SERVICE_DISPATCH", "GetServicePropertyURL encountered error: " + CStr(Hex(Err.Number))
	            End If
	            GetServicePropertyURL = 1
	             'getting the flag for cannot disable the service
	            G_FlagNotDisable = objElement.GetProperty("NotDisable")
	            'getting the title 
	            G_PageTitle =  SA_GetLocString(objElement.GetProperty("Source"), objElement.GetProperty("ServiceNameRID"), "") & " " & L_TASKTITLE_TEXT
		    	Exit For
	        End If
	        
	    Next
	  
		Set objManagedServices = nothing  
		
		If GetServicePropertyURL <> 1 Then
			SA_TraceOut "SERVICE_DISPATCH", "Cound not locate Service Specific URL for service: " + strServiceName
		End If
		
	End Function
	
	'-------------------------------------------------------------------------
	' Function name:	GetServiceState
	' Description:		Serves in getting the Service status
	' Input Variables:	strServiceName
	' Output Variables:	None
	' Return Values:	Returns the state of the service
	' Global Variables: None
	'-------------------------------------------------------------------------
	Function GetServiceState(strServicename)
		Err.Clear
		On Error Resume Next
		
		Dim objService		'services list
		Dim strWMIPath		'wmi path 
		Dim objWMIService	'wmi object

		GetServiceState = ""
		
		strWMIPath = "Win32_Service.Name=" & chr(34) & strServicename & chr(34)
		
		'connecting to WMI
		Set objWMIService = GetWMIConnection(CONST_WMI_WIN32_NAMESPACE)
		If ( Err.Number <> 0 ) Then
			Call SA_TraceOut(SA_GetScriptFileName(), "WMI Connection error: " & Hex(Err.Number) & " " & Err.Description)
			Exit Function
		End If
		set objService = objWMIService.get(strWMIPath)
		If ( Err.Number <> 0 ) Then
			Call SA_TraceOut(SA_GetScriptFileName(), "WMI.get(" & strWMIPath & " ) error: " & Hex(Err.Number) & " " & Err.Description)
			Exit Function
		End If
		
		GetServiceState = objService.StartMode
		If ( Err.Number <> 0 ) Then
			Call SA_TraceOut(SA_GetScriptFileName(), "objService.StartMode error: " & Hex(Err.Number) & " " & Err.Description)
			Exit Function
		End If
		
		Set objService = Nothing
		Set objWMIService = Nothing
	End Function
	
	'-------------------------------------------------------------------------
	' Function name:	CheckServiceStatus
	' Description:		Serves in getting the Service status
	' Input Variables:	strRequest,strService
	' Output Variables:	None
	' Return Values:	True- when present service status is the same as requested.
	'					False- when present service status is not the same as requested.
	' Global Variables: None
	'-------------------------------------------------------------------------
	Function CheckServiceStatus(Byval strRequest,Byval strService)
		
		Dim strServiceStatus	'service state variable
		
		Const CONST_ENABLE = "Enable"
		Const CONST_DISABLE = "Disable"
		Const CONST_AUTO = "Auto"
		Const CONST_DISABLED = "Disabled"
			
		'services status is obtained by given input
		If lcase(strRequest) = lcase(CONST_ENABLE) then
			 strRequest = CONST_AUTO
		Else IF lcase(strRequest) = lcase(CONST_DISABLE) then
			strRequest = CONST_DISABLED
			End IF
		End If	
			 
		'gets the service state 
		strServiceStatus  = GetServiceState(strService)
		
		'check if the present service status is the same as requested.
		If lcase(strRequest) = lcase(strServiceStatus) then
			CheckServiceStatus = True
		Else
			CheckServiceStatus = False		
		End if
		
	End Function
	%>