- <SCRIPT LANGUAGE="VBscript">
- '/////////////////////////////////////////////////////////////
- 'Rôle: lire dans la base de registre du client son Login NT et
- ' le retourne à la fonction appelante
- 'paramètres:
- ' In: Néant
- ' Out: Le login NT du client
- '/////////////////////////////////////////////////////////////
-
- Function GetUsrId()
- Dim UsrLogin
- Set WshShell=CreateObject("WScript.Shell")
- 'Enlever le caractère ' sur la prochaine ligne ( çà s'affiche pas comme il faut sur cette page)
- 'UsrLogin = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")
- GetUsrId = UsrLogin
- End Function
- </SCRIPT>
<SCRIPT LANGUAGE="VBscript">
'/////////////////////////////////////////////////////////////
'Rôle: lire dans la base de registre du client son Login NT et
' le retourne à la fonction appelante
'paramètres:
' In: Néant
' Out: Le login NT du client
'/////////////////////////////////////////////////////////////
Function GetUsrId()
Dim UsrLogin
Set WshShell=CreateObject("WScript.Shell")
'Enlever le caractère ' sur la prochaine ligne ( çà s'affiche pas comme il faut sur cette page)
'UsrLogin = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")
GetUsrId = UsrLogin
End Function
</SCRIPT>