Windows 8のスタートメニューに項目をピン留めするVBScript
通常はGUIでことは足りるのですがログインスクリプト等でできれば何かと便利なのでいろいろ探していました
Script to pin items to Start menu in Windows 8 (VBScript)
http://gallery.technet.microsoft.com/scriptcenter/How-to-pin-items-to-Start-ee960ad8#content
上記サイトを参考にWindows 8 日本語版で動作するように修正しました
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
strFullPath = WScript.Arguments(i) FilePath = GetNameSpace(strFullPath) 'Get the base path of file FileName = GetFileName(strFullPath) 'Get the file name flag = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(FilePath) Set objFolderItem = objFolder.ParseName(FileName) Set colVerbs = objFolderItem.Verbs Dim objVerb For Each objVerb in colVerbs 'Verify the file can be pinned to start menu If Replace(objVerb.name, "&", "") = "スタートにピン留め(P)" Then objVerb.DoIt Flag = 1 End If Next |
objVerb.nameには下記の項目がリストされます
開く(&O)
スタートにピン留め(&P)
管理者として実行(&A)
タスク バーにピン留め(&K)
切り取り(&T)
コピー(&C)
ショートカットの作成(&S)
削除(&D)
名前の変更(&M)
プロパティ(&R)
これと一緒ですね
通りすがりのものです。
ご質問があります。
VBSでスタートメニューにアプリをピン留めする方法を探しておりましたところ、
ここにたどり着きました。
上記を参照にスクリプトをコピーして実行した際に下記のエラーが発生しました。
===========================================
スクリプト：***
行：1
文字：１
エラー：インデックスが有効範囲にありません。
コード：800A0009
ソース：Microsoft VBScript 実行時エラー
===========================================
これをたとえば、
スタートメニューにメモ帳などを追加する場合はどのようなコードになるのでしょうか？
VBSを始めたばかりでトラブルシューティングができず、恐縮ですがダメもとでご質問させていただきます。
もし、よろしければ、ご教授いただければと存じます。
通りすがり様
お問合せ有難う御座います
私の環境で改めてデバッグを行いましたら見事にエラーになってしまいました(^^;
参考サイトを見て一部変更しましたが、実際のデバックまでは行っていなかった気がします(^^;;
不確かな記事ですいませんでした
改めて記事を更新しましたので、そちらを参考にして下さい
VBScript – Script to pin items to Start menu in Windows 8(Update)
http://www.rootlinks.net/2014/07/11/vbscript-script-to-pin-items-to-start-menu-in-windows-8update/
わざわざご確認頂き、ありがとうございます。
新しい記事参考にさせていただきます。
月曜日に試してみます。
まずは、ありがとうございました。