评价我的脚本：查找 Office 文件中嵌入的 Flash 文件

Question

有人可以对此进行改进吗？需要 Sysinternals 字符串

date /T >N:\output.txt
net use z: /delete
net use z: \\svr-002\rmstudentwork
@cd /d "z:\"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.xls | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.ppt | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.doc | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.xlsx | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.pptx | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.docx | findstr \.swf >> "N:\output.txt"

date /T >>N:\output.txt
net use z: /delete /yes >>N:\output.txt
net use z: \\svr-003\rmstudentwork
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.xls | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.ppt | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.doc | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.xlsx | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.pptx | findstr \.swf >> "N:\output.txt"
"N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe" -s *.docx | findstr \.swf >> "N:\output.txt"
net use z: /delete /yes

基本上，它会将共享安装为网络驱动器，然后在共享中运行以查找 Office 文档中的 swf 文件。

Answer 1

我不是批处理文件专家，但我认为您可以：

• 在变量中存储重复的路径：

  set STRINGS="N:\Scripts and Reg Frags\FindEmbededFlashFiles\strings.exe"
  设置 OUTFILE=N:\output.txt
  

• 将重复的命令替换为 FOR< /a> 循环，例如：

  for /rz:\ %%f in (*.xls *.ppt *.doc *.xlsx *.pptx *.docx) do (
    %STRINGS% -q "%%f" | %STRINGS% -q "%%f" | findstr \.swf>> %输出文件%
  ）
  

  （请注意，此循环还替换了 strings.exe 的 @cd /d "z:\" 和 -s 参数。）

免责声明：我'我是凭空写下这个的，所以建议的代码可能不起作用或者可能需要额外的微调。不管怎样，我希望这能给你带来启发。