The following function will rename an entry.


Declare Function RasRenameEntry _
      Lib "rasapi32.dll" Alias "RasRenameEntryA" _
        (ByVal lpszPhonebook As String, _
        ByVal lpszOldEntry As String, _
        ByVal lpszNewEntry As String) As Long

If successful it will return 0.

The following is an example:

Dim rtn As Long
rtn = RasRenameEntry(vbNullString, "My Connection", "My New Name")
If rtn <> 0 Then
   MsgBox VBRASErrorHandler(rtn)
End If


See Also: Contents, Introduction, RasEnumEntries, RasErrorHandler.