XProfan

proc netuse

    parameters unc$,lw$,user$,pwd$
    def WNetAddConnection2(4)  !"mpr.dll","WNetAddConnection2A"
    declare nr#
    struct NETRESOURCE =
    dwScope&,
    dwType&,
    dwDisplayType&,
    dwUsage&,
    lpLocalName&,
    lpRemoteName&,
    lpComment&,
    lpProvider&
    dim nr#,NETRESOURCE
    nr#.dwtype& = 1    Laufwerk
    nr#.lpLocalName& = addr(lw$)
    nr#.lpRemoteName& = addr(unc$)
    return WNetAddConnection2(nr#,addr(pwd$),addr(user$),0)

endproc

proc netcancel

    parameters lw$
    def WNetCancelConnection(2) !"mpr.dll","WNetCancelConnectionA"
    return WNetCancelConnection(addr(lw$),1)   1 - zwangsweises trennen

endproc

cls
print netuse("\\or-server\raid5","z:","Administrator","geheim")
waitinput
print netcancel("z:")
waitinput

DEF ConnectNet(3) !"mpr.dll","WNetAddConnectionA"
declare mpr&
let mpr& = UseDLL("mpr.dll")
Declare unc$, pwd$, localpath$
Let unc$ = "\192.168.1.5\C$"
Let pwd$ = ""
let localpath$ = "O:"
ConnectNet(Addr(unc$),Addr(pwd$),Addr(localpath$))
FreeDLL<