欧美亚洲日本在线,亚洲人成影视在线观看

主頁 > 知識庫 > getSQLinfo.vbs 獲得SQL數據/日志空間使用情況的腳本

getSQLinfo.vbs 獲得SQL數據/日志空間使用情況的腳本

獲得SQL數據/日志空間使用，已使用的和未使用的空間的腳本

getSQLinfo.vbs
'script to get   SQL DATA/LOG Space Used, Space unused,
and Space Free
'Author: Felipe Ferreira, Daniel Magrini
'Date: 05/07/07
'Version 2,0

'@@TO CHANGE::: SERVERNAME\Instance, domain\user, password AND DATABSE!

'____________________________________________________________________________
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set oFSO = CreateObject("Scripting.FilesyStemObject")
outputfile = "CheckSqlDB_Size.txt"
Set ofile = oFso.OpenTextFile(outputfile,8, True)
oFile.Writeline "######################################################"
oFile.Writeline "This command executed in "  Date  " at "  Time  VbCrLf
'____________________________________________________________________________

CheckSQLData
CheckSQLLOG

'############## GET SQL DATA SPACE USED, SPACE TOTAL, SPACE FREE
'Function checkSQL(strServer,strDB)   in the future make it a function....
Sub CheckSQLDATA
Const adOpenDynamic = 1, adLockOptimistic = 3
Dim strQuery
Dim objConnection, objRecordSet
Dim strQueryResult, strQueryResult2
Dim UsedDataSpace, TotalDataSpace, FreeDataSpace
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
   "Provider=SQLOLEDB.1;Server=192.168.8.10;User ID=sa;Password=lcx;Database=master;"

strQuery = "DBCC showfilestats"
   objRecordSet.Open strQuery, objConnection, adOpenDynamic, adLockOptimistic
   if objRecordSet.eof Then
       'nothing returned
    wscript.echo "ERROR!!!"
   Else

'NOTE : To get the value in MB   64 / 1024 = 0.0625
   Do Until objRecordSet.eof
      strQueryResult = objRecordSet.Fields("UsedExtents")
    UsedDataSpace = strQueryResult * 0.0625
    strQueryResult2 = objRecordSet.Fields("TotalExtents")
    TotalDataSpace = strQueryResult2 * 0.0625
    FreeDataSpace = TotalDataSpace - UsedDataSpace

    'Clean Data
    UsedDataSpace = Left(UsedDataSpace,4)
    FreeDataSpace = Left(FreeDataSpace,4)
    TotalDataSpace = Left(TotalDataSpace,4)

    'Print Result on Screen
    Wscript.echo "Used Space(MB) = "  UsedDataSpace
    Wscript.Echo "Free Space(MB) = "  FreeDataSpace
    Wscript.Echo "Total Space(MB) = "  TotalDataSpace

    'Write on File
    ofile.WriteLine "Used DATA Space(MB) = "  UsedDataSpace
    ofile.WriteLine "Free DATA Space(MB) = "  FreeDataSpace
    ofile.WriteLine "Total DATA Space(MB) = "  TotalDataSpace

      objRecordSet.MoveNext
   loop
   end if
objRecordSet.Close
objConnection.Close
set objConnection = nothing
set objRecordSet = nothing
end sub

Sub CheckSQLLOG
Const adOpenDynamic = 1, adLockOptimistic = 3
Dim strQuery
Dim objConnection, objRecordSet
Dim strQueryResult, strQueryResult2
Dim UsedLogSpace, TotalLogSpace, FreeLogSpace
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
   "Provider=SQLOLEDB.1;Server=192.168.8.10;User ID=sa;Password=lcx;Database=master;"

strQuery = "DBCC SQLPERF(LOGSPACE)"
   objRecordSet.Open strQuery, objConnection, adOpenDynamic, adLockOptimistic
   if objRecordSet.eof Then
       'nothing returned
    wscript.echo "ERROR!!!"
   Else

   Do Until objRecordSet.eof
    If objRecordSet.Fields("Database Name") = "master" Then


     strQueryResult = objRecordSet.Fields("Log Size (MB)")
     strQueryResult2 = objRecordSet.Fields("Log Space USed (%)")
     UsedLogSpace = (strQueryResult * strQueryResult2) / 100
     TotalLogSpace = strQueryResult
     FreeLogSpace = TotalLogSpace - UsedLogSpace

     'Clean Data
     UsedLogSpace = Left(UsedLogSpace,4)
     FreeLogSpace = Left(FreeLogSpace,4)
     TotalLogSpace = Left(TotalLogSpace,4)

     'Print Result on Screen
     Wscript.echo "Used Space(MB) = "  UsedLogSpace
     Wscript.Echo "Free Space(MB) = "  FreeLogSpace
     Wscript.Echo "Total Space(MB) = "  TotalLogSpace

     'Write on File
     oFile.WriteLine "Used LOG Space(MB) = "  UsedLogSpace
     oFile.WriteLine "Free LOG Space(MB) = "  FreeLogSpace
     oFile.WriteLine "Total LOG Space(MB) = "  TotalLogSpace

     oFile.close

     Exit Do

    End If

      objRecordSet.MoveNext
   loop
   end if
objRecordSet.Close
objConnection.Close
set objConnection = nothing
set objRecordSet = nothing
end sub
WSCript.Quit

標簽：黃山承德鄂爾多斯麗水青島錫林郭勒盟齊齊哈爾阜新

巨人網絡通訊聲明：本文標題《getSQLinfo.vbs 獲得SQL數據/日志空間使用情況的腳本》，本文關鍵詞 getSQLinfo.vbs,獲得,SQL,數據,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

好湿?好紧?好多水好爽自慰,久久久噜久噜久久综合,成人做爰A片免费看黄冈,机机对机机30分钟无遮挡

getSQLinfo.vbs 獲得SQL數據/日志空間使用情況的腳本