VBS et récupération de login windows

**corresp_info** · 06/12/2007, 16h32

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 html :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

**ced600** · 07/12/2007, 10h07

J'ai mis ton code VBS dans un fichier VBS :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim UsrLogin
Set WshShell=CreateObject("WScript.Shell")
UsrLogin = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")
msgbox UsrLogin

La MSGbox s'ouvre bien et m'affiche mon Login windows.

Donc le code est bon. Le problème vient d'ailleurs. La partie PHP peut être mais je n'en ai jamais fait donc je ne serais d'aucun secours.

VBS et récupération de login windows

VBScript

Discussions similaires

Partager

Partager