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