Database Search

TechHome

• !!NEWSFLASH!!
• Check if RAS is Installed
• Create a Dial Up Networking - Ras Connectiod
• Error 205 - Unable to Create Phonebook Entry
• How to Determine Ras Entry Settings
• List All Non Default Phonebook Entries
• List RAS Capable Devices
• Modifying 'Options' of an existing connectoid
• Modifying NetProtocols of an existing connectoid
• Modifying Options of an existing connectoid
• RAS Alternate Numbers
• RasDial 702 Error Ras Entry with Terminal Window
• RasDial with 2 ISDN Channels
• RasEntryAdd Error 220
• RasEntrySet and Setting DNS IP
• RasEntrySet Ras Copy Problem
• RASEO_TerminalAfterDial Problems
• RasItemize Issue on Vista and Newer
• Set Domain in a RAS Connectoid in XP
• Set Pre-Shared Key for VPN
• Set RAS Redial Attempts
• UDF - List Ras Options
• UDF That Gets the Ras Error Description

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

UDF - List Ras Options

 Keywords:  get list ras check options option

Question:

Answer:

#DefineFunction UDFListRasOptions(option)
	str = ""
	if option == 0 || Option == ""
		str = "No Options"
		Return str
	endif

	if option & 2147483648 then str = StrCat(str,@tab, "RASEO_CustomScript")
	if option & 1073741824 then str = StrCat(str,@tab, "RASEO_RequireW95MSCHAP")
	if option & 536870912 then str = StrCat(str,@tab, "RASEO_RequireMsCHAP2")
	if option & 268435456 then str = StrCat(str,@tab, "RASEO_RequireMsCHAP")
	if option & 134217728 then str = StrCat(str,@tab, "RASEO_RequireCHAP")
	if option & 67108864 then str = StrCat(str,@tab, "RASEO_ShowDialingProgress")
	if option & 33554432 then str = StrCat(str,@tab, "RASEO_PreviewDomain")
	if option & 16777216 then str = StrCat(str,@tab, "RASEO_PreviewUserPw")
	if option & 8388608 then str = StrCat(str,@tab, "RASEO_SharedPhoneNumbers")
	if option & 2097152 then str = StrCat(str,@tab, "RASEO_PreviewPhoneNumber")
	if option & 1048576 then str = StrCat(str,@tab, "RASEO_Custom")
	if option & 524288 then str = StrCat(str,@tab, "RASEO_RequireSPAP")
	if option & 262144 then str = StrCat(str,@tab, "RASEO_RequirePAP")
	if option & 131072 then str = StrCat(str,@tab, "RASEO_RequireEAP")
	if option & 65536 then str = StrCat(str,@tab, "RASEO_SecureLocalFiles")	
	if option & 32768 then str = StrCat(str,@tab, "RASEO_PromoteAlternates")
	if option & 16384 then str = StrCat(str,@tab, "RASEO_UseLogonCredentials")
	if option & 8192 then str = StrCat(str,@tab, "RASEO_NetworkLogon ")
	if option & 4096 then str = StrCat(str,@tab, "RASEO_RequireDataEncryption")
	if option & 2048 then str = StrCat(str,@tab, "RASEO_RequireMsEncryptedPw")
	if option & 1024 then str = StrCat(str,@tab, "RASEO_RequireEncryptedPw")
	if option & 512 then str = StrCat(str,@tab, "RASEO_SwCompression ")
	if option & 256 then str = StrCat(str,@tab, "RASEO_ModemLights")
	if option & 128 then str = StrCat(str,@tab, "RASEO_TerminalAfterDial")
	if option & 64 then str = StrCat(str,@tab, "RASEO_TerminalBeforeDial")
	if option & 32 then str = StrCat(str,@tab, "RASEO_DisableLcpExtensions")
	if option & 16 then str = StrCat(str,@tab, "RASEO_RemoteDefaultGateway")
	if option & 8 then str = StrCat(str,@tab, "RASEO_IpHeaderCompression")
	if option & 4 then str = StrCat(str,@tab, "RASEO_SpecificNameServers")
	if option & 2 then str = StrCat(str,@tab, "RASEO_SpecificIpAddr")
	if option & 1 then str = StrCat(str,@tab, "RASEO_UseCountryAndAreaCodes")
	str = StrTrim(str)
	Return str
#EndFunction

AddExtender("wwras34i.dll")
list=RasItemize()
entryname = AskItemlist("Choose a Ras Entry",list,@TAB,@UNSORTED, @SINGLE)
options=RasEntryInfo(entryname,"Options")
list = UDFListRasOptions(options)
AskItemList(StrCat(entryname," Options (",options,")"), list, @tab, @unsorted, @single)
exit

Article ID:   W15088

File Created: 2002:09:05:13:49:28

Last Updated: 2002:09:05:13:49:28