ªð¦^¦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 : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD