今回、「あやめの自動スタートアップ登録」のＶＢスクリプトを紹介します。

このスクリプトを起動時自動実行に登録しておけば、一度でもあやめを起動させれば、毎回あやめが立ち上がるようになります。
また、スタートアップに登録させたくないパソコンを設定することも可能です。

準備作業として、「あやめ」を共用フォルダに配置し、起動用のショートカットを作っておきます。
そして、下記のスクリプトを適当な名前で保存（～.vbs）し、strFolder3、strFileにフォルダ名とショートカット名を設定すれば出来上がりです。

関係者に「あやめ」を起動させるように依頼すると、毎日勝手にあやめが立ち上がっている状態になります。

'********************************************************************
'* 「あやめ」のスタートアップ、デスクトップ自動登録
'********************************************************************
Option Explicit
Dim objFSO ' FileSystemObject
Dim objWshShell ' WshShell オブジェクト
Dim strFolder1 ' スタートアップの場所
Dim strFolder2 ' デスクトップの場所
Dim strFolder3 ' あやめショートカットの格納フォルダ名
Dim strFile ' あやめショートカット

Set objWshShell = WScript.CreateObject("WScript.Shell")
strFolder1 = "C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ"
strFolder2 = objWshShell.SpecialFolders("Desktop")
strFolder3 = "\\Landisk\disk"
strFile = "\メニュー.lnk"

Dim wsh, computername, username
Set wsh = WScript.CreateObject("WScript.Shell")
computername = LCase(wsh.ExpandEnvironmentStrings("%COMPUTERNAME%"))

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'スタートアップ登録  自動登録させないＰＣの登録も可能
If Mid(computername, 1, 7) = "TESTPC01" Or Mid(computername, 1, 7) = "TESTPC02" Then
Else
    If objFSO.FileExists(strFolder1 & strFile) = False Then
        objFSO.CopyFile strFolder3 & strFile, strFolder1 & "\", True
    End If
End If

'デスクトップ登録
If objFSO.FileExists(strFolder2 & strFile) = False Then
    objFSO.CopyFile strFolder3 & strFile, strFolder2 & "\", True
End If

Set objFSO = Nothing
Set objWshShell = Nothing