Etiket Arşivi script

Active Directory üzerinde kullanılmayan, atıl olarak bekleyen bilgisayar hesaplarını temizlemek için aşağıdaki script'i kullanabilirsiniz. Script, 60 günden eski bilgisayar hesaplarının lastlogondate'ini kontrol ederek siliyor ve bilgilendirme maili gonderiyor. [crayon-63328b707a99e671305624/]  

Windows Server 2012 ve Windows 8'de Powershell 3.0 yardımıyla bir çok işlemi hızlı ve kolay bir şekilde yapabilmekteyiz.Bir NTFS sürücüsünde yer alan herhangi bir klasördeki kullanıcıların haklarını görüntülemek için Get-Acl komutu kullanılabilir. Aşağıda örnek bir kullanım mevcut.Komutu çalıştırdığınız klasör üzerinde kimlerin yetkileri olduğunu görebilirsiniz. Get-Acl | select -ExpandProperty access  

Aşağıdaki script'e istediğimiz uzantıları ekleyerek, çalıştırılan bilgisayarda belirtilen uzantıların bulunup otomatik olarak silinmesini sağlayabiliriz.Örneğimizde, MP3 ve WMA uzantılı dosyaların silinmesini sağladık. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma'") For Each objFile in colFiles objFile.Delete Next

Aşağıdaki script kullanılarak birden fazla paylaşıma açılmış olan klasörü map yapabiliriz.Örneğimizde, Server altındaki Share1, Share2 ve Share3 klasörlerini M, P ve S sürücü harflerine atadık. Option Explicit Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3 Dim strDriveLetter1, strDriveLetter2, strDriveLetter3 strDriveLetter1 = "M:" strDriveLetter2 = "P:" strDriveLetter3 = "S:" strRemotePath1 = "\ServerShare1" strRemotePath2 = "\ServerShare2" strRemotePath3 = "\ServerShare3" Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive strDriveLetter1,…

Network üzerindeki paylaşımı map yapmak istediğiniz zaman, bazı durumlarda kullanıcı ve şifre kullanılması gerekebilir.Bunun için aşağıdaki script kullanılabilir.Örneğimizde, Serhad isimli kullanıcı ve şifresi ile \ServerShare yolundaki klasöre bağlandık. Option Explicit Dim objNetwork Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfilestrDriveLetter = "K:" strRemotePath = "\ServerShare" strUser = "Serhad" strPassword = "Passw0rd" strProfile = "false" Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _ strProfile,…

Aşağıdaki script kullanılarak paylaşım üzerinden eklenmiş olan tek bir yazıcı silinebilir.Örneğimizde, \PrintServerHp yolundaki yazıcıyı sildik.İçeriği notepad’e atıp, uzantısını .VBS olarak kaydedip çalıştırabilirsiniz. Option Explicit On Error Resume Next Dim objNetwork, strUNCPrinter strUNCPrinter = \PrintServerHp Set objNetwork = CreateObject("WScript.Network") objNetwork.RemovePrinterConnection strUNCPrinter Wscript.Quit

Aşağıdaki script kullanılarak bilgisayarlarınızı domain’den çıkartabilirsiniz.Örneğimizde, Administrator yetkisi ve şifresi(Password) ile domain disjoin işlemi gerçekleştirdik.İçeriği notepad’e atıp, uzantısını .VBS olarak kaydedip çalıştırabilirsiniz. strServer = "." Set objWMI = GetObject("winmgmts:\" & strServer & "rootcimv2") strWQL = "select * from Win32_ComputerSystem" Set objInstances = objWMI.ExecQuery(strWQL,,48) For Each objInstance in objInstances p_Password = "Password" p_UserName = "Administrator" p_FUnjoinOptions = 0 intResult = objInstance.UnjoinDomainOrWorkgroup(p_Password, p_UserName,…

Aşağıdaki script kullanılarak, paylaşım üzerinden eklemiş olduğunuz bütün yazıcıları kaldırabilirsiniz.İçeriği notepad’e atıp, uzantısını .VBS olarak kaydedip çalıştırabilirsiniz. strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where Network = True") For Each objPrinter in colInstalledPrinters objPrinter.Delete_ Next

Aşağıda yer alan script ile paylaşıma açılmış olan yazıcıları istediğiniz makinaya tanıtabilirsiniz.Örneğimizde, kendi makinamıza(127.0.0.1) PrintServer üzerinde tanımlı olan Hp yazıcıyı ekledik.Bilgileri kendi yapınıza göre güncelleyerek, içeriği notepad'e atıp .VBS olarak kaydedip kullanabilirsiniz. strComputer = "127.0.0.1" Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2") Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where Local = TRUE") If colPrinters.Count = 0…

12
Kapat