# ~. f" p8 I F( K Dim myIp, pcName, userName As String , D7 {, ~) |. J) Q" ]% Q v- B i Dim objWMIService, IPConfigSet, sysInfm As Object/ e7 ]5 `2 T% I u
/ T9 Q5 j0 d1 D% x- c
Set objWMIService = GetObject("winmgmts:")! _2 H) b8 h; [7 O
Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") M, r9 |2 x# Z7 P" V) e
Set sysInfm = CreateObject("WScript.Network") 5 d# Y9 t; G$ f' k& H& K. x * ]$ [+ a5 P0 v- M6 y, f6 W, h pcName = sysInfm.computername '获取本机计算机名/ K9 k) ]5 b" D, K! B
userName = sysInfm.userName '获取本机已登录的用户名 / d8 Q) f! I C4 H5 b / [! W4 y! o& Z '获取本机ip地址, {3 t, A4 \# M) l0 o5 D0 ~
For Each ipconfig In IPConfigSet5 w1 p7 [+ c8 G, L$ w0 g
7 \$ Y# N: C$ h o If Not IsNull(ipconfig.IPAddress) Then/ E8 N6 E; T1 a9 |3 r1 O
myIp = Join(ipconfig.IPAddress)1 l6 y) h ]- {! G6 D
End If ' s+ n: R; ^0 p& p* A- z6 | d 2 R* s# m- i7 y# v7 |
If myIp <> "0.0.0.0" Then ( q' L6 W; v% p: G) z MsgBox "IP Address: " & myI- o$ W6 K# ]9 a& `0 F
End If ( U+ }5 _# f/ h 5 ]1 }, X; S8 i8 q2 J
Next! z% s; E W% _4 O
End Sub