With CreateObject("Scripting.FilesystemObject")
For Each a In WScript.Arguments
.OpenTextFile(Left(a, Len(a)-3) & ".vbe", 2,1).Write _
CreateObject("Scripting.Encoder").EncodeScriptFile(_
".vbs",.OpenTextFile(a).ReadAll, 0 ,"")
Next
End With
MsgBox "OK",64
貌似这样就可以了。。。
