Resumen Nombre de usuario en red Novell

El 14 Mar 97 a las 15:11, Felix Abundiz Charles escribio acerca
de "(VB-ESP) Necesito una API":

> >Un saludo a todos.
> >
> >Quisiera saber si alguien sabe el nombre de alguna API para llamar la caja de
> >dialogo donde se
> >selecciona la impresora, y si pueden decirme como usarla; tambien si hay
> >alguna API con la que
> >se obtenga el nombre de usuario de la red y password, creo que hay una que se
> >llama netapi.dll
> >y otra que es nwnetapi.dll
> >
> >Gracias por sus comentarios
> >

Hola,

Con respecto al API para obtener el nombre de usuario en una red
Novell Netware, te puedo ayudar.
La API que he usado, efectivamente es la que mencionas:
NWNETAPI.DLL, que viene dentro del directorio \PUBLIC de Novell
Netware.


[Declaraciones]

Option Explicit

Type DATE_AND_TIME
    year As String * 1
    month As String * 1
    date As String * 1
    hour As String * 1
    minute As String * 1
    second As String * 1
    day As String * 1
End Type

Declare Function GetConnectionId Lib "nwnetapi.dll" (ByVal
fileServerName$, connectionID%) As Integer
Declare Function GetConnectionNumber Lib "nwnetapi.dll" () As
Long
Declare Sub SetPreferredConnectionID Lib "nwnetapi.dll"
(ByVal connectionID%)
Declare Function GetConnectionInformation Lib "nwnetapi.dll"
(ByVal connectionNumber&, ByVal objectName$, objectType%,
objectID&, logintime As DATE_AND_TIME) As Integer

Global Const SUCCESSFUL = &H0


[Modulo de trabajo]

    Dim connectionID%, opt%, objectType%, connum%
    Dim num&, objectID&, username$
    Dim logintime As DATE_AND_TIME

    ' Aqui le dices el nombre del servidor del cual quieres
    ' obtener la informacion, por ejm. SERV00
    opt% = GetConnectionId("SERV00", connectionID%)
    SetPreferredConnectionID (connectionID%)
    connum% = GetConnectionNumber()
    ' Aqui te muestra el numero de la conexion actual en el
    ' servidor SERV00
    MsgBox connum%

    ' Obtiene username del servidor por default
    username$ = String$(48, 0)
    opt% = GetConnectionInformation(connum%, username$,
objectType%, objectID&, logintime)
    If opt% = SUCCESSFUL Then
    ' Aqui finalmente obtienes el nombre del usuario
        MsgBox username$
    End If


Espero te sea de utilidad.

Sharon Zarria.



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com