(ACİL)Active Directory / Terminallere VB kodlarıyla program kısayolları oluşturma

C:\Documents and Settings\All Users\Desktop bu pathe kopyalayın

Bütün terminallerde aynı işlemimi yapmam gerekiyor?

30 dan
fazla terminal var. Visual Basic Kodlarını policylerden logon'a atıp
yapılabiliniyormuş. Ama benimde çok fazla bilgim yok konuyla ilgili.
Bilgisi olan arkadaş varmı acaba  Teşekkürler ErolDursun anlık cevabın için..

Merhabalar arkadaşlar ilk defa domain server kuruyorum. Kısıtlamaları felan yaptım ama terminallerin kullanacağı programları DESKTOP'a atmak istiyorum active directory policylerinden Logon' program kısayollarını ve netten buldugum bir kaç kod parçacağı yerleştirmeme rağmen hiçbir program göremiyorum. Ve hiçbir işlemde olmuyor. Çok acil bunun bitmesi lazım. Nasıl yapabilirim. Şimdiden gelen bütün cevaplara Teşekkürler...

 aşağıdaki kodu vbs uzantisi ile kaydedip kullanıcılara AD logon script olarak kullanabilirsin

(tabi kendine gore duzenledikten sonra)

kolay gelsin

Option Explicit
Dim objShell, objDesktop, objLink
Dim strAppPath, strWorkDir, strIconPath

' --------------------------------------------------
' Here are the variables that to change if you are making a 'real' script

strWorkDir ="C:\windows"
strAppPath = "%SystemRoot%\notepad.exe"
strIconPath = "%SystemRoot%\system32\SHELL32.dll,5"

Set objShell = CreateObject("WScript.Shell")
objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(objDesktop & "\WordProcess.lnk")

' ---------------------------------------------------
' Section which adds the shortcut's key properties

objLink.Description = "WordProcess"
objLink.HotKey = "CTRL+SHIFT+X"
objLink.IconLocation = strIconPath
objLink.TargetPath = strAppPath
objLink.WindowStyle = 3
objLink.WorkingDirectory = strWorkDir
objLink.Save

WScript.Quit

' End of creating a desktop shortcut

Erhan Bey lütfen forum kurallarını okuyunuz.Acil konu başlıklı mesajların açılması yasaktır.