Bu script, ilk yayınladığım script ile aynı işi yapıyor. Yani yeni bir local account yaratıp ilgili gruba ekliyor. Farklı olan ise “password never expires” yerine “user must change password at next logon” ayarını set ediyor olması.  Ayrıca farklı bir fonksiyon  kullanıyor.

“user must change password at next logon” sayesinde, yaratılan local account ile ilk kez oturum açan kişiyi yeni password belirlemeye zorlamış oluyoruz.

Script’i buradan download edebilirsiniz.

İlgili yerleri düzenlemeyi unutmayın.

Bazı durumlarda client’lar üzerinde yeni bir local user account (yerel kullanıcı hesabı) yaratıp, bu hesabı ilgili gruba üye yapmamız gerekebilir. Domain user account yaratmak kolaydır çünkü active directory üzerinde oluşturduğumuz domain user account, eğer aksi bir ayar yok ise organizasyon içerisindeki tüm client’larda oturum açabilir. Ama söz konusu local user account ise, bu hesabın her bir client üzerinde tek tek yaratılması gerekir. Bu gibi durumlarda kolaylık olması için aşağıdaki script’i kullanabilirsiniz.

Bu script sayesinde bilgisayar üzerinde yeni bir local user account yaratılmış, bu local user account’a bir password atanmış ve account ilgili gruba member edilmiş olur. Bununla birlikte account için “password never expires” ayarıda enable olur yani password süresiz olarak geçerlidir.

Script’i buradan download edebilirsiniz.

Script içerisinde strAccount, strPswd ve son bölümdeki Set objGroup satırında grup bilgisini düzenlemeyi unutmayın :)

HVRemote Script ile uzak yönetim ayarları.

Hyper-V sunucularımızı Remote sistemler üzerindeki Hyper-V Manager konsolunu kullanarak yönetebilmek için gerekli ayarlardan daha önce bahsetmiştim. Bu makalelere aşağıdaki linklerden ulaşabilirsiniz.

Windows Vista Üzerinden Hyper-V Yönetimi Bölüm 1

Windows Vista Üzerinden Hyper-V Yönetimi Bölüm 2

Gördüğünüz gibi biraz zahmetli ve zaman alan bir konfigürasyon.

Artık bu ayarları uygulamak için çok daha kolay bir yöntem var. Microsoft Hyper-V takımında kıdemli program yöneticisi olarak görev yapan John Howard tarafından hazırlanan bir script sayesinde işimiz baya bi kolaylaşmış durumda.

İsmi HVRemote olan bu script ile;

Domain yada workgroup ortamlarında çalışan Hyper-V sunucuları, remote sistemler üzerindeki Hyper-V manager konsolları ile yönetmek için gerekli konfigürasyonu hızlıca uygulayabiliyoruz.

İşlemler iki temel bölümden oluşuyor.

1. Hyper-V çalıştıran sistem üzerinde yapılacak işlemler (Server side)
2. Hyper-V Manager çalıştıran remote sistem üzerinde yapılacak işlemler (Client side)

Yazının devamını oku … »

Merhaba.

Bildiğiniz gibi sınırlı kullanıcılar TCP/IP ayarlarına müdahale edemez ve IP bilgilerini değiştiremez.

TCP/IP bilgisini değiştirebilecek en düşük yetkiye sahip gurup, Network Configuration Operators gurubudur.

Bazı durumlarda Sınırlı Kullanıcı yetkisine sahip oturumlar üzerinde ip değişikliği yapmak isteyebiliriz.

Aşağıdaki adımları uygulayarak bunu yapmak mümkün.

Öncelikle IP yapılandırmasını değiştirecek bir BAT dosyası düzenlememiz gerekiyor.

ör bir bat dosyası içeriği (IPChange.exe):

rem Reset network Settings for static IP
netsh interface ip set address name = "LAN" source = static addr = 10.10.10.15 mask = 255.255.255.0
netsh interface ip set address name = "LAN" gateway = 10.10.10.1 gwmetric = 1
netsh interface ip set dns name = "LAN" source = static addr = 10.10.10.2
netsh interface ip add dns name = "LAN" addr = 10.10.10.3
netsh interface ip show config
exit

* Burada dikkat etmemiz gerek nokta ise ağ bağlantısı isimleri. Eğer ağ bağlantısı isimleri “Yerel Ağ Bağlantısı” olarak duruyorsa ki türkçe windowslarda durum budur, hepsine türkçe karakter içermeyen bir isim vermemiz gerekiyor. “Local Area Connection” yada “LAN” gibi. Topluca ağ bağlantısı ismi değiştirmek ile ilgili olarak buraya bakabilirsiniz.

Daha sonra, oluşturmuş olduğumuz bat dosyasını EXE haline getirmemiz gerekiyor. Buradan bat to exe convert programını indiriyoruz.

Hazırladığımız BAT dosyasını bat to exe programı ile EXE dosyası haline getiriyoruz (ör: IPChange.exe) ve çalıştırarak, IP ayarlarını gerçekten değiştirebildiğinden emin oluyoruz. (yetkili bir kullanıcı üzerinde test edebilirsiniz, amaç komutların çalıştığını görmek.)

Daha sonra IPChange.exe dosyasını file://server/Ortak/IPChange.exe gibi herkezin erişebileceği bir paylaşıma atıyoruz ($ ile gizli paylaşımda kullanabilirsiniz. $ kullanırsanız aşağıdaki scriptteki paylaşım yolunu ona göre düzenlemelisiniz)

Ve sonra aşağıdaki gibi bir script düzenliyoruz.

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "runas /user:serhat@serhatakinci.local file://server/ORTAK/IPChange.exe"
WScript.Sleep 100
WshShell.Sendkeys "123456"
WshShell.SendKeys "{ENTER}"

serhat@serhatakinci.local kullanıcısı, IP değiştirebilecek yetkide bir hesap olmalı. 123456 ise bu hesabın şifresi. Script’i bu şekilde düzenliyoruz ve sınırlı kullanıcıların masa üstüne atıyoruz.

Bu noktadan sonra sınırlı bir kullanıcı bu scripti çalıştırdığı zaman IPChange.exe serhat/123456 yetkileri ile çalışacak ve gerekli IP değişikliğini yapacaktır.

* Dikkat etmek gereken bir diğer nokta ise, script içinde kullanılacak hesap bilgisi. Bu scriptin içeriği kullanıcılar tarafından görülebileceği için, domain admin gibi bir hesap kullanmak olmaz :) .  En doğrusu, minimum yetkilerde bir hesap düzenlemek olacaktır. AD içerisinde bir hesap yaratın ve user yetkisinde olsun. Daha sonra bu hesabı local bilgisayarlar üzerinde Network Configuration Operators gurubuna üye yapın ve scriptte bu hesap bilgisini kullanın. Kullanıcıyı local guruplara ekleme ile ilgili olarak buraya bakabilirsiniz.

Ve yapımız hazır. Sorun yaşarsanız bana ulaşabilirsiniz.

Aşağıdaki scriptin çalıştığı bilgisayardaki MP3 uzantılı dosyalar, otomatik olarak bulunur ve silinir.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'mp3'")
For Each objFile in colFiles
objFile.Delete
Next

Aynı anda birden fazla uzantıyı tarayıp silmek istersek, scripti aşağıdaki gibi editleyebiliriz. (örneğin mp3 ve wma dosyaları..)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma'")
For Each objFile in colFiles
objFile.Delete
Next

Bu şekilde taranacak dosya uzantı sayısını arttırabiliriz ve GPO ile domain ortamına uygulayabiliriz ve

MAP yollarını ve uygun sürücü harflerini verdikten sonra kullanabiliriz.

Option Explicit
Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3
Dim strDriveLetter1, strDriveLetter2, strDriveLetter3 strDriveLetter1 = "M:"
strDriveLetter2 = "P:"
strDriveLetter3 = "S:"
strRemotePath1 = "\\FileServer\Ortak"
strRemotePath2 = "\\PServer\Raporlar"
strRemotePath3 = "\\F-Server\CP"

Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfilestrDriveLetter = "X:"
strRemotePath = "\\192.168.0.1\1"

Bazı durumlarda MAP işlemini, Username ve Password bilgisi ile yapmamız gerekebilir. Bunun için aşağıdaki scripti kullanabiliriz.

Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfilestrDriveLetter = "K:"
strRemotePath = "\\FileServer\Ortak"
strUser = "User35"
strPassword = "P@sswd1"
strProfile = "false"

Option Explicit
On Error Resume Next
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\PrintServer03\Canon i250"

Wscript.Quit

\\PrintServer03\Canon i250 -> Paylaşımdan gelen yazıcının yolu. Uygun şekilde düzenleyip, logon script olarak atayabiliriz.

Merhaba,

Terminalleri script kullanarak domaine almak için gerekli scripti burada vermiştik.

Terminalleri script kullanarak domainden düşürmek için ise aşağıdaki kodu kullanabilirsiniz.

Şifre ve Kullanıcı adı kısımlarını düzenliyoruz. Script başarılı şekilde uygulandıktan sonra “Sistemi Yeniden Başlatın” gibi bir uyarı veriyor. Bunuda düzenleyebilirsiniz.

Domainden düşürülen terminallerin Computer Accountlar’ı, AD içinde manuel olarak silinmeli.


strServer = "."
Set objWMI = GetObject("winmgmts:\\" & strServer & "\root\cimv2")
strWQL = "select * from Win32_ComputerSystem"
Set objInstances = objWMI.ExecQuery(strWQL,,48)

Case 0 : WScript.Echo "Sistemi Yeniden Başlatın"
End Select
Next