objNetwork.UserName

Sebastiaan · August 9th, 2004, 06:48 AM

Hi,

I'vze got an issue with the following piece of code :

<script language="vbscript">
Dim strUsername, objNetwork
Set objNetwork = CreateObject("WScript.Network")
If trim(objNetwork.UserName) <> "" Then strUsername = objNetwork.Username
</script>

When I execute the code on a local PC [plain HTML], the variable gets populated with the current username logged on in Windows. When the code is located on the server, the variable gets the value of "Undefined". This worked before and seems to have changed since the servers got upgraded to Service Pack 4. Any ideas ? Or any alternative ways to get the Windows Username ? Thanks.

Sebastiaan.

happygv · August 9th, 2004, 11:10 PM

Hi Sebastiaan,

I am not sure about the reason for that. But, see if this helps.

Code:

<script language="vbscript">
Dim strUsername, wshShell 
Set wshShell = CreateObject("WScript.Shell")
strUser = wshShell.ExpandEnvironmentStrings("%USERNAME%")
'This uses the Environment variable %USERNAME%
'Try Echo %USERNAME% in command prompt.
</script>

OR

Code:

<script language="vbscript">
Dim strUsername, adsNTSysInfo
Set adsNTSysInfo = CreateObject("WinNTSystemInfo")
strUsername = adsNTSysInfo.UserName
</script>

Cheers!
_________________________
- Vijay G
Strive for Perfection