[code]set WshShell = WScript.CreateObject("WScript.Shell")'对话框标题alerttitle = "定时提醒"'提醒内容,vbnewline为换行符alerttext = vbnewline & vbnewline & "休息一下，活动一下胳膊，脖子，腰部。" & vbnewline & vbnewline & vbne...
http://www.jb51.net//article/14842.htm
将下面代码存为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
将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口'#####################'VBS修改远程桌面的默认端口,并添加至Windows防火墙'作者51windows.Net'56868为要设置的端口'#####################Set WshShell = WScript.CreateObject("WScript.Shell")WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Termina...
http://www.jb51.net//article/14838.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
[code]set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local")const forreading = 1set objfso = createobject("scripting.filesystemobject")set objtextfile = objfso.opentextfile _("users.txt", forreading)do until objtextfile.atend...
http://www.jb51.net//article/14816.htm
objs = "c:\aaa\*" '支持UNC路径objd = "d:\aaa\"'请自行修改上面两个路径Set objshell = CreateObject("Scripting.FileSystemObject")objshell.CopyFolder(Objs,objD) '当文件存在时默认进行覆盖操作...
http://www.jb51.net//article/14815.htm
Dim returnSet R = CreateObject("WScript.Shell")return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！")If return=vbok ThenR.run("Shutdown.exe -r -t 0")End if...
http://www.jb51.net//article/14814.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