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.