OFFICE輔導(dǎo)：用EXCEL得出本機(jī)用戶(hù)名及IP

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
     nSize As Long) As Long
    Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, _
     nSize As Long) As Long
    Sub Get_Computer_Name()
    ’獲得當(dāng)前的機(jī)器名稱(chēng)
    Dim Comp_Name_B As String * 255
    Dim Comp_Name As String
    GetComputerName Comp_Name_B, Len(Comp_Name_B)
    Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
     MsgBox "您正在使用的這臺(tái)機(jī)器名為：" & Comp_Name, vbOKOnly, "WINAK"
    End Sub
    Sub Get_User_Name()
    ’獲得當(dāng)前用戶(hù)名
    　Dim lpBuff As String * 25
    Dim ret As Long, UserName As String
    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
    　MsgBox "當(dāng)前用戶(hù)名：" & UserName, vbOKOnly, "WINAK"
    End Sub獲取IP地址
    1、局域網(wǎng)內(nèi)IP地址及網(wǎng)卡MAC地址
    Sub IP()
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration ")
    For Each IPConfig In IPConfigSet
    On Error Resume Next
    s = ""
    s = s & "Description: " & IPConfig.Description & vbCrLf
    　ss = ""
    　For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
    ss = ss & IPConfig.IPAddress(i) & " "
    　Next
    s = s & "IPAddress: " & ss & vbCrLf
    s = s & "MACAddress: " & IPConfig.MACAddress & vbCrLf
    MsgBox s
    Next
    End Sub