1 m( i+ B7 X6 i0 b& S Dim myIp, pcName, userName As String5 m% C6 v; }$ p) `
Dim objWMIService, IPConfigSet, sysInfm As Object$ c F( p+ C$ Z, Q2 y9 a. P3 J9 o! w
4 N& y" v/ T$ U. ^; A9 d
Set objWMIService = GetObject("winmgmts:")$ O' S1 l- Y2 C# o: B
Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")! s$ Y& f0 w; x- x. e
Set sysInfm = CreateObject("WScript.Network") 4 {8 C7 [5 U: N1 s/ ]+ d3 @/ X & e0 o9 d( I4 C
pcName = sysInfm.computername '获取本机计算机名5 E8 G9 m. j6 Y( H" [9 G2 \0 [
userName = sysInfm.userName '获取本机已登录的用户名 # }1 A# G4 A: |1 T i # k6 Q5 C% a' X% Q% m+ c
'获取本机ip地址4 V! a+ |8 n; C8 i8 l- p
For Each ipconfig In IPConfigSet 7 |, X, c7 n) C% N+ l # R$ D% v5 V7 Y( x If Not IsNull(ipconfig.IPAddress) Then 1 V; a8 c; N: {- u2 T myIp = Join(ipconfig.IPAddress)4 e/ P/ a8 {' N
End If' p5 F8 Z* M J
( ]- s* h4 n5 S' ^
If myIp <> "0.0.0.0" Then + i; Y* o) O# g7 p# [2 _3 Q MsgBox "IP Address: " & myI 1 w4 g& f u9 J; t: m( S# U& P End If 1 N& B3 N; c1 m t) v : T% e- u4 l- o- x) C2 e* |
Next % Y) E: g- y# i+ ]6 MEnd Sub