#drspacev2.ps1
#Iterate a list of servers (src:a text file in d:\ps_scripts\servers.txt) through the WMI interface in windows.
#Collect a list of stats on all local drives for each server and store data
#in a csv file pipe"|" delimited at c:\temp\freespace.csv
New-Item c:\temp\Freespace.csv -type file -force | out-null;
$srvr = Get-Content C:\Temp\Servers.txt; foreach($row in $srvr) {
Get-WMIObject Win32_LogicalDisk -filter "DriveType=3" -computer $row| Select SystemName,DeviceID,VolumeName,size,freespace | foreach{$_.DeviceID}{$row+"|"+$_.DeviceID+"|"+$_.size/1mb+"|"+$_.freespace/1mb+"|FileSpace"|add-content c:\temp\Freespace.csv}}

Option Explicit

Dim oServerList, oSpaceTable, strServer, strServerID,strFreeSpace,strusedSpace, strDiskSize, strHDD, strTextFilePath, txt
Dim objWMIService, objItem, colItems,objFSO,objTextFile

'open our connections
set oServerList=createobject("adodb.recordset")
oServerList.open "SELECT * FROM [tblServer] WHERE localmonitor = 0" , "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Administration;Data Source=SQLDISTRIB;Application Name=DiskSpace Monitor"

set oSpaceTable=createobject("adodb.connection")
oSpaceTable.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Administration;Data Source=SQLDISTRIB;Application Name=DiskSpace Monitor"
 
' set the path for the error log file
strTextFilePath = "D:\CommonTools\Scripts\Log\errorlog.txt"
txt = "ServerID" & vbtab & "Server" & vbtab & "Error Description" & vbcrlf

' loop through or sql server tbl to get the server names we will need to go after.
    Do While Not oServerList.EOF 
        'WScript.Echo oServerList("server").Value 
	strServer = oServerList("Server")
	strServerID = oServerList("ServerID")
	'msgbox strserver & " " & strServerID
	
	' turn on our error handling
	On Error Resume Next

	Set objWMIService = GetObject("winmgmts:\\" & strServer & "\root\cimv2")
	
	If Err.Number <> 0 Then
		txt = txt & strServerID & vbtab & strServer & vbtab & Err.Description & vbcrlf
		
		oServerList.MoveNext

	Else

	Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType=3")
		For Each objItem in colItems
		
		'pctFreeSpace = INT((objItem.FreeSpace / objItem.Size) * 1000)/10
		strDiskSize = Int(objItem.Size)
		strFreeSpace = Int(objItem.FreeSpace)
		strUsedSpace = Int(objItem.Size-objItem.FreeSpace)
		strHDD = Replace(objItem.Name,":","")


		oSpaceTable.execute "INSERT INTO tblServerSpace ([serverid],[hdd],[totalsize],[freespace],[usedspace]) VALUES ('"& strServerID & "','" & strHDD & "','" & strDiskSize & "','" & strFreeSpace & "','" & strusedSpace & "')"
		Next

 	End If

		oServerList.MoveNext 

	    Loop 

       
    Set oServerList = Nothing 


' write the error log to teh file.
SET objFSO = createobject("Scripting.FileSystemObject")
SET objTextFile = objFSO.CreateTextFile(strTextFilePath)
objTextFile.Write(txt)
objTextFile.Close
SET objTextFile = nothing

wscript.echo txt
wscript.quit