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.

Yine ilgili 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)

Devamını oku…

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 isteyebilirsiniz. Aşağıdaki adımları uygulayarak bunu yapmak mümkün.

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

Örnek içerik:

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 Windows’larda 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. Farklı bir uygulama da kullanabilirsiniz.

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ç EXE’nin ç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)

Daha 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 edilmesi gereken bir diğer nokta ise Script içinde kullanılacak hesap bilgisi. Bu Script’in içeriği kullanıcılar tarafından görülebileceği için, asla domain admin gibi bir hesap kullanmayın. 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 Script’te bu hesap bilgisini kullanın. Kullanıcıyı local guruplara ekleme ile ilgili olarak buraya bakabilirsiniz.

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 isterseniz Script’i aşağıdaki gibi düzenleyebilirsiniz. (ö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.

Path’leri 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”

Set objNetwork = CreateObject(“WScript.Network”)

objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath3

Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile
strDriveLetter = “X:”
strRemotePath = “\\192.168.0.1\1”

Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, false, gt, pass

Bazı durumlarda MAP işlemini Username ve Password bilgisi ile yapmanız gerekebilir. Bunu kolaylaştırmak için aşağıdaki Script’i kullanabilirsiniz. Gerekli düzenlemeleri yapmayı unutmayın.

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

Set objNetwork = WScript.CreateObject(“WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _
strProfile, strUser, strPassword

Bazen paylaşım üzerinden eklenen ağ yazısını tüm sistemlerden topluca kaldırmak isteyebilirsiniz. Bu durumda aşağıdaki VB Script işinize yarayacaktır.

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

Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.RemovePrinterConnection strUNCPrinter

Wscript.Quit

“\\PrintServer03\Canon i250” Paylaşımdan gelen yazıcının yolu. Uygun şekilde düzenleyip logon script olarak atayabilirsiniz.

Terminalleri script kullanarak domaine almak için gerekli bilgileri burada vermiştim.

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. Bunu da düzenleyebilirsiniz.

Domainden düşürülen terminallerin bilgisayar hesaplarını AD ‘den silmeyi unutmayın.

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

For Each objInstance in objInstances
p_Password = “Sifre”
p_UserName = “Kullanıcı adı”
p_FUnjoinOptions = 0

intResult = objInstance.UnjoinDomainOrWorkgroup(p_Password, p_UserName, p_FUnjoinOptions)
Select case intResult

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