147,155c147,153
< 	If Not objFSO.FileExists(strLinkPath) Then
< 		Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
< 		oUrlLink.TargetPath = "{umc_link}"
< 		oUrlLink.Save
< 		set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
< 		objFile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-management-console.ico")
< 		objFile.WriteLine("IconIndex=0")
< 		objFile.Close
< 	End If
---
> 	Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
> 	oUrlLink.TargetPath = "{umc_link}"
> 	oUrlLink.Save
> 	set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
> 	objFile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-management-console.ico")
> 	objFile.WriteLine("IconIndex=0")
> 	objFile.Close
162,170c160,166
< 	If Not objFSO.FileExists(strLinkPath) Then
< 		Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
< 		oUrlLink.TargetPath = "{portal_link}"
< 		oUrlLink.Save
< 		set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
< 		Objfile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-portal.ico")
< 		objFile.WriteLine("IconIndex=0")
< 		objFile.Close
< 	End If
---
> 	Set oUrlLink = WshShell.CreateShortcut(strLinkPath)
> 	oUrlLink.TargetPath = "{portal_link}"
> 	oUrlLink.Save
> 	set objFile = objFSO.OpenTextFile(strLinkPath, 8, True)
> 	Objfile.WriteLine("IconFile=\\{hostname}.{domainname}\netlogon\user\univention-portal.ico")
> 	objFile.WriteLine("IconIndex=0")
> 	objFile.Close