vbs实现压缩文件夹的脚本
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where ")
For Each objFolder in colFolders
errResults = objFolder.Compress
Wscript.Echo errResults
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where ")
For Each objFolder in colFolders
errResults = objFolder.Compress
Wscript.Echo errResults
Next
用VBS修改远程桌面3389端口并添加到Windows防火墙的代码
将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口'#####################'VBS修改远程桌面的默认端口,并添加至Win
用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本
将下面代码中的地址改一下，存为ieproxy.vbs，然后在文件上点右键，选择在命令提示符中打开不多说了，存下来看看吧！strMachines="24.11.246.125:2406;61.252.60.
vbs实现的定时关机、重启的脚本和程序
将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话框。直接
