Serhad MAKBULOĞLU

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 & “\root\cimv2″) Set colFiles = objWMIService.ExecQuery _ (“Select * from CIM_DataFile where Extension = ‘mp3′ OR Extension = ‘wma’”) For Each objFile in [...]

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 = “\\Server\Share1” strRemotePath2 = “\\Server\Share2” strRemotePath3 = “\\Server\Share3” Set [...]

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 \\Server\Share yolundaki klasöre bağlandık. Option Explicit Dim objNetwork Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfilestrDriveLetter = “K:” strRemotePath = “\\Server\Share” strUser = “Serhad” strPassword = “Passw0rd” strProfile = “false” Set objNetwork = WScript.CreateObject(“WScript.Network”) [...]

Aşağıdaki script kullanılarak paylaşım üzerinden eklenmiş olan tek bir yazıcı silinebilir.Örneğimizde, \\PrintServer\Hp 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 = \\PrintServer\Hp 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 & “\root\cimv2″) strWQL = “select * from Win32_ComputerSystem” Set objInstances = objWMI.ExecQuery(strWQL,,48) For Each objInstance in objInstances p_Password = “Password” p_UserName = “Administrator” p_FUnjoinOptions = [...]

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 & “\root\cimv2″) 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 & “\root\cimv2″) Set colPrinters = objWMIService.ExecQuery _ (“Select * From Win32_Printer Where Local = [...]

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 [...]

Aşağıdaki script ile kullanıcılarınızı gruba üye yapabilirsiniz.Örneğin, Serhad isimli kullanıcıyı Power Users grubuna üye yaptık.İçeriği notepad’e yapıştırıp uzantısını .VBS yaparak kullanabilirsiniz. strComputer = “.” Set objGroup = GetObject(“WinNT://” & strComputer & “/Power Users”) Set objUser = GetObject(“WinNT://” & strComputer & “/Serhad”) objGroup.Add(objUser.ADsPath) Aşağıdaki script ile kullanıcılarınızı gruplardan silebilirsiniz.Örneğin, Smakbuloglu domainindeki Deneme isimli kullanıcıyı Local Administrators [...]

Pc yazan yere yeni bilgisayar ismini girip, dosya uzantısını VBS yaparak çalıştırabilirsiniz. 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(“Pc”) Next

Local Administrator şifresini değiştirmek için aşağıda yer alan script’i kullanabilirsiniz.Password yazan yere yeni şifreyi yazıp, VBS olarak kaydedip çalıştırıyoruz. strComputer = “.” Set objUser = GetObject(“WinNT://” & strComputer & “/Administrator, user”) objUser.SetPassword “Password” objUser.SetInfo