'-------------------------------------------------------
'检查license人有效期
'-------------------------------------------------------
dim LicenseServer
dim val

set LicenseServer = CreateObject( "LicenseServer.LicenseGenerator" )

call LicenseServer.Get( "cert1_days_to_expiry", val )
wscript.echo "Cert1 (License Signing Certificate) 在 " & val & " 天有效"

call LicenseServer.Get( "cert2_days_to_expiry", val )
wscript.echo "Cert2 (MS DRM License Server Root Certificate) 在 " & val & " 天有效"

set LicenseServer = nothing