作成 2012.01.26
更新 2012.01.26
更新 2012.01.26
VBScript でデスクトップにリンクが無ければコピーするサンプル
Windows Server 2008 ドメイン以降ならグループポリシーで設定するのが正道です。
コード
デスクトップのパスをレジストリで調べて、デスクトップで test.lnk ファイルの有無を確認し、無ければファイルサーバーからコピーします。
Option Explicit
Const regStr = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop"
Const linkFile = "\test.lnk"
Const linkFolder = "\\filesv\share\linkfolder"
Dim WshShell, DeskPath, fso
Set WshShell = CreateObject("WScript.Shell")
DeskPath = WshShell.RegRead(regStr)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(DeskPath & linkFile) Then
fso.CopyFile linkFolder & linkFile, DeskPath
End If
タグ: VBScript