谁希望成为脚本专家?

每周脚本测验题

每周脚本测验题

2006 年 1 月 13 日:我的两个用户不见了!


是这样,从技术角度上讲,他们并不是真的不见了,而只是从未出现在原来的位置。

由于面临的任务是需要在我的若干台计算机上创建同样一对新用户帐户(本地用户帐户),因此我决定使用脚本来完成。我将脚本中心中的信息作为指导,编写出了以下脚本:

On Error Resume Next

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")

Set objUser = colAccounts.Create("user", "kenmyer")
objUser.Description = "Local user account for Ken Myer."
objUser.FullName = "Ken Myer"
objUser.AccountExpirationDate = #12/31/2006#
objUser.SetPassword "09iu%4et"

Set objUser = colAccounts.Create("user", "pilarackerman")
objUser.Description = "Local user account for Pilar Ackerman."
objUser.FullName = "Pilar Ackerman"
objUser.AccountExpirationDate = #12/31/2006#
objUser.SetPassword "LweQ9%4z!"

看起来相当棒,不是吗?是很棒;但我真的希望它工作起来能和它看起来一样棒。运行此脚本时却什么也没有发生:我没有收到任何错误消息,但也没有获得两个新用户帐户。想起我结婚那天脚本专家给我的建议(“只要脚本有问题,先把 On Error Resume Next 注释掉”),于是我注释掉了 On Error Resume Next,然后试着再次运行脚本。

接着发生了什么?一句话,什么也没发生:没有错误消息,但也没获得用户帐户。这两个用户似乎从地球表面上消失了!

这个脚本的问题到底出在哪儿?


返回页首返回页首