Dim ShortCutTitle, ShortCutPath Dim objWS, objSC Dim strDeskTop Dim strServerName Set objWS = CreateObject("WScript.Shell") strServerName = "サーバー名" strDeskTop = objWS.SpecialFolders("AllUsersDesktop") If strDeskTop = "" Then strDeskTop = objWS.SpecialFolders("Desktop") End If ShortCutTitle = "スーパー実践くん4WebCollabo" ShortCutPath = "http://" & strServerName & "/sj4web" Set objSC = objWS.CreateShortcut(strDeskTop & "\" & ShortCutTitle & ".lnk") objSC.TargetPath = ShortCutPath objSC.Save ShortCutTitle = "サイバートレード21" ShortCutPath = "http://" & strServerName & "/CyberTrade" Set objSC = objWS.CreateShortcut(strDeskTop & "\" & ShortCutTitle & ".lnk") objSC.TargetPath = ShortCutPath objSC.Save ShortCutTitle = "データリンク for Web" ShortCutPath = "http://" & strServerName & "/sj4weblink" Set objSC = objWS.CreateShortcut(strDeskTop & "\" & ShortCutTitle & ".lnk") objSC.TargetPath = ShortCutPath objSC.Save strFavorites = objWS.SpecialFolders("Favorites") ShortCutTitle = "スーパー実践くん4WebCollabo" ShortCutPath = "http://" & strServerName & "/sj4web" Set objSC = objWS.CreateShortcut(strFavorites & "\" & ShortCutTitle & ".lnk") objSC.TargetPath = ShortCutPath objSC.Save ShortCutTitle = "サイバートレード21" ShortCutPath = "http://" & strServerName & "/CyberTrade" Set objSC = objWS.CreateShortcut(strFavorites & "\" & ShortCutTitle & ".lnk") objSC.TargetPath = ShortCutPath objSC.Save ShortCutTitle = "データリンク for Web" ShortCutPath = "http://" & strServerName & "/sj4weblink" Set objSC = objWS.CreateShortcut(strFavorites & "\" & ShortCutTitle & ".lnk") objSC.TargetPath = ShortCutPath objSC.Save Set objSC = Nothing Set objWS = Nothing