WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

RAS

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:

How can I decifer which option flags have been set on a particular Ras entry?

Answer:

Here is a UDF that might help.
#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: 2017:07:28:12:58:41
Last Updated: 2002:09:05:12:49:27