Solved

VBScript: Output to screen

Posted on 2010-09-06
3
1,803 Views
Last Modified: 2012-05-10
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

0
Comment
Question by:ReneGe
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 55

Accepted Solution

by:
Bill Prew earned 450 total points
ID: 33614694
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
 
LVL 14

Assisted Solution

by:Psy053
Psy053 earned 50 total points
ID: 33614740
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
 
LVL 10

Author Comment

by:ReneGe
ID: 33614848
==>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

Featured Post

What Is Transaction Monitoring and who needs it?

Synthetic Transaction Monitoring that you need for the day to day, which ensures your business website keeps running optimally, and that there is no downtime to impact your customer experience.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Entering a date in Microsoft Access can be tricky. A typo can cause month and day to be shuffled, entering the day only causes an error, as does entering, say, day 31 in June. This article shows how an inputmask supported by code can help the user a…
Today, the web development industry is booming, and many people consider it to be their vocation. The question you may be asking yourself is – how do I become a web developer?
Viewers will learn how to properly install Eclipse with the necessary JDK, and will take a look at an introductory Java program. Download Eclipse installation zip file: Extract files from zip file: Download and install JDK 8: Open Eclipse and …
Introduction to Processes

696 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question