- ©«¤l
- 172
- ¥DÃD
- 39
- ºëµØ
- 20
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft Windows XP
- ³nÅ骩¥»
- Microsoft Office 2003
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-3-19
|
[¤À¨É] ¨Ï¥ÎWScript¶Ç¦^¹q¸£¦WºÙ
Sub Get_User2()
Dim MyWshNw
Set MyWshNw = CreateObject("WScript.Network")
MsgBox "ºô°ì " & MyWshNw.UserDomain
MsgBox "¹q¸£¦WºÙ " & MyWshNw.ComputerName
MsgBox "¨Ï¥ÎªÌ¦WºÙ " & MyWshNw.UserName
End Sub |
|