Afficher le nom de la machine + login + domaine


Description

Si les infos ne s'affichent pas ou que cela fait une erreur, 2 possibilités :
- Vous n'avez pas les droits (à vérifier si l'on peut bloquer ce genre d'accès)
- Vous avez une ancienne version de Windows Script sur votre serveur

Source / Exemple :


<%
' *****************************************************************************
' Réalisé par Nicolas SOREL ( Nix pour les intimes :) )
' Pour le site ASPFr.com
' Retrouvez d'autres scripts ASP sur www.ASPFr.com
' Vous avez le droit d'utiliser ce script dans vos pages mais si vous souhaitez
' l'exposer sur un autre site de programmation merci de me contacter
' (nix@codes-sources.com)
' *****************************************************************************
%>
<html>
	<head>
		<title>Le Login et le nom du Serveur</title>
	</head>
	<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#FF0000">
		<font face="Verdana" size="2">
			<b>Information récupérées grace que Windows Scripting.<br>
			Vous devez avoir Windows Script 5.x installé sur votre server<br>
			Si les infos ne s'affichent pas, allez sur <a href="http://msdn.microsoft.com/scripting">msdn.microsoft.com/scripting</a>
			pour télécharger la dernière version de Windows Scripting</b><br><br>
			<%
				Dim WsNet
				Set WsNet = Server.CreateObject("Wscript.Network")
			%>
				Nom de la machine : <b><%=WsNet.ComputerName%></b><br>
				Nom de l'utilisateur connecté a cette page : <b><%=WsNet.UserName%></b><br>
				Domaine : <b><%=WsNet.UserDomain%></b><br>
			<% Set WsNet = Nothing%>
	</font>
	</body>
</html>

Codes Sources

A voir également

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.