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.

RasEntrySet Ras Copy Problem

 Keywords: RAS Copy Options Security RasEntrySet 

Question:

There appears to be a problem with RasEntrySet surrounding the bit flags in the Options section. I am running Windows 2000 and when I run the following code, the copy does not work correctly. When looking at the values between the source and the copy, the 'option' bit values are different.

; Similar to a RASCOPY, but creates an entry 
; from scratch using the information retrieved 
; from an existing entry
AddExtender("wwras34i.dll")
list = RasItemize() 
entryname = AskItemlist("Choose a RAS entry",list,@TAB,@UNSORTED,@SINGLE)

allinfo=rasEntryInfo(entryname,'all')
Arr_Values = Arrayize(allinfo,"|")
Valuecount = ArrInfo(Arr_Values,6)

elementlist="size|options|countryid|countrycode|areacode|phonenumber|devicename|devicetype|"
elementlist2="ipaddr|ipaddrdns|ipaddrdnsalt|ipaddrwins|ipaddrwinsalt|framesize|netprotocols|framingprotocol|script|autodialdll|autodialfunc|"
elementlist3="subentries|dialmode|dialextrapercent|dialextrasampleseconds|hangupextrapercent|hangupextrasampleseconds|idledisconnectseconds|"
elementlist4= "type|encryptiontype|customauthkey|customdialdll|vpnstrategy"

List_Elements = strcat(elementlist,elementlist2,elementlist3,elementlist4)
Arr_Elements = Arrayize(List_Elements,"|")
Elementcount = ArrInfo(Arr_Elements,6)

;initalize structure ***IMPORTANT**
RasEntrySet("","")

For x = 0 to Valuecount-1
	RasEntrySet(Arr_Elements[x],Arr_Values[x]) 
Next 

newentryname="MyCopy of %entryname%"

;Add New entry
RasEntryAdd(newentryname, "", "", "", 0)
Message("Done","New Ras Entry Created")
exit

Answer:

Yes I have also seen this problem. It seems as though any Ras entry created with the Ras APIs, seem to have the RASEO_Custom flag automatically set. I am not sure why this is. After an exhaustive search, as to why the RASEO_Custom option flag gets automatically set on Win2000, I have come up with nothing.

It seems as though RasSetEntryProperties API is some how modifying the option flags as a 'public service'. It seems to be connected to whether or not some other flags are set.


Article ID:   W15421
File Created: 2017:07:28:13:58:40
Last Updated: 2003:05:13:11:27:38