VBScript压缩单个文件为zip格式

On Error Resume Next 
Dim fso,fp,oApp,targetfile 
Set fso=CreateObject("Scripting.FileSystemObject") 
targetfile="D:tmp.zip" 
Set fp=fso.OpenTextFile(targetfile,2,True) 
fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0) 
fp.Close 
Set oApp=CreateObject("Shell.Application") 
Set fso=Nothing 
Err.Clear 
oApp.Namespace(targetfile).CopyHere "C:1.txt" 
WScript.Sleep 1000 

使用脚本自动压缩指定目标下的所有文件的代码
为了解决这类问题，我使用VisualBasicScripting设计了一个脚本，可以自动达到这个目标。在本脚本中，自动压缩所有文件。为了避免将脚本自己也压缩进

Win2003里用命令行刷新硬件列表，以扫描硬件改动的实现代码
如果是想搜索新硬件，还真不知道该用什么命令。系统的PNP可以自动搜索到新硬件，所以估计也没必要手动刷新搜索。如果是想查看设备的变动，倒是

使用脚本调用系统的关机对话框实现代码
以前有介绍如何使用命令行调用系统的关机对话框：具体方法：开始／运行：rundll32.exeshell32.dll#60但是，上述方法会存在一问题，XP下无法正常使用该方