This website requires Javascript to function properly. Please go to the setting of your web browser and enable Javascript for this website.

Ad by

推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

Ad by

推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

遇到一难题，想请教vbscript的高手。我不擅长编程，所以我的难题在高手眼里应该是小case，希望的到帮助或提示。

travel67(falls)

现有10台新的台式机已经安装在一个教室里，而教师里的每个桌子都有号码。每台电脑的computer name都是基于机器的序列号（从BIOS里读取），比如Win7-xxxxx（x=序列号）。现在老板要求把序列号改成桌号。就是把每个现有的机器序列号改成相应的桌子号码。比如

一台序列号是123的机器放在了4205号桌子上
current name：Win7-123
new name：Win7-4205 （4205是桌子号码）

我建了一个txt文件（也许cvs文件好些吧）包括了序列号和其对应的桌号，如：

123,4205
124,4206
125,4207
126,4208
127,4209
128,4210

想用个vbs去读取txt文件然后自动修改。请问有没有办法实现呢？

谢谢先！

(#8342821@0)
Last Updated: 2013-8-21
This post has been archived. It cannot be replied.

Report

Replies, comments and Discussions:

工作学习 / 学科技术讨论 / 遇到一难题，想请教vbscript的高手。我不擅长编程，所以我的难题在高手眼里应该是小case，希望的到帮助或提示。 -travel67(falls); 2013-8-21 {554} (#8342821@0)
现有10台新的台式机已经安装在一个教室里，而教师里的每个桌子都有号码。每台电脑的computer name都是基于机器的序列号（从BIOS里读取），比如Win7-xxxxx（x=序列号）。现在老板要求把序列号改成桌号。就是把每个现有的机器序列号改成相应的桌子号码。比如

一台序列号是123的机器放在了4205号桌子上
current name：Win7-123
new name：Win7-4205 （4205是桌子号码）

我建了一个txt文件（也许cvs文件好些吧）包括了序列号和其对应的桌号，如：

123,4205
124,4206
125,4207
126,4208
127,4209
128,4210

想用个vbs去读取txt文件然后自动修改。请问有没有办法实现呢？

谢谢先！

你要修改 Windows OS 下的 Computer Name 吗？ -mcsdocp(mvp); 2013-8-21 (#8342836@0)

就是要修改computer name，因为机器的序列号是唯一的，所以当初就用它作为机器名了。 -travel67(falls); 2013-8-21 (#8343035@0)

现在用VBS做这个个不多了，最简单的方法是powershell. 如果你执意要用VBS, 有一个Class 叫 WMI (windows management interface), 可以通过VBS来访问。不过还是建议你查一下 PowerShell的方法，网上很多。(注：VBS, 与VBScript 也不同，仅以VBS为例,类似) -mcsdocp(mvp); 2013-8-21 (#8343056@0)

其实我是要的vbs（就是一个用于windows的简单管理用），不是vb，powershell其实也可以。google了很多，但没有合适的，需要改的地方很多。 -travel67(falls); 2013-8-21 {140} (#8343310@0)
1。从BIOS里读出sn，
2。和文件里的sn做比较，找出相应的桌号，
3。用桌号修改computername，或把桌号赋予一个变量。

说着简单，但如何实现哦？

这个用powershell改太简单了。 -sky2005(Fenix); 2013-8-21 (#8343446@0)

please, help me. thanks. -travel67(falls); 2013-8-21 (#8343460@0)

考虑到你只有10台机器，在每台机器上run这个script就行了。 -sky2005(Fenix); 2013-8-21 (#8343489@0)

非常感谢。我会仔细看看。 -travel67(falls); 2013-8-21 (#8343781@0)

It seems the best tool you need is netdom.exe. I never try it before, but the logic is simple, and you don't need to loop. -efsuca(梧桐早凋); 2013-8-21 {128} (#8343559@0)
For example:
read your txt file line by line,
for the first line: 123,4205
netdom renamecomputer Win7-123 /NewName:Win7-4205

我可能忘了说，这些改动需要远程操作。 -travel67(falls); 2013-8-21 (#8343786@0)

这个就是远程操作的 -efsuca(梧桐早凋); 2013-8-21 (#8343796@0)

楼上这个tool看上去不错 script 大概这样写 $pcs=Import-csv filename; foreach ($pc in $pcs) {Netdom ####} -sky2005(Fenix); 2013-8-21 (#8343794@0)

Do you have to change them by code? -deep_blue(BLUE); 2013-8-21 (#8343722@0)

@Florida

遇到一难题，想请教vbscript的高手。我不擅长编程，所以我的难题在高手眼里应该是小case，希望的到帮助或提示。

Replies, comments and Discussions:

More Topics