Vb.Net Uzak Masaüstü Bağlantı İzinleri

https://msdn.microsoft.com/tr-tr/library/cy6azwf7.aspx

 gerisi uzak masaustu portu ve aktif/deaktif edilmesi ile ilgili keyleri bulmanıza kalıyor

http://www.codeproject.com/Articles/3881/Working-with-Windows-Registry-using-VB-NET

adrsinde çeşitli örnekler mevcut

iyi çalışmalar

merhaba vasvi hocamın paylaştığı url lerden detaylı bilgi alabilirsiniz. yapmanız gereken baglanacağınız bilgisayarın portunu değiştirecekseniz regeditten ayarları değiştirmeniz step step ayarlara  http://serversitters.com/change-rdp-port-for-security.html  linkinden erişebilirsiniz. 

vb.net ile reg editi ayarlayabilir ve sonrasında restart edebilirsiniz bunun içinde  https://social.msdn.microsoft.com/Forums/vstudio/en-US/5b22e94c-37a9-4be5-ad55-3d9229220194/how-to-use-add-read-change-delete-registry-keys-with-vbnet?forum=vbgeneral  göz atabilirsiniz.

saygılar

Sadece port değiştirmek değil, portu registry ile çözebiliriz evet ama güvenlik duvarından o porta izin vermem ve bilgisayar için uzak bağlantıya zin vermem gerekiyor. Önemli olan kısım bu. Bunu nasıl yapabilirim?

Sadece port değiştirmek değil, portu registry ile çözebiliriz evet ama güvenlik duvarından o porta izin vermem ve bilgisayar için uzak bağlantıya zin vermem gerekiyor. Önemli olan kısım bu. Bunu nasıl yapabilirim?

 nereyi ne sekilde duzenlemeniz gerektigini bildikten sonra bu tip işlemlerin %90'ı registry değişikliği ile yapılabilmekte

ve size verdiğim 2. linkte bu registry değişikliklerinin nasıl yapılabileceğini göstermekte

size kalan yapmak istediğiniz işlem için regisrtryde ne değişiklik yapmanız gerektiğini bulmak sadece

iyi çalışmalar

Bunu registry ile degil de System.ManagementObject ile yapmak istiyorum. Ayarlar kısmını rdp aktif pasif etmeyi ayarladım fakat port değiştirmeyi henüz çözebilmiş degilim. Ana bilgisayardan tüm clien makinelerin ayarlarını yapacağım. Port değiştirmek için denediğim kod şu şekilde;

Dim conn As ConnectionOptions = New ConnectionOptions()
conn.Username = _KULLANICI_ADI
conn.Password = _PAROLA
conn.Authentication = Management.AuthenticationLevel.PacketPrivacy
conn.Impersonation = ImpersonationLevel.Impersonate
Dim managementScope As ManagementScope = New System.Management.ManagementScope("\\" & _IP_ADRESI & "\root\cimv2\TerminalServices", conn)
Dim managementPath As ManagementPath = New ManagementPath()
managementPath.NamespacePath = "root\cimv2\terminalservices"
managementPath.ClassName = "Win32_TSDeploymentSettings"
Dim cls As ManagementClass = New ManagementClass(managementScope, managementPath, Nothing)
Dim obj As ManagementObject = cls.CreateInstance()
obj.SetPropertyValue("Port", "4444")

Bu şekilde çalıştırdığımda hata vermiyor ama karşıdaki bilgisayarın portunu değiştirmiyor, aynı sekilde kalıyor port.