vbs批量修改电脑IP、计算机名和计算机描述 - CSDN文库

计算机描述

4星 · 超过85%的资源需积分: 41 42 浏览量更新于2023-03-16 评论 2 收藏 30KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

vbs 批量修改电脑 IP、计算机名和计算机描述

小弟管着几台计算机，系统更新时用网刻刻好计算机之后每次都要去更改计算机

名、计算机描述和 IP，很麻烦。由于计算机也不是很多，所以 IP 自动获取就行了，主

要是更改计算机名和计算机描述时很麻烦，所以写个脚本放在开始菜单的启动里面来

自动修改，先把 IP 获取改为自动，然后得到本机 MAC，然后与对比 mac 对应的计算

进名称是什么，最后通过注册表添加的方式更改计算机名和计算机描述。VBS 代码如

下：

'------------------------------------------------------------

On Error Resume Next

'修改 IP 获取为自动获取 IP 地址，开始代码

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & "oot\

cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterCon6guration where

IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters

errEnable = objNetAdapter.EnableDHCP()

errDNS = objNetAdapter.SetDNSServerSearchOrder(null)

Next

'获取计算机 MAC

Dim mac

dim name

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & "oot\

cimv2")

Set colItems = objWMIService.ExecQuery("Select * from

Win32_NetworkAdapterCon6guration Where IPEnabled=True",,48)

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余2页未读，立即下载

评论7

ztmsimon

2012-12-11

要得到计算机描述，非要进注册表，太麻烦了。不知道还有没有更简单的方式？

fdh2230

粉丝: 0
资源: 2

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈