中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-09 10:04 		共 47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行
DOS批处理 & 脚本技术（批处理室） » 这个脚本错在哪里了？
可打印版本 　824 / 5
第1楼　shayulei 发表于 2008-08-08 16:10
中级用户　发帖 74　积分 301
这个脚本错在哪里了？
'读取计算机名，计算机名存放在d:\other\PCName\pcname.txt中
Dim fso, f, Msg, pcname
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("d:\other\PCName\pcname.txt", 1,False)
pcname = f.Read(5)



'改本地计算机名称
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = ObjComputer.Rename(pcname)
Next


将改计算机名称的那部份放在一个脚本里运行就没有问题，二部分和起来，就不能改计算机名称为什么？

[ Last edited by shayulei on 2008-8-11 at 10:01 AM ]
第2楼　slore 发表于 2008-08-08 19:06
铂金会员　发帖 2,478　积分 5,212
不知道你啥意思
将改计算机名称的那部份放在一个脚本里 不等于 二部分和起来 麽？
第3楼　HAT 发表于 2008-08-09 01:40
版主　发帖 5,017　积分 9,023
第4楼　huahua0919 发表于 2008-08-09 10:46
银牌会员　发帖 780　积分 1,608
看楼主的题目真让人费解啊
这个真是批处理吗

如果你第二部分可以执行的话,那程序肯定是错在你在读取文本中字符时候出错了
我建议楼主在第一部分的最后加上
msgbox pcname,65
测试一下看看返回值是什么.然后在连接两个程序
第5楼　shayulei 发表于 2008-08-11 10:02
中级用户　发帖 74　积分 301
我测试了PCNAME里的值是正确的，但第二段VBS没有成功的把计算机名改掉，不知道怎么回事！？
第6楼　shayulei 发表于 2008-08-11 11:37
中级用户　发帖 74　积分 301
感谢您的代码，想不到用处批理，只要短短几行，我还在VBS里苦苦摸索。
Originally posted by HAT at 2008-8-9 01:40 AM:
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023