Top Menu

Etiket Arşivi script

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…

Aşağıdaki script kullanılarak bilgisayarlarınızı domain'e alabilirsiniz.Örneğimizde, Smakbuloglu domaininde Administrator yetkisi ile domain üyelik işlemi gerçekleştirdik.İçeriği notepad'e atıp, uzantısını .VBS olarak kaydedip çalıştırabilirsiniz. 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 =…

12
Kapat