×

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

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

现有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文件然后自动修改。请问有没有办法实现呢?

谢谢先!
Report

Replies, comments and Discussions:

  • 工作学习 / 学科技术讨论 / 遇到一难题,想请教vbscript的高手。我不擅长编程,所以我的难题在高手眼里应该是小case,希望的到帮助或提示。
    现有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 吗?
      • 就是要修改computer name,因为机器的序列号是唯一的,所以当初就用它作为机器名了。
        • 现在用VBS做这个个不多了,最简单的方法是powershell. 如果你执意要用VBS, 有一个Class 叫 WMI (windows management interface), 可以通过VBS来访问。不过还是建议你查一下 PowerShell的方法,网上很多。(注:VBS, 与VBScript 也不同,仅以VBS为例,类似)
          • 其实我是要的vbs(就是一个用于windows的简单管理用),不是vb,powershell其实也可以。google了很多,但没有合适的,需要改的地方很多。
            1。从BIOS里读出sn,
            2。和文件里的sn做比较,找出相应的桌号,
            3。用桌号修改computername,或把桌号赋予一个变量。

            说着简单,但如何实现哦?
    • 这个用powershell改太简单了。
      • please, help me. thanks.
        • 考虑到你只有10台机器,在每台机器上run这个script就行了。
          • 非常感谢。我会仔细看看。
    • 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.
      For example:
      read your txt file line by line,
      for the first line: 123,4205
      netdom renamecomputer Win7-123 /NewName:Win7-4205
      • 我可能忘了说,这些改动需要远程操作。
        • 这个就是远程操作的
      • 楼上这个tool看上去不错 script 大概这样写 $pcs=Import-csv filename; foreach ($pc in $pcs) {Netdom ####}
    • Do you have to change them by code?