CreateObject("Wscript.Network")
He visto tu experiencia en ASP y creo que me puedes ayudar.
Function getUsuariXarxa()
Dim objNet
Dim userName
Dim mensaje
On Error Resume Next
Set objNet = CreateObject("WScript.NetWork")
If Err Then
mensaje = MsgBox(Err.Number & " " & Err.Description, 0, "ERROR")
End If
userName=objNet.UserName
username=ucase(username)
getUsuariXarxa=username
end function
Esta es la función que tenemos para capturar el usuario de la red y el problema radica en que hay usuarios que les funciona y otros que no. Cuando digo que no funciona es porque no devuelve nada en UserName, y tampoco da error.
No tengo ni idea que puede ser. Hemos revisado el tema de los sitios de confianza y no vemos nada sospechoso.
¿Se te ocurre alguna cosa?
Function getUsuariXarxa()
Dim objNet
Dim userName
Dim mensaje
On Error Resume Next
Set objNet = CreateObject("WScript.NetWork")
If Err Then
mensaje = MsgBox(Err.Number & " " & Err.Description, 0, "ERROR")
End If
userName=objNet.UserName
username=ucase(username)
getUsuariXarxa=username
end function
Esta es la función que tenemos para capturar el usuario de la red y el problema radica en que hay usuarios que les funciona y otros que no. Cuando digo que no funciona es porque no devuelve nada en UserName, y tampoco da error.
No tengo ni idea que puede ser. Hemos revisado el tema de los sitios de confianza y no vemos nada sospechoso.
¿Se te ocurre alguna cosa?
1 respuesta
Respuesta de Jon García
1
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 pudierais ver mejor en que falla la función, yo tal y como está la he probado y si funciona en mi iis.
'********************************
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 pudierais ver mejor en que falla la función, yo tal y como está la he probado y si funciona en mi iis.
