|
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 |