2024年4月6日发(作者：账号密码管理器)
OFFICE辅导：用EXCEL得出本机用户名及IP
nSize As Long) As Long
Private Declare Function GetUserName Lib ““ Alias “GetUserNameA
“ _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Sub Get_Computer_Name()
’获得当前的机器名称
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 “您正在使用的这台机器名为：“ & Comp_Name, vbOKOnly, “WINAK“
End Sub
Sub Get_User_Name()
’获得当前用户名
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 “当前用户名：“ & UserName, vbOKOnly,
End Sub猎取IP地址
1、局域网内IP地址及网卡MAC地址
Sub IP()
WINAK“ “
strComputer = “.“
Set objWMIService = GetObject(“winmgmts:“ & strComputer & “rootcimv2
“)
Set IPConfigSet = ery _
(“Select * from Win32_NetworkAdapterConfiguration “)
For Each IPConfig In IPConfigSet
On Error Resume Next
s = ““
s = s & “Description: “ & ption & vbCrLf
ss = ““
For i = LBound(ess) To UBound(ess)
ss = ss & ess(i) & “ “
Next
s = s & “IPAddress: “ & ss & vbCrLf
s = s & “MACAddress: “ & ress & vbCrLf
MsgBox s
Next
End Sub
发布者：admin，转转请注明出处：http://www.yc00.com/xitong/1712373444a2048150.html
评论列表（0条）