zástupce na plochu pomocí AD

[mardon]

Jsem ve správě AD nováčkem a ráda bych si nechala poradit jak nejlépe pro skupinu uživatelů v AD zajistit vytvoření ikony na ploše?
Asi pomocí Group Policy?

[Samuraj]

Ano, určitě pomocí Group Policy. Teď záleží na tom, jakou máš doménu (jestli 2008, tak je více možností) a jaké klienty. Možnosti pak jsou pomocí Policy nebo Preferences (což je asi lepší). Kdyžtak popíšu podrobněji ...

[mardon]

Používáme w2003 a klientské stanice mají WXP pár nových W7.

[Samuraj]

Tak jedna možnost je rozchodit (pokud je zatím nepoužíváte) Group Policy Preferences, o tom píšu v článku http://www.samuraj-cz.com/clanek/group-policy-preferences-gpo-gpmc-gpme/. Potom je to User Configuration - Preferences - Windows Settings - Shortcuts, nastavení je dost intuitivní a tu politiku aplikujeme na určitý kontejner (organizační jednotku) s uživateli.

A pak jsem myslel, že to jde i standardně přes Policy, ale koukám, že normálním způsobem nejde. Jedině udělat logon skript, který to vytvoří, což není moc pěkné. Takže určitě doporučuju Preferences.

[mardon]

A jak by to šlo přes ten logon script prosím?

[Samuraj]

To záleží, co má ta ikona dělat . Asi jde o nějaký shortcut a pak jde o to, na co vede.

Jedna možnost je ho vytvořit a uložit někde v síti a pak prostě překopírovat. Přitom se využijí systémové proměnné HOMEDRIVE a HOMEPATH.

Nebo se dá třeba využít příkaz SHORTCUT.exe z Resource Kitu a nebo lépe si vytvořit jednoduchý VBscript (návodů na netu je mnoho).

[mardon]

no tak jsem se snazila neco vytvorit ale jsem zatim bez uspechu:

Kód: Vybrat vše

Net Use "Z:" /D
Net Use "Z:" \\Server0\Zastupce
If Not Exist("%UserProfile%\Plocha\Zastupce.Lnk")
   Copy "Z:\\Zastupce.Lnk"  "%UserProfile%\Plocha"
   End IF
Net Use "Z:" /D


[Samuraj]

Stačí jeden příkaz (vyzkoušel jsem to takto). Nejprve bych to zkusil lokálně spustit, potom až přes logon skript.

Kód: Vybrat vše

copy /y \\Server0\Zastupce\Zastupce.Lnk %UserProfile%\Desktop\*.*

[tata_tulen]

Aby to bylo Locales-independent, tak je lepsi VBScript:

Kód: Vybrat vše

Const strLinkPath = "\\Server0\Zastupce\Zastupce.Lnk"
Const bolOverwriteExisting = True

Dim objShell, objFSO
Dim strDesktopPath

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

strDesktopPath = objShell.SpecialFolders("Desktop")
objFSO.CopyFile strLinkPath , strDesktopPath, bolOverwriteExisting

Set objShell = Nothing
Set objFSO = Nothing


Psal jsem to z hlavy, nezkousel jsem...