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.

How to Determine Ras Entry Settings

 Keywords: Element Settings RAS Connectiod Entry 

Question:

I cannot get the RAS extender to add a RAS connection that has the "Client for MS Networks" option checked (under Properties/Networking). Any idea what flag I need to set? I'm running Win2k... However, once I get this side working, then I will be moving on to Win9x.

Answer:

The best way to determine which options must be set:
  1. Manually create the RAS entry you want.

  2. Run the following code which gathers all the necessary information about the RAS entry.
    AddExtender("wwras34i.dll")
    raslist = RasItemize() 
    entryname = AskItemlist("Choose a RAS entry",raslist,@TAB,@UNSORTED,@SINGLE)
    
    allinfo=rasEntryInfo(entryname,'all')
    Arr_Values = Arrayize(allinfo,"|")
    Valuecount = ArrInfo(Arr_Values,6)
    
    elementlist="size|options|countryid|countrycode|areacode|phonenumber|ipaddr|ipaddrdns|ipaddrdnsalt|ipaddrwins|ipaddrwinsalt|framesize|"
    elementlist2="netprotocols|framingprotocol|script|autodialdll|autodialfunc|devicetype|devicename|x25padtype|x25address|x25facilities|x25userdata|"
    elementlist3="channels|subentries|dialmode|dialextrapercent|dialextrasampleseconds|hangupextrapercent|hangupextrasampleseconds|idledisconnectseconds|"
    elementlist4= "type|encryptiontype|customauthkey|customdialdll|vpnstrategy|options2|dnssuffix|tcpwindowsize|prerequisitepbk|prerequisiteentry|redialcount|redialpause"
    List_Elements = strcat(elementlist,elementlist2,elementlist3,elementlist4)
    
    Arr_Elements = Arrayize(List_Elements,"|")
    Elementcount = ArrInfo(Arr_Elements,6)
    
    list=""
    For x = 0 to Valuecount-1
     list = strcat(list, Strfix(Arr_Elements[x], " ",30),@Tab,Arr_Values[x],@CRLF)  
    
    Next 
    message("RasEntryInfo",list)
    exit
    
    
    ;;RESULTS FROM RASENTRRYINFO SCRIPT
    ;size = 2884
    ;options = "949747840"
    ;countryid = 1
    ;countrycode = 1
    ;areacode = ""
    ;phonenumber = "5551212"
    ;devicename = "Conexant HCF V90 56K RTAD Speakerphone PCI Modem"
    ;devicetype = "modem"
    ;ipaddr = "0.0.0.0"
    ;ipaddrdns = "0.0.0.0"
    ;ipaddrdnsalt = "0.0.0.0"
    ;ipaddrwins = "0.0.0.0"
    ;ipaddrwinsalt = "0.0.0.0"
    ;framesize = 0
    ;netprotocols = 4
    ;framingprotocol = 1
    ;script = ""
    ;autodialdll = ""
    ;autodialfunc = ""
    ;subentries = 0
    ;dialmode = 1
    ;dialextrapercent = 75
    ;dialextrasampleseconds = 120
    ;hangupextrapercent = 10
    ;hangupextrasampleseconds = 120
    ;idledisconnectseconds = 1200
    ;type = 1
    ;encryptiontype = 3
    ;customauthkey = 0
    ;customdialdll = ""
    ;vpnstrategy = 0
    

  3. Now you can use this information to create a RAS entry on the fly using the following code:
    AddExtender("wwras34i.dll")
    ;initalize structure ***IMPORTANT**
    RasEntrySet("","")
    
    RasEntrySet("options","949747840")  
    RasEntrySet("countryid",1)  
    RasEntrySet("countrycode",1)  
    RasEntrySet("areacode","")  
    RasEntrySet("phonenumber","6741205")  
    RasEntrySet("devicename","Conexant HCF V90 56K RTAD Speakerphone PCI Modem")  
    RasEntrySet("devicetype","modem")  
    RasEntrySet("ipaddr","0.0.0.0")  
    RasEntrySet("ipaddrdns","0.0.0.0")  
    RasEntrySet("ipaddrdnsalt","0.0.0.0")  
    RasEntrySet("ipaddrwins","0.0.0.0")  
    RasEntrySet("ipaddrwinsalt","0.0.0.0")  
    RasEntrySet("framesize",0)  
    RasEntrySet("netprotocols",4)  
    RasEntrySet("framingprotocol",1)  
    RasEntrySet("script","")  
    RasEntrySet("autodialdll","")  
    RasEntrySet("autodialfunc","")  
    RasEntrySet("subentries",0)  
    RasEntrySet("dialmode",1)  
    RasEntrySet("dialextrapercent",75)  
    RasEntrySet("dialextrasampleseconds",120)  
    RasEntrySet("idledisconnectseconds",1200)  
    RasEntrySet("type",1)  
    RasEntrySet("encryptiontype",3)  
    RasEntrySet("customauthkey",0)  
    RasEntrySet("customdialdll","")  
    RasEntrySet("vpnstrategy",0)  
    
    newentryname="MYTEST"
    
    ;Add New entry
    RasEntryAdd(newentryname, "fred", "yabadabadoo", 1, 0)
    Message("Done","New Ras Entry Created")
    exit
    

Article ID:   W15084
File Created: 2017:07:28:13:58:40
Last Updated: 2003:04:04:15:26:41