- 在线时间
- 4 小时
- 最后登录
- 2013-10-6
- 注册时间
- 2008-12-7
- 听众数
- 10
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9164 点
- 威望
- 2 点
- 阅读权限
- 200
- 积分
- 3232
- 相册
- 0
- 日志
- 0
- 记录
- 1
- 帖子
- 918
- 主题
- 170
- 精华
- 0
- 分享
- 0
- 好友
- 29
该用户从未签到
|
2#
发表于 2010-3-10 21:04
|只看该作者
|
|邮箱已经成功绑定
搞定它了,呵呵~; b; ?- a+ T; L3 [+ c+ b6 ~
代码也弄出来,在Excel的VB编辑器里执行& J& s7 t4 r8 ~, s3 N
制作环境为office2003 e7 e8 E, B) n
Public Sub getIpAndPcnameAndUsername()& @& {( \" p+ R1 A. X' ? c
- \- d% m/ O4 G. \% y# C( c Dim myIp, pcName, userName As String
% M& W3 h. d9 E* E$ v$ e- r. T Dim objWMIService, IPConfigSet, sysInfm As Object! a3 O( s$ U' Y
, p; f: L/ V4 W @; d5 o- _
Set objWMIService = GetObject("winmgmts:")4 [0 O* I5 _4 }# h
Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
: \- f, u8 M; ], d Set sysInfm = CreateObject("WScript.Network")6 ~- k- v, P7 i7 }" e" a( \( Y* ?
, Z5 G2 g' Q- @* U5 q pcName = sysInfm.computername '获取本机计算机名& j# k/ C9 z/ {) u" ~
userName = sysInfm.userName '获取本机已登录的用户名
~" E E+ z+ U, f: r 9 J! R$ V, o$ E; X$ J3 I
'获取本机ip地址
6 T; l0 }! Q, \ For Each ipconfig In IPConfigSet
; S* `/ `( b( k( L
' E9 q- s7 ~9 }" d+ ` If Not IsNull(ipconfig.IPAddress) Then8 h7 B, B9 h! a$ p9 n: M' W
myIp = Join(ipconfig.IPAddress): _. l6 ~) y( [4 G6 M* ^
End If
) T9 {% @7 \+ B- K% ^' G; f1 j) V+ i2 G
% W9 m$ P- h7 | If myIp <> "0.0.0.0" Then
, q c! s' w6 S/ w MsgBox "IP Address: " & myI6 s& Z7 p, W( P% n z1 ]# }
End If: ~4 I- G9 r5 S A& D! K, Z1 }
. v# x* @$ U3 G3 E+ e
Next
% h' K" ^% c3 H+ L. a# gEnd Sub |
|