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