XOLF请进

上帝之爪

http://club.excelhome.net/viewthread.php?tid=103640 这个帖子里的内容，关于一键关机，这也是我每天要做的工作，你所说的那篇爱好者上的文章有没有详细的内容，还有VBS文件怎么运行？谢谢

xolf

呵呵，叫我进来不知道啥事，吓我一跳。 vbs是windows的脚本文件，可以把它放桌面上直接双击运行，也可以命令行中运行。偶这里没有条件不能测试，不过文章与楼主要求完全相同，所以当时看到这个文章就想到转帖了，大家可以参考。

把全文给你打上吧。已经编辑好的脚本文件可在这里下载http://club.excelhome.net/UploadFile/2005-6/200561522914342.rar

———————————————————————— 电脑爱好者杂志2005年12期p27页 《n台电脑，一键全闭》作者：四川 逍遥小小 如果你管理局域网内n台电脑，下班后要一台台地关闭是个很麻烦的过程，用脚本来管理是个好主意，以局域网内的计算机分别为pc00 pc01……pc99为例（如果我其他计算机名请对脚本中prefix1的值做相应的修改），可以在服务器上编辑如下代码，保存为vbs文件，然后双击即可关闭所有电脑。

' ON ERROR RESUME NEXT ' MAXIMIZE_WINDOW = 3 MINIMIZE_WINDOW = 2 Set WshNetwork = WScript.CreateObject("WScript.Network") InitiatorName = WshNetworK.ComputerName strSelf = "." Set objShell = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strSelf & "\root\cimv2") Const SHUTDOWN = 8 Prefix1="PC" for i=0 to 99 strcomputer = Prefix2 & right("0" & Cstr(i),2) shutoffPC strComputer next set objWMIService = nothing Wscript.Echo "Done!" sub shutoffPC(PCName) TargetPCName = PCName if TargetPCName<>InitiatorName then Set colPingedComputers = objWMIService.ExecQuery _ ("Select * from Win32_PingStatus Where Address = '" & TargetPCName & "'" ) For each objComputer in colPingedComputers If objComputer.StatusCode = 0 Then 'Wscript.Echo TargetPCName & " responded." objShell.Run "cmd /c shutdown -s -t 00 -m \\" & TargetPCName,MINIMIZE_WINDOW End If Next End if end sub

上帝之爪

这是那个VBS中的命令，可惜我一条都看不懂，不知道怎么改为符合我这里的条件，还有，我不能控制服务器，只有一个屋里的十来台机器，都是局域网连接，这样可以用否？另：有没有相关的命令教程之类。

xolf

楼主按照此法可先行尝试一下。 教程之类可以搜索获得。 此方面知识我是空白的，不敢瞎说，耽误事。不能继续帮您。 帮您顶一下，希望他人继续提供技术和经验支持。

此方面 marco 版主精通。可帮助。

[em10]

[此贴子已经被作者于2005-7-8 20:54:59编辑过]

konggs

去问问七叶一枝梅吧！

l.y.qi

楼主，为什么不使用定时关机之类的软件，在各台机子装上，这样也挺方便的啊。建议使用“E族自动关机”非常不错，我在公司就是使用这个东东的。

wuwei123

楼主做网管可能时间不长，许多远程控制软件均有此功能，且windows2000server也有相关功能！

[此贴子已经被作者于2005-7-9 23:03:28编辑过]

marco

xolf谦虚了，VBS里面关键的一句就是"shutdown -s -t 00 -m \\pcName"，故如果你的电脑名不固定，可以将上句Copy下去，用批处理复制多几句就OK了。

上面那个VBS语句分成两大块，一个是“sub shutoffPC(PCName)”——关闭指定电脑的过程，而上面那些主要是构造一个循环，向有序列名称的电脑全部发出关机命令。

wuwei123

晕，没看VBS内容，原来是shutdown:

可以将以下开关用于 shutdown： •\\computername：此开关用于指定要关闭的远程计算机。如果您省略此参数，则将使用本地计算机名称。•/l （请注意，这是小写的“L”字符）：此开关用于关闭本地计算机•/a：此开关用于退出关机操作。这只能在超时期间执行。如果您使用此开关，则将忽略其他所有参数。•/r：此开关用于重新启动计算机，而不是将其完全关闭。•/t:xx：此开关用于指定计算机在多长时间（以秒计）后关闭。默认值为 20 秒。•"msg"：此开关用于指定关机进程期间显示的消息。该消息最多可以包含 127 个字符。•/y：此开关用于强制对计算机的所有查询回答“是”。

/c：此开关用于退出所有正在运行的程序。如果您使用此开关，Windows 将强制所有正在运行的程序退出。用于保存任何可能已更改的数据的选项将被忽略。这可能会导致先前未保存其数据的任何程序中出现数据丢失。

若要在两分钟后关闭本地计算机并显示“The computer is shutting down”消息： shutdown /l /t:120 "The computer is shutting down" /y /c若要取消关机进程，请在命令提示符处键入以下行，然后按 ENTER 键： shutdown /l /a /y 若要关闭并重新启动名为“Support”的远程计算机，请在批处理文件中使用以下行或在命令提示符处键入该行，然后按 ENTER 键： shutdown \\support /r•若要安排本地计算机在下午 10:00 关闭并重新启动，请在命令提示符处键入以下行，然后按 ENTER 键： at 22:00 shutdown /l /r /y /c•若要安排本地计算机在每个工作日的下午 6:00 关闭并重新启动，请在命令提示符处键入以下行，然后按 ENTER 键： at 18:00 /every:M,T,W,Th,F shutdown /l /r /y /c

可考虑建立批处理文件解决！

如是windowns 2000或NT 4的话是随Microsoft Windows 2000 Resource Kit 提供的！