|
Hola, buenos días
He visto el código de la función y he hecho algún cambio, sobre todo porque estabais usando lenguaje visual basic que no funciona en asp, como el MsgBox, no estaba bien hecha la llamada:
'********************************
Function getUsuariXarxa()
Dim objNet
Dim userName
Dim mensaje
On Error Resume Next
Set objNet = CreateObject("WScript.NetWork")
If (Err <> 0) Then
Response.Write "El número de error es: " & Err.number & "<BR>"
Response.Write "La descripción dada es: " & Err.Description & "<BR>"
Set getUsuariXarxa = Nothing
On Error GoTo 0 'devuelve el error a 0 para hacer funcionar la función
Exit Function
End If
userName=objNet.UserName
username=ucase(username)
getUsuariXarxa=username
end function
'*****************************************
Por lo que yo creo, en cualquier caso, debierais probar a evitar el "on error resume next" para que puedierais ver mejor en que falla la función, yo tal y como está la he probado y si funciona en mi iis.
Saludos.
|
