« エラー時の資源解放 | トップページ | コマンドラインでショートカット(.lnkと.url)のアイコンを変更する。 »

2007年1月21日 (日)

コマンドラインで壁紙を変更する。

壁紙変更.CMD ファイル

@if(0)==(0) ECHO OFF
CScript.exe //NoLogo //E:JScript "%~f0" "%~dp1" "%~nx1"
GOTO :EOF
@end
//var ie=new ActiveXObject('InternetExplorer.Application');//ie6
var ie=WScript.GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}");//ie7
ie.Navigate(WScript.Arguments(0));
while(ie.Busy||ie.ReadyState!=4) WScript.Sleep(100);
ie.Document.CurrentViewMode=5;
var FolderItem=ie.Document.Folder.Items().Item(WScript.Arguments(1))
FolderItem.InvokeVerb('デスクトップの背景に設定(&B)');
ie.Quit();

※ie7以降、ieとshellが分離されたので。

« エラー時の資源解放 | トップページ | コマンドラインでショートカット(.lnkと.url)のアイコンを変更する。 »