将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话框。 直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。 以下代码在window 2000 下通过。[code]'定时关机或重启的脚本，在windows 2000下通过' code by haiwa 2005-11-7dim ActionIDActionID = 1 ...
http://www.jb51.net//article/14841.htm
将下面代码中的地址改一下，存为ieproxy.vbs，然后在文件上点右键，选择“在命令提示符中打开”不多说了，存下来看看吧！[code]strMachines = "24.11.246.125:2406;61.252.60.30:68660;64.161.10.2:3128;65.23.157.55:80;66.229.103.146:5089;68.6.240.207:2521;68.103.105.108:2384;70.160.84.18:2332;71.74.23.52:2220;71.207.239.136:2653;72.187.78.76:2413;76.17...
http://www.jb51.net//article/14839.htm
[code]#include <GUIConstants.au3>#include <Process.au3>Global $GUIWidthGlobal $GUIHeight$GUIWidth = 160$GUIHeight = 100$maingui = GUICreate("与陌生QQ联络",$GUIWidth, $GUIHeight)$Status = GUICtrlCreateLabel("Nothing to ...
http://www.jb51.net//article/14827.htm
strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colFolders = objWMIService.ExecQuery _ ...
http://www.jb51.net//article/14824.htm
Dim wsObjSet wsObj = CreateObject("Wscript.Shell")' Add the LogLevel Value to Kerberos Key in Registry.On Error Resume Next WScript.Echo "Enabling Kerberos Logging..."wsObj.RegWrite "HKLM\SYSTEM\...
http://www.jb51.net//article/14823.htm
Dim WshShellset WshShell = CreateObject("wscript.Shell")WshShell.Run "cmd /k"for i = 1 to 3WScript.Sleep 500WshShell.SendKeys "net user admin" & i & " abcd@123 /add"WshShell.SendKeys ...
http://www.jb51.net//article/14818.htm
利用BAT脚本加入域和退出域加入域的脚本：@echo offnetdom join %computername% /domain:test.com /UserD:user /PasswordD:pass /REBoot:5退出域的脚本：@echo offnetdom remove %computername% /domain:test.com /UserD:user /PasswordD:pass /REBoot:5上面两个批处理脚本是通过调用xp&nbs...
http://www.jb51.net//article/14817.htm
objs = "c:\aaa\*" '支持UNC路径objd = "d:\aaa\"'请自行修改上面两个路径Set objshell = CreateObject("Scripting.FileSystemObject")objshell.CopyFolder(Objs,objD) '当文件存在时默认进行覆盖操作...
http://www.jb51.net//article/14815.htm
parentfolder = "c:\"sourcefile = "c:\windows\log.log"targetfolder = parentfolder & date & "\"set objshell = createobject("shell.application")set objfolder = objshell.namespace(parentfolder)objfolder.newfolder&nbs...
http://www.jb51.net//article/14813.htm
WScript.Echo "Enabling Kerberos Logging..."const HKEY_LOCAL_MACHINE = &H80000002strComputer = "."Set StdOut = WScript.StdOutSet oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "...
http://www.jb51.net//article/14811.htm
strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colListOfServices = objWMIService.ExecQuery _("Select * from Win...
http://www.jb51.net//article/14807.htm