VBScript: Output to screen

Hi there,

I have this script that outputs to a file (Thanks Psy053).

I need it to output on screen so I can use the datas in a batch file.

@ECHO OFF
FOR /F "tokens=1-10 delims=," %%A IN ('cscript GetVolumeInfos.vbs') DO ECHO %%A,%%B,%%C,%%D,%%E,%%F,%%G,%%H,%%I,%%J
PAUSE

I know this batch file is kind of useless, but it's just to test the VBScript.

REF: http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_26454651.html

Thanks for yur help,
Rene


strComputer = "."
strFileName = "DiskSpace.log"
Const Gig = 1073741824

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileName,8,True)

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")

For each objOS in colOS
	strMajorVersion = Left(objOS.Version,3)
Next

For Each objDisk in colDisks

	If Not IsNull(objDisk.Size / Gig) Then retUFSize = FormatNumber(objDisk.Size / Gig,2)
	If Not IsNull(objDisk.FreeSpace / Gig) Then retUFFree = FormatNumber(objDisk.FreeSpace / Gig,2)

	retDT = DriveType(objDisk.DriveType)

	If strMajorVersion < 5.2 Then
		retFrag = "N/A, N/A"
	Else
		retFrag = Fragmentation(objDisk.DeviceID, objDisk.DriveType)
	End If

	objFile.WriteLine "" & _
		objDisk.DeviceID & ", " & _
		objDisk.DriveType & ", " & _
		retDT & ", " & _
		objDisk.FileSystem & ", " & _
		objDisk.Size & ", " & _
		retUFSize & ", " & _
		objDisk.FreeSpace & ", " & _
		retUFFree & ", " & _
		retFrag

Next
objFile.Close


Function Fragmentation(strDID, strDT)
If strDT = 3 Then
	Set colVolumes = objWMIService.ExecQuery ("Select * from Win32_Volume Where (DriveLetter='" & strDID & "')")
	For Each objVolume in colVolumes
		ret = objVolume.DefragAnalysis(boolDefrag, objReport)
		If ret = 0 Then
			Fragmentation = objReport.TotalPercentFragmentation & "%, " & objReport.FilePercentFragmentation & "%"
		Else
			Fragmentation = "Error, Error"
		End If
	Next
Else
	Fragmentation = "N/A, N/A"
End If

End Function



Function DriveType(strDT)

Select Case strDT
Case "0"
	DriveType = "Unknown"
Case "1"
	DriveType = "No_Root_Directory"
Case "2"
	DriveType = "Removable_Disk"
Case "3"
	DriveType = "Local_Disk"
Case "4"
	DriveType = "Network_Drive"
Case "5"
	DriveType = "Compact_Disk"
Case "6"
	DriveType = "RAM_Disk"
End Select 

End Function

Open in new window

LVL 10
ReneGeAsked:
Who is Participating?
 
Bill PrewConnect With a Mentor Commented:
Try this please.

~bp
strComputer = "."
strFileName = "DiskSpace.log"
Const Gig = 1073741824
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")
 
For each objOS in colOS
        strMajorVersion = Left(objOS.Version,3)
Next
 
For Each objDisk in colDisks
 
        If Not IsNull(objDisk.Size / Gig) Then retUFSize = FormatNumber(objDisk.Size / Gig,2)
        If Not IsNull(objDisk.FreeSpace / Gig) Then retUFFree = FormatNumber(objDisk.FreeSpace / Gig,2)
 
        retDT = DriveType(objDisk.DriveType)
 
        If strMajorVersion < 5.2 Then
                retFrag = "N/A, N/A"
        Else
                retFrag = Fragmentation(objDisk.DeviceID, objDisk.DriveType)
        End If
 
        Wscript.Echo "" & _
                objDisk.DeviceID & ", " & _
                objDisk.DriveType & ", " & _
                retDT & ", " & _
                objDisk.FileSystem & ", " & _
                objDisk.Size & ", " & _
                retUFSize & ", " & _
                objDisk.FreeSpace & ", " & _
                retUFFree & ", " & _
                retFrag
 
Next
 
 
Function Fragmentation(strDID, strDT)
If strDT = 3 Then
        Set colVolumes = objWMIService.ExecQuery ("Select * from Win32_Volume Where (DriveLetter='" & strDID & "')")
        For Each objVolume in colVolumes
                ret = objVolume.DefragAnalysis(boolDefrag, objReport)
                If ret = 0 Then
                        Fragmentation = objReport.TotalPercentFragmentation & "%, " & objReport.FilePercentFragmentation & "%"
                Else
                        Fragmentation = "Error, Error"
                End If
        Next
Else
        Fragmentation = "N/A, N/A"
End If
 
End Function
 
 
 
Function DriveType(strDT)
 
Select Case strDT
Case "0"
        DriveType = "Unknown"
Case "1"
        DriveType = "No_Root_Directory"
Case "2"
        DriveType = "Removable_Disk"
Case "3"
        DriveType = "Local_Disk"
Case "4"
        DriveType = "Network_Drive"
Case "5"
        DriveType = "Compact_Disk"
Case "6"
        DriveType = "RAM_Disk"
End Select 
 
End Function

Open in new window

0
 
Psy053Connect With a Mentor Commented:
Why do you need to use the data in a batch file? I might be able to wrap it all up in a VBScript.
0
 
ReneGeAuthor Commented:
==>Psy053
Thanks for asking. My batch file is quite large and I would not feel comfortable to ask for this in a single thread.

However, I will soon start to learn VBScript and will convert this batch file (and more) to VBScript. I will then post multiple threads in this regards.

==>bp
Thanks for helping. It worked without a sweat.


Thanks to you both and lots of cheers...,
Rene

0
All Courses

From novice to tech pro — start learning today.