Just done a search on this and got this back:

The WSHNetwork object might help.
Example:
Code:
 
Dim WSHNetwork
Set WSHNetwork = WScript.CreateObject("WScript.Network")

WScript.Echo(WSHNetwork.UserDomain & "\" & _
WSHNetwork.UserName)

_________________________
If at first you don't succeed, try again. Then quit. There's no use being a damn fool about it. - W.C Fields