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