I'm using the following code to get user details by querying Windows.
Code: Select all
<HEAD> <TITLE>VBScript ->Getting UserName</TITLE>
<SCRIPT LANGUAGE="VBScript">
Dim objNet
On Error Resume Next
Set objNet = CreateObject("WScript.NetWork")
Dim strInfo
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
Set oUser = GetObject("WinNT://" & objNet.UserDomain & "/" & objNet.UserName & ",user")
strInfo = strInfo & vbCRLF & "Fullname " & oUser.FullName
msgbox strInfo
set oUser = Nothing
Set objNet = Nothing 'Destroy the Object
</SCRIPT>
</HEAD>
</HTML>