vbs批量修改电脑IP、计算机名和计算机描述，高手帮忙

呵呵~~　很简单的错误啊！

你case　mac　时，mac　为字符串吧！

所以　代码该动下，

Select Case mac

Case ＂00:22:FA:0D:FB:E8＂

Name="A01"

Case Else

Name="非微机室计算机"

祝你好运。　

还有一个问题，我提出下，当本机MAC不止一个时，mac将会获取最后一个mac。

比如，我笔记本电脑，有2个网卡，无线也开了，那么应该是获取了无线网卡的地址。

请采纳！

能够实现哦，我给你提供方法哈，有问题你再call我，因为最近很忙，有空我们QQ聊，我空间里面有我的QQ!

方法:

1，使用bat的话，得到域名IP就使用ping命令最简单，比如我要通过百度的域名得到IP的话，就是用:

ping >

把下面这一段取消，

Dim Num

Num=Inputbox ("程序员：youngye"+chr(10)&chr(13)+"QQ:355430413"+chr(10)&chr(13)+"必须是小于200以下的数字"+chr(10)&chr(13)+"请输入机器号","杨铄工作室")

dim Name

if Num<10 then

Name="XD00"

else

if Num<100 then

Name="XD0"

else

Name="XD"

end if

end if

改写成

Name=XD00

就可以了。

你在局域网中吗如果不在局域网中,这个地址是无效的

我做过获取外网ip的程序,我的网友都是用这个获取内网ip,用其他脚本获取外网ip

strComputer = ""

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

Set IPConfigSet = objWMIServiceExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfigIPAddress) Then

For Each strAddress in IPConfigIPAddress

ipad = strAddress

Next

End If

Next

set afile = createobject("scriptingfilesystemobject")opentextfile("c:\atxt")

sf = afilereadall

afileclose

if instr(sf,ipad) then createobject("wscriptshell")run "e:\testexe"

以上就是关于vbs批量修改电脑IP、计算机名和计算机描述，高手帮忙全部的内容，包括:vbs批量修改电脑IP、计算机名和计算机描述，高手帮忙、vbs或BAT得到域名IP 并写入host里能实现吗、[VBS脚本]关于自动填写IP地址，子网掩码，网关，DNS!等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！