親手問題，請問各位，小弟我該怎么在text、或lable內顯示當前本計算機用戶名

親手問題，請問各位，我該如何在text、或lable內顯示當前本計算機用戶名？
用environment.username不行啊。
請各位幫幫，謝謝！

[解决办法]
Dim a As Object
Set a = CreateObject( "Wscript.Network ")
Label1.Caption = a.ComputerName '计算机名称
Label2.Caption = a.UserName '计算用户名