- 在线时间
- 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
|只看该作者
|
|邮箱已经成功绑定
搞定它了,呵呵~/ d+ G' Y. Q* H( Z$ ]. m
代码也弄出来,在Excel的VB编辑器里执行6 {/ _4 o. F* l3 I+ ?; j
制作环境为office2003
2 l3 ~# {! e1 f" c7 e9 x" T2 xPublic Sub getIpAndPcnameAndUsername()
5 b. V1 _0 X0 ^7 ?6 Y( E0 \/ u/ h# x
& C# Q" ?+ S- s9 U- ^/ B( } Dim myIp, pcName, userName As String
$ D& K" j4 o# a' j5 k @; e; j Dim objWMIService, IPConfigSet, sysInfm As Object
* F( R: Y, Z8 a, ~9 |
1 s/ d# ]8 `) _- n Set objWMIService = GetObject("winmgmts:")
2 F. X1 h& H5 I( ^3 ^ Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")( A4 w( h8 q# P4 F; k
Set sysInfm = CreateObject("WScript.Network")
! E3 e$ d7 z2 H3 X4 N - _ l4 C& \$ U, E5 G
pcName = sysInfm.computername '获取本机计算机名
9 X7 \ u- P5 S. o& a userName = sysInfm.userName '获取本机已登录的用户名3 B, a/ U2 s/ Y0 E* w- q# p4 r. |
( _+ R4 g" b6 `* d '获取本机ip地址
; B0 q# C: K' n3 r! Y" B$ N: U For Each ipconfig In IPConfigSet+ T0 _# l" a4 r7 x5 m1 f
, {. \0 j3 n) @3 Q
If Not IsNull(ipconfig.IPAddress) Then/ B) i/ M' }" w$ W
myIp = Join(ipconfig.IPAddress); F/ M9 r/ ^1 D, r1 }
End If3 R# L, B }: w( b4 Z
" m- g& b, l( ^2 ] If myIp <> "0.0.0.0" Then
- O! \7 f$ \4 H$ a MsgBox "IP Address: " & myI0 @* O% P# H' g5 F: Z
End If/ y& _6 h) \4 j1 I
& `7 c! P. P8 U% r' f, m) i$ J# ^ Next
; l: n% Q1 U# l {End Sub |
|