ªð¦^¦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 : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD