NetShareEnum Error 87 in Win98

[Jean-Marc St-Hilaire]

I need to access Windows API NetShareEnum. It is working fine in the post
Win98 version but the Win98 function is returning me error number 87
(Invalid parameters)

Whats I am doing wrong ?

Following is my code

Thanks

Jean-Marc St-Hilaire
-----------------------------------

<StructLayout(LayoutKind.Sequential)> _
Private Structure SHARE_INFO_50
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim netname As String
Dim type As Integer
Dim flags As Int32
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim remark As String
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim path As String
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim rw_password As String
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim ro_password As String
End Structure

Private Declare Ansi Function NetShareEnum98 Lib "svrapi.dll" Alias
"NetShareEnum" ( _
ByRef ServerName As String, _
ByVal level As Integer, _
ByRef BufPtr As IntPtr, _
ByRef cBuffer As Integer, _
ByRef entriesread As Integer, _
ByRef totalentries As Integer _
) As Integer

Dim bServer As String
Dim level As Integer
Dim bufptr As IntPtr
Dim buffer As Integer
Dim dwEntriesRead As Integer = 0
Dim dwTotalEntries As Integer = 0
bufptr = Marshal.AllocHGlobal(buffer)
level = 50
structSize = Marshal.SizeOf(GetType(SHARE_INFO_50))
buffer = structSize * 20
bServer = ""

erreurLvl = NetShareEnum98( _
bServer, _
level, _
bufptr, _
buffer, _
dwEntriesRead, _
dwTotalEntries)

[Mattias Sjögren]

Jean-Marc,

<StructLayout(LayoutKind.Sequential)> _
Private Structure SHARE_INFO_50
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim netname As String
Dim type As Integer
Dim flags As Int32
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim remark As String
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim path As String
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim rw_password As String
<MarshalAs(System.Runtime.InteropServices.Unmanage dType.LPWStr)> _
Dim ro_password As String
End Structure
netname, rw_password and ro_password are fixed length strings with
sizes 13, 9 and 9 respectively, so you should use
UnmangedType.ByValTStr for them.

For the other string members, you can delete the MarshalAs attribute
(or change it to use UnmanagedType.LPStr).

type should be a Byte and flags a Short.

Private Declare Ansi Function NetShareEnum98 Lib "svrapi.dll" Alias
"NetShareEnum" ( _
ByRef ServerName As String, _
ByVal level As Integer, _
ByRef BufPtr As IntPtr, _
ByRef cBuffer As Integer, _
ByRef entriesread As Integer, _
ByRef totalentries As Integer _
) As Integer
ServerName, cBuffer and BufPtr should be passed ByVal.

All Integers except the return type should be Short.

Dim bServer As String
Dim level As Integer
Dim bufptr As IntPtr
Dim buffer As Integer
Dim dwEntriesRead As Integer = 0
Dim dwTotalEntries As Integer = 0
bufptr = Marshal.AllocHGlobal(buffer)

Since buffer is uninitialized at this point and has the default value
of 0, you're allocating a zero length buffer.
Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.