Dim oTopUserGateway, oCardType
Dim rsCardType
DIM CCEnabled


	Set oTopUserGateway = Wscript.CreateObject("HELM.CUserGateway")
	CCEnabled = oTopUserGateway.inAgreement
	If Not err.number=0 Then 
		CCEnabled=False
		err.Clear
	Else
		Wscript.Echo "CC is ENABLED"
	End If
	Set oTopUserGateway = Nothing


	Set oCardType = Wscript.CreateObject("HELM.CCardType")
	Set rsCardType = oCardType.AvailableCardTypesEx("ADMIN")
	If Not rsCardType.EOF Then
		Wscript.Echo "Card Types found"
	Else
		Wscript.Echo "No Card Types found"
	End If

	Set rsCardType = Nothing
	Set oCardType = Nothing