Forum

(ACİL)Active Direct...
 
Bildirimler
Hepsini Temizle

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

5 Yazılar
4 Üyeler
0 Reactions
598 Görüntüleme
(@anonim)
Gönderiler: 1789
Famed Member
Konu başlatıcı
 

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

 
Gönderildi : 18/09/2008 11:59

(@eroldursun)
Gönderiler: 2195
Famed Member
 

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

 
Gönderildi : 18/09/2008 12:11

(@anonim)
Gönderiler: 1789
Famed Member
Konu başlatıcı
 

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

 
Gönderildi : 18/09/2008 12:37

(@vasviuysal)
Gönderiler: 7889
Üye
 

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

 
Gönderildi : 15/10/2008 13:23

(@rafets-ayata)
Gönderiler: 3820
Üye
 

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

 
Gönderildi : 15/10/2008 13:50

Paylaş: