added samples
[windows-sources.git] / sdk / samples / Cardspace_samples / TechnologySamples / CardSpace / CreatingManagedCards / VB / CardWriter / DefaultValues.vb
blob276becd4374c7cc6184ee9dc3ed251ede1604924
1 Imports System
2 Imports System.Collections.Generic
3 Imports System.IdentityModel.Claims
4 Imports System.Text
6 Namespace ManagedCardWriter
7 Public Class DefaultValues
8 ' Methods
9 Shared Sub New()
10 DefaultValues.m_claims = New Dictionary(Of String, ClaimInfo)
11 DefaultValues.m_claims.Add(ClaimTypes.GivenName, New ClaimInfo(ClaimTypes.GivenName, "Given Name", "Given Name"))
12 DefaultValues.m_claims.Add(ClaimTypes.Surname, New ClaimInfo(ClaimTypes.Surname, "Last Name", "Last Name"))
13 DefaultValues.m_claims.Add(ClaimTypes.Email, New ClaimInfo(ClaimTypes.Email, "Email Address", "Email Address"))
14 DefaultValues.m_claims.Add(ClaimTypes.StreetAddress, New ClaimInfo(ClaimTypes.StreetAddress, "Street Address", "Street Address"))
15 DefaultValues.m_claims.Add(ClaimTypes.Locality, New ClaimInfo(ClaimTypes.Locality, "Locality", "Locality"))
16 DefaultValues.m_claims.Add(ClaimTypes.StateOrProvince, New ClaimInfo(ClaimTypes.StateOrProvince, "State or Province", "State or Province"))
17 DefaultValues.m_claims.Add(ClaimTypes.PostalCode, New ClaimInfo(ClaimTypes.PostalCode, "Postal Code", "Postal Code"))
18 DefaultValues.m_claims.Add(ClaimTypes.Country, New ClaimInfo(ClaimTypes.Country, "Country", "Country"))
19 DefaultValues.m_claims.Add(ClaimTypes.HomePhone, New ClaimInfo(ClaimTypes.HomePhone, "Home Phone", "Home Phone"))
20 DefaultValues.m_claims.Add(ClaimTypes.OtherPhone, New ClaimInfo(ClaimTypes.OtherPhone, "Other Phone", "Other Phone"))
21 DefaultValues.m_claims.Add(ClaimTypes.MobilePhone, New ClaimInfo(ClaimTypes.MobilePhone, "Mobile Phone", "Mobile Phone"))
22 DefaultValues.m_claims.Add(ClaimTypes.Gender, New ClaimInfo(ClaimTypes.Gender, "Gender", "Gender"))
23 DefaultValues.m_claims.Add(ClaimTypes.DateOfBirth, New ClaimInfo(ClaimTypes.DateOfBirth, "Date of Birth", "Date of Birth"))
24 DefaultValues.m_claims.Add(ClaimTypes.PPID, New ClaimInfo(ClaimTypes.PPID, "Site Specific ID", "Site Specific ID"))
25 DefaultValues.m_claims.Add(ClaimTypes.Webpage, New ClaimInfo(ClaimTypes.Webpage, "Webpage", "Webpage"))
26 End Sub
29 ' Properties
30 Public Shared ReadOnly Property Claims() As Dictionary(Of String, ClaimInfo)
31 Get
32 Return DefaultValues.m_claims
33 End Get
34 End Property
36 Public Shared ReadOnly Property ClaimsList() As String()
37 Get
38 Return New String() {ClaimTypes.GivenName, ClaimTypes.Surname, ClaimTypes.Email, ClaimTypes.StreetAddress, ClaimTypes.Locality, ClaimTypes.StateOrProvince, ClaimTypes.PostalCode, ClaimTypes.Country, ClaimTypes.HomePhone, ClaimTypes.OtherPhone, ClaimTypes.MobilePhone, ClaimTypes.Gender, ClaimTypes.DateOfBirth, ClaimTypes.PPID, ClaimTypes.Webpage}
39 End Get
40 End Property
42 Public Shared ReadOnly Property TokenTypeList() As String()
43 Get
44 Return New String() {"urn:oasis:names:tc:SAML:1.0:assertion", "http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.1#SAMLV1.1"}
45 End Get
46 End Property
49 ' Fields
50 Public Const CardId As String = "http://www.fabrikam.com/card/1"
51 Public Const CardName As String = "My new card"
52 Public Const CardVersion As String = "1"
53 Public Const Issuer As String = "http://localhost:4444/sts"
54 Public Const IssuerName As String = "Microsoft"
55 Public Const Language As String = "en-us"
56 Private Shared m_claims As Dictionary(Of String, ClaimInfo)
57 Public Const MexUri As String = "https://localhost:4445/sts/mex"
59 End Class
60 ' Nested Types
61 Public Enum CardType
62 ' Fields
63 KerberosAuth = 1
64 None = 4
65 SelfIssuedAuth = 2
66 SmartCard = 3
67 UserNamePassword = 0
68 End Enum
70 End Namespace