View | Details | Raw Unified | Return to bug 47937 | Differences between
and this patch

Collapse All | Expand All

(-)ucs-school-netlogon-user-logonscripts/logon_script_templates/net-logon-script.vbs (-18 / +14 lines)
 Lines 144-171    Link Here 
144
	Set WshShell = CreateObject("WScript.Shell")
144
	Set WshShell = CreateObject("WScript.Shell")
145
	Set objFSO = CreateObject("Scripting.FileSystemObject")
145
	Set objFSO = CreateObject("Scripting.FileSystemObject")
146
	strLinkPath = strDesktopFolderPath + "\Univention Management Console.URL"
146
	strLinkPath = strDesktopFolderPath + "\Univention Management Console.URL"
147
	If Not objFSO.FileExists(strLinkPath) Then
147
	Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
148
		Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
148
	oUrlLink.TargetPath = "{umc_link}"
149
		oUrlLink.TargetPath = "{umc_link}"
149
	oUrlLink.Save
150
		oUrlLink.Save
150
	set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
151
		set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
151
	objFile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-management-console.ico")
152
		objFile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-management-console.ico")
152
	objFile.WriteLine("IconIndex=0")
153
		objFile.WriteLine("IconIndex=0")
153
	objFile.Close
154
		objFile.Close
155
	End If
156
end function
154
end function
157
155
158
Function CreateUcsPortalLink()
156
Function CreateUcsPortalLink()
159
	Set WshShell = CreateObject("WScript.Shell")
157
	Set WshShell = CreateObject("WScript.Shell")
160
	Set objFSO = CreateObject("Scripting.FileSystemObject")
158
	Set objFSO = CreateObject("Scripting.FileSystemObject")
161
	strLinkPath = strDesktopFolderPath + "\Univention Portal.URL"
159
	strLinkPath = strDesktopFolderPath + "\Univention Portal.URL"
162
	If Not objFSO.FileExists(strLinkPath) Then
160
	Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
163
		Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
161
	oUrlLink.TargetPath = "{portal_link}"
164
		oUrlLink.TargetPath = "{portal_link}"
162
	oUrlLink.Save
165
		oUrlLink.Save
163
	set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
166
		set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
164
	Objfile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-portal.ico")
167
		Objfile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-portal.ico")
165
	objFile.WriteLine("IconIndex=0")
168
		objFile.WriteLine("IconIndex=0")
166
	objFile.Close
169
		objFile.Close
170
	End If
171
end function
167
end function

Return to bug 47937