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,…
Yearly Archives 2011
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 =…
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 grubundan sildik.İçeriği notepad'e yapıştırıp uzantısını…
Exchange Server 2010 Tips and Tricks
Pc yazan yere yeni bilgisayar ismini girip, dosya uzantısını VBS yaparak çalıştırabilirsiniz. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2") Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputers err = objComputer.Rename("Pc") Next
Exchange Server 2010 Database Availability Group(DAG)