getSQLinfo.vbs 獲得SQL數(shù)據(jù)/日志空間使用情況的腳本
更新時(shí)間:2008年07月17日 19:27:25 作者:
這個(gè)腳本可以獲取SQL數(shù)據(jù)/日志的空間使用情況方便及時(shí)了解sql使用空間情況
獲得SQL數(shù)據(jù)/日志空間使用,已使用的和未使用的空間的腳本
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
'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
相關(guān)文章
CMD和vbs修改 IP地址及DNS的實(shí)現(xiàn)代碼
命令行下對(duì)IP地址及DNS的操作 包括netsh和wmic兩個(gè)版本 和vbs下對(duì)網(wǎng)關(guān)和DNS的修改2009-01-01用vbs返回 Internet Explorer 的下載控件和 Applet 的列表
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表...2007-04-04讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的代碼
讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的,沒(méi)有使用WMI,所以在操作前先得停止IIS相關(guān)服務(wù)2008-07-07vbscript實(shí)現(xiàn)的根據(jù)不同時(shí)間段顯示不同的歡迎語(yǔ)
頁(yè)面加載時(shí),瀏覽器遇到 Script 標(biāo)記。Script 標(biāo)記可能含有 Script 級(jí)代碼(不包含在過(guò)程之中),在對(duì) HTML 頁(yè)面進(jìn)行語(yǔ)法分析時(shí),將執(zhí)行此代碼。此代碼可使用瀏覽器提供的對(duì)象把內(nèi)容寫入頁(yè)面中2013-04-04