getSQLinfo.vbs如何获得SQL数据/日志空间使用情况

发布时间:2021-10-13 14:36:34 作者:小新
来源:亿速云 阅读:112

这篇文章给大家分享的是有关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数据/日志空间使用情况”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,让大家可以学到更多知识,如果觉得文章不错,可以把它分享出去让更多的人看到吧!

推荐阅读:
  1. 一、个人总结的菜鸟教程|sql教程的知识点(SQL教程)
  2. SQL多表连接查询(详细实例)

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

getsqlinfo.vbs sql vbs

上一篇:怎么进行MySQL的安装

下一篇:如何解决Could not find or load main class org.apache.spark.deploy.yarn.ApplicationMaster问题

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》