求vbs获取本机的公网IP

使用vbs更改ip2008-07-29 14:24vbs脚本的功能非常强大， 管理系统简单方便！下面的脚本win2000和winxp都可以使用，win2003没有测试过，应该也没有问题。如果需要经常切换网关，或是ip，这个脚本是最方便的了。稍微修改一下甚至可以做到1分钟变一次ip。changeipvbsstrComputer = ""

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIServiceExecQuery _

("Select from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter in colNetAdapters

sip=objNetAdapterIPAddress

strIPAddress = sip '保持原来的ip，如果需要修改ip为1921680200：strIPAddress = Array("1921680200")

strSubnetMask = Array("2552552550")

strGateway = Array("1921680254") '修改网关为1921680254

strGatewayMetric = Array(1) errEnable = objNetAdapterEnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapterSetGateways(strGateway, strGatewaymetric)

If errEnable = 0 Then

WScriptEcho "The IP address has been changed"

Else

WScriptEcho "The IP address could not be changed"

End If

exit for '只修改第一个网卡的设置

Next

这是不可能的。

VB脚本（vbscript）根本就不提供这样的功能。

如果是用VB，肯定是可以实现的。给你一个理念：每台电脑都安装此VB软件，当下班后（时间到五点）系统的此VB程序自动发送未关机信息到服务器。当服务器收到此消息，返回数据，驱动VB发出提示是否有人，声明如果不点击某按钮则视为无人，在十五分钟后强制关机，然后时间到了的话用VB来关闭系统。

1要先点击开始 --控制面板 --查看设备和打印机。

2然后要找到安装的打印机的图标，右键单击打印机属性。

3然后得选择端口，点击添加端口，选择Standard TCP/IP Port 之后点击新的端口。

4然后要在显示的窗口中点击下一步。

5然后输入打印服务器的IP地址，点击下一步。

6然后要选择自定义并且点击设置按钮。

协议选中LPR ，队列名称为lp1 ，并把启用LPR字节勾选计数之后点击确定。

7接着点击结束按钮，完成配置。

8最后点击应用按钮并选中关掉 ，就可以使用打印服务器共享打印机了。（必须得要点击应用才可以生效）

通过bat文件获取ip地址的代码如下：

@echo off

set pcName=yourTestPCname

~~~~~~~~~~~~~~~~~(红色)

ping %pcName% -4

@echo -

for /f "tokens=2 delims=[" %%i in ('ping %pcName% -4^|findstr "%pcName%"') do set ip=%%i

set iptmp=%ip:~0,14%

set lastchar=%iptmp:~13,1%

IF /I "%lastchar%"=="]" (set iptmp=%ip:~0,13%)

@echo ==================ip:%iptmp%===============

@echo -

pause

bat文件：

bat文件是dos下的批处理文件。批处理文件是无格式的文本文件，它包含一条或多条命令。它的文件扩展名为 bat 或 cmd。在命令提示下键入批处理文件的名称，或者双击该批处理文件，系统就会调用cmdexe按照该文件中各个命令出现的顺序来逐个运行它们。使用批处理文件（也被称为批处理程序或脚本），可以简化日常或重复性任务。

在右下角 日期过来两个 有一个像电脑的小标识 ：Internet访问/网络 标识

单击它 会出现一个小面板 点击 “打开网络和共享中心”

就会出现上面这样的界面，点击“本地连接” 后出现一个新面板 在点击“属性”

接下去的画面是否非常熟悉了，对了，这和WINXP的界面差不多了，我想你也应该懂得怎么配置IP地址了吧

以上就是关于求vbs获取本机的公网IP全部的内容，包括:求vbs获取本机的公网IP、如何使用VB脚本实现检查网络上的计算机未关机，并获得此计算机的IP地址、当前用户账号、计算机名称呢、如何使用Powershell脚本检查打印机IP在线等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！