当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

VBScript
用vbs清空iis log 中自己登录ip的记录
vbs sendmail发邮件带附件方法
用vbs通过135端口执行命令的脚本
用vbs实现的瞬间关闭多个系统进程的脚本
vbs 中调用shell.application 简单函数
vbs wmi获取电脑硬件信息实例
用vbscript实现隐藏任务栏图标的脚本
vbs正则表达式代码
vbs版IP地理位置查询小偷
超级厉害的VBS定时提醒脚本 Remind.vbs
vbs实现的支持拖动的txt文本切割器
VBS如何察看或获得剪切板内容的脚本
VBS备忘录启动代码
VBS脚本使用WMI操作注册表的代码
vbs xmldom初次实战获取QQ签名的代码
VBS破坏性应用代码
vbs生成ACCESS数据里所有表的字段
vbs实现的图片自适应表格,目前最佳解决方案!
ProcessMagnifier.vbs进程查看
用于提取网易文件的hta代码

No. « 29 30 31 32 »

技术文章搜索

关键字

VBScript 中的 getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-11   浏览: 77 ::
收藏到网摘: n/a

获得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