Traduire un code VB en VB Script pour une page ASP ou comment utiliser une fonct

Gbrissot - 14 nov. 2000 à 18:59 - Dernière réponse : cs_EBArtSoft 4530 Messages postés dimanche 29 septembre 2002Date d'inscriptionModérateurStatut 23 décembre 2014 Dernière intervention
- 1 août 2007 à 09:49
Traduire un code VB en VB Script pour une page ASP du code suivant ou comment utiliser une fonction inclue dans un dll ?

Declare Function wu_GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Declare Function wu_GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Function ap_GetComputerName() As Variant

Dim strComputerName As String
Dim lngLength As Long
Dim lngResult As Long

strComputerName = String$(255, 0)
lngLength = 255

lngResult = wu_GetComputerName(strComputerName, lngLength)
ap_GetComputerName = _
Left(strComputerName, InStr(1, strComputerName, Chr(0)) - 1)

End Function

Function ap_GetUsername() As Variant

Dim strUserName As String
Dim lngLength As Long
Dim lngResult As Long

'-- Set up the buffer
strUserName = String$(255, 0)
lngLength = 255

'-- Make the call
lngResult = wu_GetUserName(strUserName, lngLength)

'-- Assign the value
ap_GetUsername = Left(strUserName, lngLength)

End Function
Afficher la suite 

1 réponse

cs_EBArtSoft 4530 Messages postés dimanche 29 septembre 2002Date d'inscriptionModérateurStatut 23 décembre 2014 Dernière intervention - 1 août 2007 à 09:49
0
Utile
Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.