2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« リソースキットの soon.exe 擬似のバッチファイル(AtSoon.CMD) | トップページ | たくさんのリンク先を一度に保存する。 »

2007年10月27日 (土)

リソースキットの soon.exe 擬似のバッチファイル(AtNow.CMD)

コマンドを即時に実行します。

AtNow.CMD [/INTERACTIVE] "コマンド"

@if(0)==(0) ECHO OFF
FOR /F "delims=[] tokens=1*" %%x IN ('AT.EXE %TIME% %*^|FIND.EXE /V /N ""') DO (
ECHO=%%y
IF %%x==1 (
FOR /F "tokens=1-4" %%1 IN ("%%y") DO (
IF "%%1"=="新しいジョブをジョブ" (
CScript.exe //NoLogo //E:JScript "%~f0" %%4
AT.EXE %%4 /D
))))
GOTO :EOF
@end
var Shell=new ActiveXObject("Shell.Application");
var Folder=Shell.NameSpace("::{d6277990-4c6a-11cf-8d87-00aa0060f5bf}");
for(var j=0;j<Folder.Items().Count;j++){
  var FolderItem=Folder.Items().Item(j);
  if(FolderItem.Name=="At" + WScript.Arguments.Item(0)){
    FolderItem.InvokeVerb("タスクの実行(&U)");
    WScript.Sleep(1000);
    WScript.Quit();
  }
}
WScript.Echo("At" + WScript.Arguments.Item(0),"Not Found.");

« リソースキットの soon.exe 擬似のバッチファイル(AtSoon.CMD) | トップページ | たくさんのリンク先を一度に保存する。 »