Show ip address

ytmin · 发表于 2009-3-19 18:54:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？注册会员

x

strIPPattern = "((2[0-4]\d|25[0-5]|1?\d\d?)\.){3}(2[0-4]\d|25[0-5]|1?\d\d?)"
Set objNet = createobject("Wscript.Network")
Set objRegExp = New RegExp
objregexp.Pattern = strIPPattern
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
      For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
                     If InStr(IPConfig.Caption(i),"VMware") = 0 And InStr(IPConfig.Caption(i),"Microsoft") = 0 Then
                     If InStr(IPConfig.Caption(i),"169.254") = 0 And InStr(IPConfig.Caption(i),"0.0.0.0") = 0 Then
                              If objregexp.Test(IPConfig.IPAddress(i)) = True Then
                                 strIP = IPConfig.IPAddress(i)
                        End If
                  End If
         End If
      Next
End If
Next
strUser = objnet.UserName
Set objNetwork = CreateObject("WScript.Network")
strLocalComputer = objNetwork.ComputerName
MsgBox "Computer name:" & strLocalComputer & vbCrLf & "Current user:" & strUser & vbCrLf & "My ip address:" & strIP,,"Show my ip address--By ytmin"
'Power by ytmin

strIPPattern = "((2[0-4]\d|25[0-5]|1?\d\d?)\.){3}(2[0-4]\d|25[0-5]|1?\d\d?)"
Set objNet = createobject("Wscript.Network")
Set objRegExp = New RegExp
objregexp.Pattern = strIPPattern
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
      For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
                     If InStr(IPConfig.Caption(i),"VMware") = 0 And InStr(IPConfig.Caption(i),"Microsoft") = 0 Then
                     If InStr(IPConfig.Caption(i),"169.254") = 0 And InStr(IPConfig.Caption(i),"0.0.0.0") = 0 Then
                              If objregexp.Test(IPConfig.IPAddress(i)) = True Then
                                 strIP = IPConfig.IPAddress(i)
                        End If
                  End If
         End If
      Next
End If
Next
strUser = objnet.UserName
Set objNetwork = CreateObject("WScript.Network")
strLocalComputer = objNetwork.ComputerName
MsgBox "Computer name:" & strLocalComputer & vbCrLf & "Current user:" & strUser & vbCrLf & "My ip address:" & strIP,,"Show my ip address--By ytmin"
'Power by ytmin

ytmin · 发表于 2009-3-19 18:55:33

那位版主来加一下花,四千哦.

BingK · 发表于 2009-3-19 18:58:46

登录/注册后可看大图

用法？

云卷.云舒 · 发表于 2009-3-19 19:00:28

是DISCUZ的补丁？

BingK · 发表于 2009-3-19 19:00:55

登录/注册后可看大图

明白了，保存为VBS，RUN

BingK · 发表于 2009-3-19 19:02:36

如此。

十八 · 发表于 2009-3-19 19:14:45

192.168.1.111？

十八 · 发表于 2009-3-19 19:15:23

偶素192.168.1.40

十八 · 发表于 2009-3-19 19:15:59

偶家里那台素192.168.1.52

air0618 · 发表于 2009-3-19 19:23:58

这是什么东东……

askman_1 · 发表于 2009-3-19 19:24:40

我的我的

西门雪 · 发表于 2009-3-19 19:27:22

楼主自己写的？

van_kenny · 发表于 2009-3-19 19:28:50

支持mm补丁不过偶用不到了偶的局域网ip是192.168.1.100 汇报下

ytmin · 发表于 2009-3-19 19:30:41

保存为VBS运行就行了,现在还有一种AUTOIT,很好用的.

askman_1 · 发表于 2009-3-19 19:45:53

为什么确定一下还会在弹出一个

ytmin · 发表于 2009-3-19 19:46:38

不会呀,你是不是运行两次了?

askman_1 · 发表于 2009-3-19 19:46:40

15# askman_1

原来是两段

ytmin · 发表于 2009-3-19 19:48:11

哈哈,我明白了,你COPY前面那个或后面引用那个就可以了.

askman1123 · 发表于 2009-3-19 21:38:59

我没看到引用

ytmin · 发表于 2009-3-19 21:51:04

是DISCUZ的补丁？
云卷.云舒发表于 2009-3-19 19:00

登录/注册后可看大图

哇，下面挂了好多牌牌！

帐号		自动登录	找回密码
密码			注册会员

Show ip address

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

浏览过的版块