Kullanıcıyı Guruba Ekleme (Script);
Kod: Tümünü seç
strComputer = "."
Set objGroup = GetObject("WinNT://" & strComputer & "/Power Users")
Set objUser = GetObject("WinNT://" & strComputer & "/Kullanıcı Adı")
objGroup.Add(objUser.ADsPath)
Ana bilgisayar üzerinde, "Kullanıcı Adı" kullanıcısını Power users gurubuna dahil eder. Gerekli şekilde düzenleyip kullanabilirsiniz.
*********************************************************************************************************************************************
Mp3 Yada Farklı Uzantıya Sahip Dosyaları Topluca Silinmesi:
Aşağıdaki scriptin çalıştığı bilgisayardaki MP3 uzantılı dosyalar, otomatik olarak bulunur ve silinir.
Kod: Tümünü seç
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
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
*****************************************************************************************************************************************
Bilgisayar İsminin Script İle Değiştirilmesi:
Kod: Tümünü seç
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("BİLGİSAYARIN YENİ İSMİ")
Next
Gerekli düzenlemeyi yaptıktan sonra (BİLGİSAYARIN YENİ İSMİ) uzantısını VBS yapıp kaydediyoruz. Örnekte, scriptin çalıştığı bilgisayarın ismi BİLGİSAYARIN YENİ İSMİ olarak değişir.
****************************************************************************************************************************************
PC Kullanıcısını Grup Üyeliğinden Script İle Çıkartılması:
Kod: Tümünü seç
strComputer = "."
Set objAdmins = GetObject("WinNT://" & strComputer & "/Administrators")
Set objGroup = GetObject("WinNT://sistem/Kullanıcı Adı")
objAdmins.Remove(objGroup.ADsPath)
Yukarıdaki kod da gerekli düzenlemeyi yaptıktan sonra, uzantısını VBS yapıp kaydediyoruz. Scriptin çalıştığı bilgisayarda, sistem domainindeki "Kullanıcı Adı" PC kullanıcısı, local administrator gurubundan silinir.
*****************************************************************************************************************************************
MS-Windows Güvenlik Duvarını Script ile Açılması/Kapatılması:
Kod: Tümünü seç
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE
FALSE değeri, güvenlik duvarının kapalı olacağını gösterir. Bu değeri TRUE yaparsak açık olur.
NOT:
Aynı işlemi Netsh komutuyla da yapabiliyoruz.
netsh firewall>set opmode enable güvenlik duvarını açar.
netsh firewall>set opmode disable güvenlik duvarını kapatır.
*****************************************************************************************************************************************
Local Admin Şifresini Scriptle Değiştirme:
Kod: Tümünü seç
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "NewPassword"
objUser.SetInfo
NewPassword yazan yere yeni şifreyi yazıyoruz. Dosya uzantısını VBS yapıp yapıp çalıştırıyoruz.
*****************************************************************************************************************************************
TRWE_2012
SAKARYA 2016