Exchange Server 2007-2010 Transition
Aşağıdaki script kullanılarak Isa Server Cache'i temizlenebilir. ””””””””””””””””””””””””””””””””””””””””’ This script deletes all of the content stored in the ISA Server cache by’ deleting the cache content files stored on all the cache drives that are’ configured on the local ISA Server computer and then restarting the Firewall’ service, which creates new cache content files.””””””””””””””””””””””””””””””””””””””””Sub DeleteCacheContents()’ Create the root obect.Dim root …
Isa Server üzerinde tanımlanacak olan kurallarda, aşağıdaki uygulamaların imzalarını kullanarak yasaklayabilirsiniz.
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 =…