Tema: Capturar el nombre de la PC y la IP local
Ver Mensaje Individual
  #5 (permalink)  
Antiguo 24/11/2005, 08:29
Avatar de Myakire
Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
¿Es para una intranet?

Esto te servirá

Código: 
<body>
<SCRIPT LANGUAGE=vbscript>
Sub ValoresPC()
         Set WshNetwork = CreateObject("WScript.Network")
         msgBox "Dominio = " & WshNetwork.UserDomain
         msgBox "Nom PC = " & WshNetwork.ComputerName
         msgBox "Nom Usr = " & WshNetwork.UserName  
Set WshNetwork = nothing  
End Sub
</SCRIPT>
<input type="button" onclick="ValoresPC()" value="Datos del cliente">
</body>