VBS et récupération de login windows
Hello
Je viens de trouver sur le net un script qui utilise du VBS pour récupérer le login de connexion windows dans un intranet.
Le voici :
1. Créer une page index.html (ou toto.html, on s'en fout un peu même si c'est mieux index.html comme ça dès que la personne rentre sur le site on possède son login et on continu sur la suite du site).
Code index.html :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| <script language="VBScript">
Function GetUsrId()
Dim UsrLogin
Set WshShell=CreateObject("WScript.Shell")
UsrLogin = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")
GetUsrId = UsrLogin
End Function
</script>
<script language="javascript">
<!--
location.replace ("accueil.php?LOGIN="+GetUsrId());
//>
</script> |
2. ensuite on créer la page accueil.php ou toto.php (si on change le nom de cette page changez aussi le nom de la page dans la fonction javascript "location.replace" dans la page index.html)
code accueil.php :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| <?
if($LOGIN==""){
header("location:index.html");
}
?>
<html>
<head>
<title>La page login</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<? echo $LOGIN; ?>
</body>
</html> |
Et j'obtiens... une magnifique page blanche :roll:
Est-ce que quelqu'un aurait une idée ? Je n'y connais absolument rien en VB ou VBS et j'avoue que j'ai du mal.
D'avance merci.
