[Dennis]

Что-то типа этого...
VBS:

Set oNetwork = CreateObject("WScript.Network") On Error Resume Next UserName = "" While UserName = "" UserName = oNetwork.UserName If Err Then Err.Clear WScript.Sleep 100 End If Wend

Или просто переменная %USERNAME% (для 2k)