"Windows XP" etiketi için bulunan tüm sonuçlar:

Kullanıcıyı Gruba Ekleme – Script

28.10.2007 | 23:27 Çözümler , Windows 1 Yorum

strComputer = "."
Set objGroup = GetObject("WinNT://" & strComputer & "/Power Users")
Set objUser = GetObject("WinNT://" & strComputer & "/Deneme")
objGroup.Add(objUser.ADsPath)

Yukarıdaki VB Scrip çalıştığı bilgisayar üzerinde Deneme kullanıcısını Power Users gurubuna dahil eder. Gerekli şekilde düzenleyip kullanabilirsiniz.

Terminalleri Domaine Alma – Script

28.10.2007 | 23:24 Çözümler , Windows 7 Yorum


Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

strDomain = “DomainName”
strPassword = “123456”
strUser = “administrator”

Set objNetwork = CreateObject(“WScript.Network”)
strComputer = objNetwork.ComputerName

Set objComputer = GetObject(“winmgmts:{impersonationLevel=Impersonate}!\\” & _
strComputer & “\root\cimv2:Win32_ComputerSystem.Name=’” & _
strComputer & “‘”)

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & “\” & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
ADsPath)

Script içindeki domain name, 123456 ve administrator alanlarını kendi sistemimize göre düzenledikten sora terminaller üzerinde çalıştırıyoruz.

Bilgisayar İsmini Değiştirelim – Script

27.10.2007 | 09:52 Çözümler , Windows 0 Yorum

Bazı durumlarda bilgisayar ismini bir VB Script yardımıyla değiştirmek isteyebilirsiniz.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = objComputer.Rename("Terminal48")
Next

Gerekli düzenlemeyi yaptıktan sonra uzantısını VBS yapıp kaydediyoruz. Yukarıdaki örnekte, scriptin çalıştığı bilgisayarın ismi Terminal48 olarak değişir.

Grup Üyeliğinden Çıkartmak – Script

27.10.2007 | 09:52 Çözümler , Windows , Windows Server 0 Yorum

Bazı durumlarda bir kullanıcı hesabını VB Script yardımıyla bir grup üyeliğinden çıkartmanız gerekebilir.

strComputer = “.”

Set objAdmins = GetObject(“WinNT://” & strComputer & “/Administrators”)
Set objGroup = GetObject(“WinNT://sistem/user17”)
objAdmins.Remove(objGroup.ADsPath)

Yukarıdaki satırlar üzerinde gerekli düzenlemeyi yaptıktan sonra uzantısını VBS yapıp kaydediyoruz. Scriptin çalıştığı bilgisayarda, sistem domainindeki user17 kullanıcısı, yerel administrators gurubundan silinir.

GPO ile domain’e uygulayabiliyoruz.

Çoklu DNS Adresi Atama – Netsh

27.10.2007 | 09:52 Çözümler , Windows 7 Yorum

Bazı durumlarda komut ile çoklu DNS adresi atamak gerekebilir. Bu noktada yine Netsh komutu imdadımıza yetişiyor.

Aşağıdaki kodu bir BAT dosyası yapıp çalıştırın.

netsh interface ip add dns "Local" 10.0.0.1
netsh interface ip add dns "Local" 10.0.0.2 index=2

Gördüğünüz gibi sihirli kelime index=2

Aşağıdaki gibi devam edebilirsiniz.

netsh interface ip add dns "Local" 10.0.0.1
netsh interface ip add dns "Local" 10.0.0.2 index=2
netsh interface ip add dns "Local" 10.0.0.3 index=3
netsh interface ip add dns "Local" 10.0.0.4 index=4

“Local” ise DNS atayacağımız ağ bağlantısı ismi. GPO ile domain’e de uygulayabiliriz.

Ağ Bağlantısı İsmini Değiştirmek – Script

27.10.2007 | 09:51 Çözümler , Windows 0 Yorum

Bazı durumlarda ağ bağlantısı ismini bir VB Script yardımıyla değiştirmek isteyebilirsiniz.

Aşağıdaki kod üzerinde gerekli düzenlemeleri yaptıktan sonra uzantısını VBS yapıp kaydederek kullanabilirsiniz.

Const NETWORK_CONNECTIONS = &H31&

Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)

Set colItems = objFolder.Items
For Each objItem in colItems
If objItem.Name = “Local Area Connection” Then
objItem.Name = “Local”
End If
Next

“Local Area Connection” yazan değer değişecek ağ bağlantısı ismini temsil ediyor. “Local” yazan ise yeni atanacak ağ bağlantısı ismi.

Script’i GPO ile domain’e uygulayabilirsiniz.

GPO ile Default Gateway Değiştirme – Netsh

27.10.2007 | 09:51 Çözümler , Windows 0 Yorum

Bazı durumlarda terminallerin Default Gateway adreslerini GPO ile değiştirmek isteyebilirsiniz.

Aşağıdaki kodu düzenledikten sonra bir BAT dosyası yaparak kullanıcılara dağıtmanız yeterli.

netsh interface ip delete address "local area connection" gateway=all
netsh interface ip add address "local area connection" gateway=192.168.0.1 gwmetric=0

BAT dosyasının çalıştığı bilgisayarda sadece Default Gateway adresi değişir. (örneğin 192.168.0.1 olarak)

Komuttaki “local area connection” BAT dosyasının çalışacağı bilgisayardaki ağ bağlantısının ismi oluyor. Gerekiyorsa değiştirmelisiniz. Örneğin “Yerel Ağ Bağlantısı” gibi.

BAT dosyasını GPO ile domain ortamına dağıtabilirsiniz.

Uzak Masaüstü Bağlantı Kayıtlarının Silinmesi

27.10.2007 | 09:51 Çözümler , Windows 5 Yorum

Uzak Masaüstü Bağlantısı (mstsc.exe) kullandığınızda, bağlandığımız IP adresleri bir sonraki bağlantıda kolaylık olması için bir kenara kayıt edilir.

Bu kayıtları silmek için aşağıdaki kodu BAT dosyası olarak kayıt edin ve çalıştırın.

REG DELETE "HKCU\Software\Microsoft\Terminal Server Client\Default" /va /f

Del “%systemdrive%\Documents and Settings\%UserName%\Belgelerim\Default.rdp” /A

Uzak Masaüstü Bağlantısını Etkinleştirmek

27.10.2007 | 09:51 Çözümler , Windows , Windows Server 13 Yorum

Bu işlemi Bilgisayarım simgesine sağ tıklayarak “Uzak” tabından yapabileceğiniz gibi, bir diğer yöntem olarak Regedit içerisinden de yapabilirsiniz.

Regedit altında aşağıdaki anahtara gidin.

“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server”

fDenyTSConnections” Dword değerini “0” yapın. Eğer değer “1” olursa uzak masaüstü bağlantısı devre dışıdır.

Regedit konsolundan uzaktaki bilgisayara bağlanarak (Regedit> Dosya> Ağ Kaydına Bağlan) onların da uzak masaüstü bağlantılarını etkinleştirebiliriz.

Gizli ($) Paylaşımların Kapatılması

27.10.2007 | 09:50 Çözümler , Windows 1 Yorum

Windows XP işletim sistemlerinde yönetim amaçlı oluşan bazı gizli paylaşımlar vardır.

Bu gizli dizin paylaşımlarını Bilgisayarım> Yönet> Paylaşılan Klasörler> Paylaşımlar bölümüne gelip görebilirsiniz.

Eğer bu paylaşımları durdurmak isterseniz, aşağıdaki adımları uygulayın.

Başlat > Çalıştır > Regedit HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmans erver\parameters anahtarına gidip aşağıdaki REG_DWORD kayıtlarını girin.

Serverlar için AutoShareServer değer 0

İş istasyonları için AutoShareWks değer 0

Bilgisayarınızı yeniden başlattıktan sonra, bu paylaşımlar sisteminizden kalıcı olarak kalkacaktır.