Oct 28
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)
Scriptteki domain name, 123456 ve administrator alanlarını, kendi sistemimize göre editleyip terminaller üzerinde çalıştırıyoruz.
Oct 28
Blog yayımcılarının pek bi hoşuna giden araç. Yeni live messenger ile birlikte ve türkçe olarak buradan indirip kuruyoruz. Program ilk çalıştığında, blogumuza erişebilmesi için bizden birkaç ayar istiyor. Daha sonra, sanki wordde yazı yazıyormuşçasına blogumuzu güncelleyebiliyoruz. Şu an hala beta aşamasında ama bu haliyle bile oldukça güzel. Windows Live Writer aracının ekran görüntüsüne buradan bakabilirsiniz.
Çok esnek ve kullanışlı bir araç. Blog yazarlarına kesinlikle tavsiye ediyorum.
Oct 27
Artık bende Blog dünyasındayım :) . Mesleğim olan IT (Internet Technologys) sektörü başta olmak üzere, güncel konular ve hoşuma giden şeyler hakkında zaman buldukça yazmayı düşünüyorum.
IT ile ilgili yenilikler, makaleler, çözümler ve püf noktalarını içeren yazılarımı ilgi ile takip edeceğinizi umuyorum. 26.Ekim.2007 tarihinden itibaren yayına başlıyoruz. Şimdilik hoşçakalın..
Oct 27
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 (Terminal48) uzantısını VBS yapıp kaydediyoruz. Örnekte, scriptin çalıştığı bilgisayarın ismi Terminal48 olarak değişir.
Oct 27
strComputer = "."
Set objAdmins = GetObject("WinNT://" & strComputer & "/Administrators")
Set objGroup = GetObject("WinNT://sistem/user17")
objAdmins.Remove(objGroup.ADsPath)
Gerekli düzenlemeyi yaptıktan sonra, uzantısını VBS yapıp kaydediyoruz. Scriptin çalıştığı bilgisayarda, sistem domainindeki user17 kullanıcısı, local administrator gurubundan silinir.
GPO ile domain’e uygulayabiliyoruz.
Oct 27
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 gibi sihirli kelime index=2 .Aşağıdaki gibi devam edebiliriz.
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.
Oct 27
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
Gerekli düzenlemeyi yaptıktan sonra uzantısını VBS yapıp kaydediyoruz. “Local Area Connection” yazan değişecek ağ bağlantısı ismi. “Local” yazan ise yeni atanacak ağ bağlantısı ismi.
Script’i GPO ile domain’e uygulayabilirsiniz.
Oct 27
Bazı durumlarda terminallerin gateway adreslerini bu şekilde değiştirmek isteyebilirsiniz. Aşağıdaki kodu BAT file 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 (192.168.0.1 olarak)
Komuttaki “local area connection”, BAT dosyasının çalışacağı bilgisayardaki ağ bağlantısının ismi. Gerekiyorsa değiştirmelisiniz (“Yerel Ağ Bağlantısı” gibi ..)
BAT dosyasını GPO ile domain’e dağıtabilirsiniz.
Oct 27
Uzak Masaüstü (mstsc.exe) kullandığımızda, bağlandığımız IP adresleri, bir sonraki bağlantıda kolaylık olması için kayıt edilir. (Yine mstsc içinde). 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
Oct 27
Bu işlemi bilgisayarıma sağ tıklayarak “Uzak” tabındanda yapabiliriz. Bir diğer yöntem ise regedit içinden yapmak. Regedit altında aşağıdaki anahtara gidiyoruz.
“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server”
“fDenyTSConnections” Dword değerini “0” yapıyoruz. 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ında uzak masaüstü bağlantılarını etkinleştirebiliriz.
En Yeni Yorumlar