- 在线时间
- 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
|只看该作者
|
|邮箱已经成功绑定
搞定它了,呵呵~; C* T1 e& R9 s/ i' u
代码也弄出来,在Excel的VB编辑器里执行
' a5 Y4 l5 R+ j+ V) p制作环境为office20033 O; Q3 [' w+ C, X; k. Z
Public Sub getIpAndPcnameAndUsername()
( j7 b% i) c1 G4 ]
; {) ^2 i) [5 Z$ h+ C Dim myIp, pcName, userName As String* x- w% l: b. Q6 L" h: X
Dim objWMIService, IPConfigSet, sysInfm As Object9 f, t% a7 b6 I" Q) o2 i' z+ B5 \8 t
! g* {' M4 J& Y7 e: a' r
Set objWMIService = GetObject("winmgmts:")6 _- S7 r: V% j5 k o: @
Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE"): n0 G/ D; Q/ `! D8 Z
Set sysInfm = CreateObject("WScript.Network")
, P3 S \4 ^5 c q4 f
8 s& x- p% n. o% D" I3 Q* z A c pcName = sysInfm.computername '获取本机计算机名$ W! o! o$ d; l9 k& N
userName = sysInfm.userName '获取本机已登录的用户名0 l5 L0 l7 X6 N5 ?
$ ` S2 x# j! L2 l/ ^# h '获取本机ip地址
6 O5 {1 [- I/ c4 D. q5 o& w+ I For Each ipconfig In IPConfigSet
3 F K! w0 ~% d( Q/ ~! Y% J 2 m6 i S" O" D) b4 J9 z
If Not IsNull(ipconfig.IPAddress) Then" ~* A+ ?. o% e* I) { W
myIp = Join(ipconfig.IPAddress)
: m! O& T& x, L0 H End If
: ]6 P9 j! g1 t' `9 M" u- ?
* M; P/ ^) |0 } [ If myIp <> "0.0.0.0" Then
8 J; `/ C6 q5 h$ [0 Z MsgBox "IP Address: " & myI7 @; ]8 Q" E( T/ F" e8 J' F
End If
$ w5 I- y# e7 y) A " Y \, O! R7 \% D/ N/ V
Next" ]$ k$ q# {0 J
End Sub |
|