<script language="VBScript">
    
	Const sSubject	    = ""
	Const sEKU		    = ""
	Const lProviderType    = 77
	Const sProviderName    = ""
	Const lGenKeyFlags	    = 33554433
	Const lKeySpec	    = 1
	Const lHashAlgID	    = 32801
	Const sHashAlgOID	    = "1.2.643.7.1.1.2.2"
	Const sTemplateData    = ""
	Const bLM    = False
	Const bInstallChain = False
	Const ContextUser       = 1
	Const ContextMachine    = 2
	Const AllowNone = 0
	Const CRYPT_STRING_ANY      = &H00000007
	Const XCN_NCRYPT_ALLOW_EXPORT_FLAG          = 1
	Const XCN_NCRYPT_UI_NO_PROTECTION_FLAG      = 0	
	Const XCN_NCRYPT_UI_PROTECT_KEY_FLAG        = 1
	Const CERT_DATA_ENCIPHERMENT_KEY_USAGE    = &H10
	Const CERT_KEY_ENCIPHERMENT_KEY_USAGE     = &H20
	Const CERT_NON_REPUDIATION_KEY_USAGE      = &H40
	Const CERT_DIGITAL_SIGNATURE_KEY_USAGE    = &H80
    Const szOID_PKIX_KP_CODE_SIGNING            = "1.3.6.1.5.5.7.3.3"
    Const SPC_INDIVIDUAL_SP_KEY_PURPOSE_OBJID   = "1.3.6.1.4.1.311.2.1.21"
    Const SPC_COMMERCIAL_SP_KEY_PURPOSE_OBJID   = "1.3.6.1.4.1.311.2.1.22"