用VBScript实现解压缩目录中的所有文件(Zip)

On Error Resume Next 
Dim objFSO,sourcepath,targetpath 

Function GetZipFile(path) 
Dim file,folder,sfolder,subfolder,files 
If Not objFSO.FolderExists(path) Then 
Msgbox "目标文件夹不存在！" 
Else 
objFSO.CreateFolder targetpath & Right(path,Len(path)-Len(sourcepath)) 
Set folder=objFSO.GetFolder(path) 
Set files=folder.files 
For Each file in files 
If StrComp(objFSO.GetExtensionName(file.name),"zip",vbTextCompare)=0 Then 
objShell.NameSpace(targetpath & Right(path,Len(path)-Len(sourcepath))).CopyHere objShell.NameSpace(path & "" & file.name).Items(),256 
End If 
Next 
Set subfolder=folder.subfolders 
For Each sfolder in subfolder 
GetZipFile path & "" & sfolder.name 
Next 
End If 
End Function 

Set objFSO=Server.CreateObject("Scripting.FileSystemObject") 
Set oApp=CreateObject("Shell.Application") 
sourcepath="C:zipfiles" 
targetpath="D:tmp" & objFSO.GetFileName(sourcepath) 
GetZipFile sourcepath 
Set objFSO=Nothing 
Set oApp=Nothing 

VBScript压缩单个文件为zip格式
OnErrorResumeNextDimfso,fp,oApp,targetfileSetfso=CreateObject("Scripting.FileSystemObject")targetfile="D:tmp.zip"Setfp=fso.OpenTextFile(targetfile,2,True)fp.WriteChr(80)&Chr(75)&Chr(5)&Chr(6)&String(

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

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