エクスプローラーでファイル名を参照している時に、勝手に先頭位置に移動する事象が度々あり困っていた

まだ、解決策は見つかっていないが、再現方法がわかったのでメモしておきます

◆再現方法

共有プリンタを登録するVBSです。

メモ帳を開いて下記のソースをペーストします。[ネットワークプリンタ名]のところを、各自の環境に合わせて変更します。

ファイル名をprt_add.vbsで保存します

これを実行すると共用プリンタが登録されますが、何故かエクスプローラの表示が先頭位置に移動してしまいます

Dim objWshNetwork
Dim strPrinterName

Set objWshNetwork = WScript.CreateObject("WScript.Network")

strPrinterName = "[ネットワークプリンター名]"

objWshNetwork.AddWindowsPrinterConnection strPrinterName

Set objWshNetwork = Nothing

自分の環境では十数台のプリンタを、パソコン起動した際に自動で登録しています

１台のプリンタを「カラー」「モノクロ」用と、別々に登録していることと、最近、ドライバーの更新をスムースに行うため、毎回、共有プリンターの「削除＆登録」をするように変更しため、スクリプトの実行時間が長くなってました。

まさか、共有プリンタの登録処理がエクスプローラーの表示に影響を与えていたとは．．．

windows8.1でも同様に再現されました