'********************************************************************************************
'* Devuelve el nombre del PC en que se está ejecutando
'* uso strNombre = NombrePC
'* ESH 18/12/02 15:06
'********************************************************************************************

Public Function NombrePC()
Dim WS 
Set WS = CreateObject("WScript.Network")
NombrePC = WS.ComputerName
Set WS = Nothing
End Function 	' NombrePC

'********************************************************************************************
'* Devuelve el nombre del usuario que está ejecutando la aplicación
'* uso strUsuario = Usuario
'* ESH 19/12/02 16:30
'********************************************************************************************

Public Function Usuario() As String
Dim WS 
Set WS = CreateObject("WScript.Network")
Usuario = WS.UserName
Set WS = Nothing
End Function 	' Usuario