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