'Rascredentials
Private type rascredentials
Dwsize as long
Dwmask as long
Szusername as string * 257 'unlen + 1
Szpassword as string * 257 'pwlen + 1
Szdomain as string * 16 'dnlen + 1
End type
'Rascredmask
Public Enum rascredmask
Rascm_username = & H1 &
Rascm_password = & H2 &
Rascm_domain = & H4 &
Rascm_defaultcreds = & H8 &
Rascm_presharedkey = & H10 &
Rascm_serverpresharedkey = & H20 &
Rascm_ddmpresharedkey = & h40 &
End Enum
'Rasentryoptions
Public Enum rasentryoptions
Raseo_usecountryandareacodes = & H1
Raseo_specificipaddr = & H2
Raseo_specificnameservers = & h4
Raseo_ipheadercompression = & H8
Raseo_remotedefagateway gateway = & H10
Raseo_disablelcpextensions = & H20
Raseo_terminalbeforedial = & h40
Raseo_terminalafterdial = & h80
Raseo_modemlights = & h100
Raseo_swcompression = & h200
Raseo_requireencryptedpw = & H400
Raseo_requiremsencryptedpw = & h800
Raseo_requiredataencryption = & h1000
Raseo_networklogon = & h2000
Raseo_uselogoncredentials = & h4000
Raseo_promotealternates = & h8000
Raseo_securelocalfiles = & h10000
Raseo_requireeap = & h20000
Raseo_requirepap = & h40000
Raseo_requirespap = & h80000
Raseo_custom = & h100000
Raseo_previewphonenumber = & h200000
Raseo_sharedphonenumbers = & h800000
Raseo_previewuserpw = & h000000
Raseo_previewdomain = & h2000000
Raseo_showdialingprogress = & h4000000
Raseo_requirechap = & h8000000
Raseo_requiremschap = & hsf-000
Raseo_requiremschap2 = & h20000000
Raseo_requirew95mschap = & h40000000
Raseo_customscript = & h80000000
End Enum
'Rasentryoptions2
Public Enum rasentryoptions2
Raseo2_securefileandprint = & H1
Raseo2_secureclientformsnet = & H2
Raseo2_dontnegotiatemultilink = & h4
Raseo2_dontuserascredentials = & H8
Raseo2_usepresharedkey = & H10
Raseo2_internet = & H20
Raseo2_disablenbtoverip = & h40
Raseo2_useglobaldevicesettings = & h80
Raseo2_reconnectifdropped = & h100
Raseo2_sharephonenumbers = & h200
Raseo2_secureroutingcompartment = & H400
Raseo2_4256specificnameserver = & h800
Raseo2_00006remotedefagateway gateway = & h1000
Raseo2_registeripwithdns = & h2000
Raseo2_usednssuffixforregistration = & h4000
Raseo2_00004explicitmetric = & h8000
Raseo2_00006explicitmetric = & h10000
Raseo2_disableikenameekucheck = & h20000
End Enum
'Dwencryptiontype: Data Encryption type
Private const et_none as long = 0' no encryption
Private const et_require as long = 1 'require Encryption
Private const et_requiremax as long = 2 'require Max Encryption
Private const et_optional as long = 3 'do encryption if possible. None OK.
'Dwvpnstrategy VPN type
Private const vs_default as long = 0 'default (PPTP for now)
Private const vs_pptponly as long = 1' only PPTP is attempted.
Private const vs_pptpfirst as long = 2 'pptp is tried first.
Private const vs_l2tponly as long = 3' only L2TP is attempted.
Private const vs_l2tpfirst as long = 4 'l2tp is tried first.
'Dwtype dialing type
Private const raset_phone as long = 1 'phone lines: Modem, ISDN, X.25, etc
Private const raset_vpn as long = 2 'virtual Private Network
Private const raset_direct as long = 3 'direct CONNECT: serial, parallel
Private const raset_internet as long = 4' Basecamp Internet
Private const raset_broadband as long = 5' broadband
'Dial-up/network disconnection
Private const internet_dialstate_disconnected = 1
Private const internet_autodial_force_online = 1
Private const internet_autodial_force_unattended = 2
Private const internet_dial_unattended = & h8000