Hi

I've posted question to the wrong forum at first, sorry.

I'm trying to call WNetAddConnection2 function with following code

============

open System

open System.Runtime.InteropServices

//Used in calling WNetAddConnection2

[]

type NETRESOURCE = struct

val mutable dwScope: int

val mutable dwType: int

val mutable dwDisplayType: int

val mutable dwUsage: int

[]

val mutable lpLocalName: string

[]

val mutable lpRemoteName: string

[]

val mutable lpComment: string

[]

val mutable lpProvider: string

end

//BOOL WINAPI LogonUserA(LPSTR,LPSTR,LPSTR,DWORD,DWORD,PHANDLE);

[]

let LogonUserA(

[]

(lpszUsername: string),

[]

(lpszDomain: string),

[]

(lpszPassword: string),

(dwLogonType: int),

(dwLogonProvider: int),

((*out*) phToken: IntPtr)): int = 0

//WIN32API - WNetAddConnection2

[]

let WNetAddConnection2A (

[] (lpNetResource: NETRESOURCE []),

[] (lpPassword: string),

[] (lpUserName: string),

(dwFlags: int)

): int = 0

/// Connects to a share as a different user. If connect fails, throws an Exception.

let ConnectAs (pShare:string, pLocalName: string, pUser: string, pPwd: string) =

let nrt: NETRESOURCE = {

lpRemoteName = pShare;

lpLocalName = pLocalName; //mLocalName;

dwType = 1; // RESOURCETYPE_DISK

dwDisplayType = 3; // RESOURCEDISPLAYTYPE_SHARE

dwScope = 2; // RESOURCE_GLOBALNET

dwUsage = 1; // RESOURCEUSAGE_CONNECTABLE

lpComment = "";

lpProvider = ""} in

let nr = Array.create 1 nrt in

let err = WNetAddConnection2A (nr, pPwd, pUser, 0) in

if (err <> 0) then

raise (new Exception ("Unable to connect to " ^ pShare

^ ". Error=" ^ err.ToString()))

let () = ConnectAs("\\\\FSGP\\test\\", "Q:", "username", "password")

========

and get compilation error

NetResource.fs(6,8): warning: FS0065: The definition of structs is a new feature in F# and some checks are not yet implemented, e.g. for invalid recursive structs. You may run the .NET Framework SDK tool peverify.exe on your binary to check these conditions

The local method 'NetResource.NETRESOURCE'::'.ctor' was referenced but not declared

generic arity: 0

return type: void

arg type: int32

arg type: int32

arg type: int32

arg type: int32

arg type: class ['mscorlib']'System.String'

arg type: class ['mscorlib']'System.String'

arg type: class ['mscorlib']'System.String'

arg type: class ['mscorlib']'System.String'

Error in mref_as_MethodDef_idx for method .ctor, error: Ilwrite.Mdef_not_found

typ_as_MemberRef_parent: mspec should have been encoded as mdtMethodDef?

Could anyone tell me what's wrong with it and how to fix it?