ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¨Ï¥ÎWScript¶Ç¦^¹q¸£¦WºÙ

[¤À¨É] ¨Ï¥Î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

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD