- 在线时间
- 4 小时
- 最后登录
- 2013-10-6
- 注册时间
- 2008-12-7
- 听众数
- 10
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9164 点
- 威望
- 2 点
- 阅读权限
- 200
- 积分
- 3232
- 相册
- 0
- 日志
- 0
- 记录
- 1
- 帖子
- 918
- 主题
- 170
- 精华
- 0
- 分享
- 0
- 好友
- 29
该用户从未签到
|
3#
发表于 2010-3-10 21:04
|只看该作者
|
|邮箱已经成功绑定
搞定它了,呵呵~
4 Y1 J$ v& i& W8 r2 Z0 ?' E5 n代码也弄出来,在Excel的VB编辑器里执行$ H/ f" h8 t/ k G
制作环境为office2003
* D& L! `/ L8 W1 m% e4 YPublic Sub getIpAndPcnameAndUsername()8 O J7 \7 x6 J: y e3 X' J
/ T" ^7 k/ j' T* E% b
Dim myIp, pcName, userName As String& J8 ?# J: C% N& l
Dim objWMIService, IPConfigSet, sysInfm As Object
$ U* B4 g* E+ d
" T+ X2 x/ H2 r' t2 |4 e: ?6 I5 C/ f Set objWMIService = GetObject("winmgmts:")
! Z9 d. ?4 `9 n Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")3 s9 Z1 i' p$ e2 H F- \6 H
Set sysInfm = CreateObject("WScript.Network")4 A6 c' C1 e; m3 M( k0 b1 \5 Y
; h2 T0 ] i) F8 {: N# y' I, h
pcName = sysInfm.computername '获取本机计算机名) z; U% {6 t, q; r; ~6 ]
userName = sysInfm.userName '获取本机已登录的用户名7 [" M, J8 i& h; e9 ]* D
) ?: F; ~+ U# o '获取本机ip地址
, D( B3 h( E+ r# c* d8 A# N For Each ipconfig In IPConfigSet& a7 ~; {* Y; V) v* F% \
0 N9 y- [5 I3 s9 @. i- \, S: u' b If Not IsNull(ipconfig.IPAddress) Then; O. z; _4 u$ b. S, l: j g
myIp = Join(ipconfig.IPAddress) J$ q( A& Q4 J6 i0 z) r, J
End If: o5 X; y; r" C7 W4 a- L) I
, Y2 S% ^2 b- |0 W1 O If myIp <> "0.0.0.0" Then
( h; e; |# s" s4 u8 I MsgBox "IP Address: " & myI
/ v) U! u0 ?- t. P3 l5 I End If4 G( ?/ H& L. I+ k
0 F* B: ?5 F, ~4 Q, N% f6 _: _
Next T( ~ ]0 K9 U$ h3 j+ }, Z
End Sub |
|