Hakan UZUNER » Cozumpark.Com

Evet ISA Server kullanıyorsanız tam olarak ne demek istediğimi anlıyorsunuz demektir çözüm ise aşağıdaki script i kullanmak

‘*************************************************************************************
‘ Script Name: ISA_MSDE_Max_Memory.vbs
‘     Version: 1.0
‘      Author: Jason Fossen ( www.ISAscripts.org )
‘Last Updated: 16.Oct.2005
‘     Purpose: When ISA Server logs to local MSDE database files, the SQL Server/MSDE
‘              service (sqlservr.exe) can sometimes consume too much memory.  This
‘              script gets or sets the MSDE option to limit the amount of memory it is
‘              permitted to use.  You must be a local Administrator or, strictly
‘              speaking, have the sysadmin fixed server role in SQL Server/MSDE.
‘       Notes: The script uses the SQL Distributed Management Objects (SQL-DMO):
‘                 http://msdn.microsoft.com/library/en-us/sqldmo/dmoref_con01_2yi7.asp
‘              The script does not require OSQL.EXE or creating any .sql scripts.
‘              For more information about this memory issue, see the following:
‘                 http://www.google.com/search?hl=en&q=site%3Aisaserver.org+msde+memory
‘              Run the script within a CMD shell using CSCRIPT.EXE.
‘      Credit: Script idea came from a tip in an article by Adar Greenshpon at Microsoft.
‘       Legal: Public Domain.  Modify and redistribute freely.  No rights reserved.
‘              SCRIPT PROVIDED “AS IS” WITHOUT WARRANTIES OR GUARANTEES OF ANY KIND.
‘              USE AT YOUR OWN RISK.  Don’t use this script if you don’t have any
‘              idea what it does or what you are doing or why you are doing it…OK?
‘              And generally don’t set your memory limit to anything smaller than 32 MB.
‘*************************************************************************************
Option Explicit
On Error Resume Next

Call ReLaunchWithCscriptIfNecessary()
Call ProcessCommandLineArguments()

‘*************************************************************************************
‘ Procedures and Functions
‘*************************************************************************************

Sub ReLaunchWithCscriptIfNecessary()
Dim iPosition, oWshShell
iPosition = InStr( LCase(WScript.FullName) , “cscript.exe” )
If iPosition = 0 Then
Set oWshShell = CreateObject(“WScript.Shell”)
oWshShell.Run “cmd.exe /k cscript.exe //nologo ” & “”"” & WScript.ScriptFullName & “”"”
WScript.Quit(0)
End If
End Sub

Sub ProcessCommandLineArguments()
On Error Resume Next
Dim sArg

If WScript.Arguments.Count <> 1 Then Call ShowHelpAndQuit()

sArg = LCase(WScript.Arguments.Item(0))

If (sArg = “/?”) Or (sArg = “-?”) Or (sArg = “/h”) Or (sArg = “/help”) Or (sArg = “–help”) Then Call ShowHelpAndQuit()

‘If argument is a number, set memory to that number; otherwise, just show current value.

If IsNumeric(sArg) Then
If SetCurrentMaxServerMemoryValue(sArg) Then
WScript.Echo vbCrLf & “SUCCESS: Maximum database server memory successfully set to ” & sArg & ” MB.” & vbCrLf
WScript.Echo “Current maximum database server memory = ” & GetCurrentMaxServerMemoryValue() & vbCrLf
Else ‘Function returned False, there was a problem…
WScript.Echo vbCrLf & “ERROR: There was a problem setting the value!” & vbCrLf & Err.Description
WScript.Echo “Are you a local administrator?  Are you running this script on the ISA Server itself?”
WScript.Echo “Is logging to a local MSDE database even enabled?”
End If
Else ‘The argument was not numeric, so just show current value.
WScript.Echo vbCrLf & “Current maximum database server memory = ” & GetCurrentMaxServerMemoryValue() & vbCrLf
End If

End Sub

Function GetCurrentMaxServerMemoryValue()
On Error Resume Next
Dim oSQLserver, oConfiguration, bCurrentState, oConfigValue
GetCurrentMaxServerMemoryValue = “ERROR” ‘Function’s return will either start with “ERROR” or the value number.

Set oSQLserver = CreateObject(“SQLDMO.SQLServer”)
oSQLserver.LoginSecure = True       ‘Use Windows Authentication instead of SQL Authentication.
oSQLserver.Connect(“(LOCAL)\MSFW”)  ‘ISA Server logging MSDE database on local machine.

If Err.Number <> 0 Then
GetCurrentMaxServerMemoryValue = “ERROR : Cannot connect to (Local)\MSFW database : ” & Err.Description
Exit Function
End If

Set oConfiguration = oSQLserver.Configuration
bCurrentState = oConfiguration.ShowAdvancedOptions
oConfiguration.ShowAdvancedOptions = True

Set oConfigValue = oSQLServer.Configuration.ConfigValues(“max server memory (MB)”)
GetCurrentMaxServerMemoryValue = oConfigValue.CurrentValue

If Err.Number <> 0 Then
GetCurrentMaxServerMemoryValue = “ERROR : Cannot read current value : ” & Err.Description
End If

oConfiguration.ShowAdvancedOptions = bCurrentState
oSQLserver.DisConnect()
End Function

Function SetCurrentMaxServerMemoryValue(iMB)
On Error Resume Next
Dim oSQLserver, oConfiguration, bCurrentState, oConfigValue
SetCurrentMaxServerMemoryValue = False          ‘Function returns True or False, hence, assume False for now.

iMB = Abs(Round(CDbl(Trim(Replace(CStr(iMB), “,”, “”)))))   ‘Clean the input a bit, just in case.
If iMB < 4 Then iMB = 4                         ’4 MB is minimum permitted value, but don’t set it this low!
If iMB > 2147483647 Then iMB = 2147483647       ’2,147,483,647 MB is the maximum permitted value.
iMB = CStr(iMB)                                 ‘It actually needs to be a string, not an integer…

Set oSQLserver = CreateObject(“SQLDMO.SQLServer”)
oSQLserver.LoginSecure = True                   ‘Use Windows Authentication instead of SQL Authentication.
oSQLserver.Connect(“(LOCAL)\MSFW”)              ‘The ISA Server logging MSDE database on local machine.

Set oConfiguration = oSQLserver.Configuration
bCurrentState = oConfiguration.ShowAdvancedOptions  ‘Will set current state of this value back afterwards.
oConfiguration.ShowAdvancedOptions = True

Set oConfigValue = oSQLServer.Configuration.ConfigValues(“max server memory (MB)”)
oConfigValue.CurrentValue = iMB

‘No need to restart SQL Server, this value is True for DynamicReconfigure.
oConfiguration.ShowAdvancedOptions = bCurrentState
oConfiguration.ReconfigureWithOverride()

If Err.Number = 0 Then SetCurrentMaxServerMemoryValue = True Else SetCurrentMaxServerMemoryValue = False
oSQLserver.DisConnect()
End Function

Sub ShowHelpAndQuit()
Dim sUsage : sUsage = vbCrLf
sUsage = sUsage & vbCrLf
sUsage = sUsage & “ISA_MSDE_Max_Memory.vbs [value] | [/show] | [/?]” & vbCrLf
sUsage = sUsage & vbCrLf
sUsage = sUsage & “This script will query or configure the maximum amount of memory” & vbCrLf
sUsage = sUsage & “the SQL/MSDE service is permitted to use for logging on the” & vbCrLf
sUsage = sUsage & “local ISA Server.  It does not limit the size of your database” & vbCrLf
sUsage = sUsage & “logs, only the amount of memory the SQL/MSDE service can use.” & vbCrLf
sUsage = sUsage & vbCrLf
sUsage = sUsage & “       value = Number of megabytes of memory to which the SQL/MSDE” & vbCrLf
sUsage = sUsage & “               service will be limited.  Makes changes to the system.” & vbCrLf
sUsage = sUsage & “               Example: cscript.exe ISA_MSDE_Max_Memory.vbs 512″ & vbCrLf
sUsage = sUsage & vbCrLf
sUsage = sUsage & “       /show = Shows the current upper memory limit. Makes no changes.” & vbCrLf
sUsage = sUsage & vbCrLf
sUsage = sUsage & “          /? = Shows this help. Makes no changes.” & vbCrLf
sUsage = sUsage & “  ” & vbCrLf
sUsage = sUsage & “The script does not require OSQL.EXE, SQL Server Enterprise Manager, ” & vbCrLf
sUsage = sUsage & “or the SQL Query Analyzer in order to run, but you must be a ” & vbCrLf
sUsage = sUsage & “local Administrators group member.  Do not set a memory limit if” & vbCrLf
sUsage = sUsage & “you don’t know what you are doing or why you are doing it!  The ” & vbCrLf
sUsage = sUsage & “default Microsoft setting is 2147483647 MB.  In general, do not set” & vbCrLf
sUsage = sUsage & “the value smaller than 32 MB, and 512 MB is an OK setting if you ” & vbCrLf
sUsage = sUsage & “have 2 GB or more of RAM.” & vbCrLf
sUsage = sUsage & vbCrLf
sUsage = sUsage & “Script is public domain. No rights reserved. SCRIPT PROVIDED “”AS IS”" ” & vbCrLf
sUsage = sUsage & “WITHOUT WARRANTIES OR GUARANTEES OF ANY KIND.  USE AT YOUR OWN RISK.” & vbCrLf
sUsage = sUsage & “No technical support provided.  ( www.ISAscripts.org )” & vbCrLf
sUsage = sUsage & vbCrLf

WScript.Echo sUsage
WScript.Quit
End Sub

‘*************************************************************************************