Код:

Dim A, objFSO, objFile
Dim strSource, strDest
Dim argFirst, argSecond, MyStamp, TheDate, FileDateTime
 
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strSource = "C:\1"
strDest   = "C:\2"
 
Set objArgs = WScript.Arguments
 
retval = CStr(objArgs(0)&" "&objArgs(1))
 
If objFSO.FolderExists(strSource) Then 
If objFSO.FolderExists(strDest) Then
           
For Each objFile In objFSO.GetFolder(strSource).Files
FileDateTime = CStr(objFile.DateLastModified)
 
If  FileDateTime = retval  Then             
WScript.Echo objFile.Name
objFile.Copy objFSO.BuildPath(strDest, objFile.Name), True
End If
 
Next
End If
End If
Set objFSO = Nothing
WScript.Quit

Код:

Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("cmd /c ""C:\Program Files\7-Zip\7z.exe"" x c:\test\123.7z -oc:\test\ -y")