{"id":51563,"date":"2010-01-14T00:01:00","date_gmt":"2010-01-14T00:01:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2010\/01\/14\/hey-scripting-guy-how-can-i-create-a-windows-visio-drawing-of-my-workstations-disk-subsystem\/"},"modified":"2010-01-14T00:01:00","modified_gmt":"2010-01-14T00:01:00","slug":"hey-scripting-guy-how-can-i-create-a-windows-visio-drawing-of-my-workstations-disk-subsystem","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-how-can-i-create-a-windows-visio-drawing-of-my-workstations-disk-subsystem\/","title":{"rendered":"Hey, Scripting Guy! How Can I Create a Windows Visio Drawing of My Workstations' Disk Subsystem?"},"content":{"rendered":"

\"Bookmark<\/a><\/p>\n

 <\/p>\n

\"Hey,<\/font><\/p>\n

Hey, Scripting Guy! I would like to do a drawing of the disk subsystem on my workstations. We are getting ready to upgrade to Windows 7, and I want to find out which computers have drives that are more than 50 percent full. In addition, I need to know the size of the drives. If I could make a Microsoft Visio drawing using Windows PowerShell, it would be awesome. Is this something that is possible?<\/p>\n

— JB<\/p>\n

\n

 <\/p>\n

\"Hey,Hello JB, <\/p>\n

Microsoft Scripting Guy Ed Wilson here. I have been slowly catching up on e-mail that was sent to the scripter@microsoft.com<\/font><\/a> alias, and when I ran across your letter, I thought the idea was pretty cool. I spent most of the day writing the ComputerDiskDrawing.ps1 script seen here. <\/p>\n

ComputerDiskDrawing.ps1<\/p>\n

<\/b><\/p>\n

Param($computer = “LocalHost”)<\/p>\n

# *** Functions ***
Function Get-ComputerSystem ($computer)
{
 <\/span>Get-WmiObject -Class win32_computersystem -ComputerName $computer
} #end Get-ComputerSystem<\/p>\n

Function Get-Volumes($computer)
{
 <\/span>Get-WmiObject -class win32_Volume -filter “DriveType = 3” `
    <\/span>-computername $computer
} #end Get-Volumes<\/p>\n

Function Get-OptimalSize
{
 <\/span><#
  <\/span>.Synopsis
    <\/span>Converts Bytes into the appropriate unit of measure.
   <\/span>.Description
    <\/span>The Get-OptimalSize function converts bytes into the appropriate unit of
    <\/span>measure. It returns a string representation of the number.
   <\/span>.Example
    <\/span>Get-OptimalSize 1025
    <\/span>Converts 1025 bytes to 1.00 KiloBytes
    <\/span>.Example
    <\/span>Get-OptimalSize -sizeInBytes 10099999
    <\/span>Converts 10099999 bytes to 9.63 MegaBytes
   <\/span>.Parameter SizeInBytes
    <\/span>The size in bytes to be converted
   <\/span>.Inputs
    <\/span>[int64]
   <\/span>.OutPuts
    <\/span>[string]
   <\/span>.Notes
    <\/span>NAME:  <\/span>Get-OptimalSize
    <\/span>AUTHOR: Ed Wilson
    <\/span>LASTEDIT: 1\/4\/2010
    <\/span>KEYWORDS:
   <\/span>.Link
     <\/span>Http:\/\/www.ScriptingGuys.com
 <\/span>#Requires -Version 2.0
 <\/span>#>
 <\/span>Param([int64]$sizeInBytes)
 <\/span>Switch ($sizeInBytes)
  <\/span>{
   <\/span>{$sizeInBytes -ge 1TB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1TB) + ” TeraBytes”;break}
   <\/span>{$sizeInBytes -ge 1GB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1GB) + ” GigaBytes”;break}
   <\/span>{$sizeInBytes -ge 1MB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1MB) + ” MegaBytes”;break}
   <\/span>{$sizeInBytes -ge 1KB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1KB) + ” KiloBytes”;break}
   <\/span>Default { “{0:n2}” -f $sizeInBytes + ” Bytes” }
  <\/span>} #end switch
} #end Function Get-OptimalSize <\/p>\n

# *** Entry to Script ***<\/p>\n

$application = New-Object -ComObject Visio.Application
$application.visible = $false
$documents = $application.Documents
$document = $documents.Add(“Basic Network Diagram.vst”)
$pages = $application.ActiveDocument.Pages
$page = $pages.Item(1)<\/p>\n

$ComputerStencil = $application.Documents.Add(“Computers and Monitors.vss”)
$BasicStencil = $application.Documents.Add(“Basic Shapes.vss”)<\/p>\n

$pcinfo = Get-ComputerSystem -computer $computer
$pc = $ComputerStencil.Masters.Item(“PC”)
$shape1 = $page.Drop($pc, 2.2, 6.8)
$shape1.Text = “$($pcinfo.DNSHostName)`r`n$($pcinfo.Domain)”<\/p>\n

$Volumes = Get-Volumes -computer $computer
$x = 3.0 #establishes left column
$xx = 6.0
$y = 6.0 #establishes right column
$yy = 7.0
$visSectionObject = 1
$visRowFill = 3
$visFillForegnd = 0
ForEach($volume in $Volumes)
{
 <\/span>$inuse = $volume.capacity – $volume.freeSpace
 <\/span>$percentInUse = ($inuse \/ $volume.Capacity) * 100
 <\/span>$shape2 = $page.DrawRectangle($x,$xx,$y,$yy)
 <\/span>$shape2.text = “DRIVE: $($Volume.name)
  <\/span>Capacity: $(Get-OptimalSize -sizeinbytes $($Volume.Capacity))
  <\/span>In Use: $(Get-OptimalSize -sizeinbytes $inuse)”
  <\/span>if($percentInUse -gt 50)
    <\/span>{
     <\/span>$shape2.CellsSRC($visSectionObject,$visRowFill, `
                      <\/span>$visFillForegnd).FormulaU=”THEMEGUARD(RGB(255,0,0))”
    <\/span>}
  <\/span>else
    <\/span>{
     <\/span>$shape2.CellsSRC($visSectionObject,\n$visRowFill, `
                      <\/span>$visFillForegnd).FormulaU=”THEMEGUARD(RGB(0,255,0))”
    <\/span>}
 <\/span>$xx -= 1.2
 <\/span>$yy-= 1.2
}
$visCharacterStyle = 2
$visRowCharacter = 0
$visSectionCharacter = 3 <\/p>\n

$ColumnHead = $page.DrawRectangle(3.54,7.08,5.51,7.48)
$ColumnHead.TextStyle = “Normal”
$ColumnHead.LineStyle = “Text Only”
$columnHead.FillSTyle = “Text Only”
$ColumnHead.Text = “DISK DRIVES”
$ColumnHead.CellsSRC($visSectionCharacter,$visRowCharacter, `
                     <\/span>$visCharacterStyle).FormulaU = 1<\/p>\n

$page.CenterDrawing()
$document.SaveAs(“C:fsoComputerDisks.vsd”)
$application.Quit()<\/p>\n

<\/font><\/font><\/p>\n

The first thing the ComputerDiskDrawing.ps1 script does is create a command-line parameter for the name of the target computer and a couple of functions that are used to retrieve WMI information. The Get-ComputerSystem<\/b> function uses the Win32_ComputerSystem<\/b> WMI class to retrieve basic computer information and the Get-Volumes<\/b> function uses the Win32_Volume<\/b> WMI class, which is available beginning with Windows Server 2003, to return information about fixed local disks on the computer. This section of the script is shown here: <\/p>\n

Param($computer = “LocalHost”)
Function Get-ComputerSystem ($computer)
{
Get-WmiObject -Class win32_computersystem -ComputerName $computer
} #end Get-ComputerSystem
Function Get-Volumes($computer)
{
Get-WmiObject -class win32_Volume -filter “DriveType = 3” `
    <\/span>-computername $computer
} #end Get-Volumes<\/p>\n

<\/font><\/font><\/p>\n

It is time to create a function that will translate the disk sizes (returned in bytes) to a more easily understood size. Windows PowerShell has several built in constants that can be used to translate numeric values from bytes to kilobytes (KB), megabytes (MB), gigabytes (GB), or even terabytes (TB). To translate 1,024 bytes into kilobytes, you can use the KB constant, as seen here:<\/p>\n

PS C:> 1024 \/ 1KB
1
PS C:><\/p>\n

<\/font><\/font><\/p>\n

Inside the Get-OptimalSize<\/b> function, the Switch<\/b> statement is used to evaluate the value of the –sizeinbytes<\/b> parameter and to determine the correct unit to display the value. One interesting thing that is done inside the Switch<\/b> statement is the use of a script block for each condition to evaluate. This technique is not documented in the help files. The reason a script block is required is to perform an evaluation of the size of the number stored in the sizeinbytes<\/b> parameter. If the value is greater than or equal to 1 terabyte, the number is translated into terabytes. The “{0:n2}” –f<\/b> construction is a format specifier to limit the number that is returned to two decimal places. The complete switch statement is seen here:<\/p>\n

Switch ($sizeInBytes)
  <\/span>{
   <\/span>{$sizeInBytes -ge 1TB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1TB) + ” TeraBytes”;break}
   <\/span>{$sizeInBytes -ge 1GB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1GB) + ” GigaBytes”;break}
   <\/span>{$sizeInBytes -ge 1MB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1MB) + ” MegaBytes”;break}
   <\/span>{$sizeInBytes -ge 1KB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1KB) + ” KiloBytes”;break}
   <\/span>Default { “{0:n2}” -f $sizeInBytes + ” Bytes” }
  <\/span>} #end switch<\/p>\n

<\/font><\/font><\/p>\n

The complete Get-OptimalSize<\/b> function is shown here:<\/p>\n

Function Get-OptimalSize
{
<#
  <\/span>.Synopsis
    <\/span>Converts Bytes into the appropriate unit of measure.
   <\/span>.Description
    <\/span>The Get-OptimalSize function converts bytes into the appropriate unit of
    <\/span>measure. It returns a string representation of the number.
   <\/span>.Example
    <\/span>Get-OptimalSize 1025
    <\/span>Converts 1025 bytes to 1.00 KiloBytes
    <\/span>.Example
    <\/span>Get-OptimalSize -sizeInBytes 10099999
    <\/span>Converts 10099999 bytes to 9.63 MegaBytes
   <\/span>.Parameter SizeInBytes
    <\/span>The size in bytes to be converted
   <\/span>.Inputs
    <\/span>[int64]
   <\/span>.OutPuts
    <\/span>[string]
   <\/span>.Notes
    <\/span>NAME:  <\/span>Get-OptimalSize
    <\/span>AUTHOR: Ed Wilson
    <\/span>LASTEDIT: 1\/4\/2010
    <\/span>KEYWORDS:
   <\/span>.Link
     <\/span>Http:\/\/www.ScriptingGuys.com
#Requires -Version 2.0
#>
Param([int64]$sizeInBytes)
Switch ($sizeInBytes)
  <\/span>{
   <\/span>{$sizeInBytes -ge 1TB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1TB) + ” TeraBytes”;break}
   <\/span>{$sizeInBytes -ge 1GB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1GB) + ” GigaBytes”;break}
   <\/span>{$sizeInBytes -ge 1MB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1MB) + ” MegaBytes”;break}
   <\/span>{$sizeInBytes -ge 1KB} {“{0:n2}” -f  <\/span>($sizeInBytes\/1KB) + ” KiloBytes”;break}
   <\/span>Default { “{0:n2}” -f $sizeInBytes + ” Bytes” }
  <\/span>} #end switch
} #end Function Get-OptimalSize <\/p>\n

<\/font><\/font><\/p>\n

The next section of the script is the same as Wednesday’s Hey, Scripting Guy! post<\/a>:<\/p>\n

$application = New-Object -ComObject Visio.Application
$application.visible = $false
$documents = $application.Documents
$document = $documents.Add(“Basic Network Diagram.vst”)
$pages = $application.ActiveDocument.Pages
$page = $pages.Item(1)
$ComputerStencil = $application.Documents.Add(“Computers and Monitors.vss”)
$BasicStencil = $application.Documents.Add(“Basic Shapes.vss”)
$pcinfo = Get-ComputerSystem -computer $computer
$pc = $ComputerStencil.Masters.Item(“PC”)
$shape1 = $page.Drop($pc, 2.2, 6.8)
$shape1.Text = “$($pcinfo.DNSHostName)`r`n$($pcinfo.Domain)”<\/p>\n

<\/font><\/font><\/p>\n

Store the management objects that are returned by the Get-Volumes<\/b> function in the $volumes<\/b> variable, as seen here:<\/p>\n

$Volumes = Get-Volumes -computer $computer<\/p>\n

<\/font><\/font><\/p>\n

Several variables are created to establish the initial coordinates for drawing the rectangle. These are seen here:<\/p>\n

$x = 3.0 #establishes left column
$xx = 6.0
$y = 6.0 #establishes right column
$yy = 7.0<\/p>\n

<\/font><\/font><\/p>\n

Three additional variables are created that hold enumeration values for the CellsSRC<\/b> method that will be used to add color to the rectangle. The first variable, $visSectionObject<\/b>, holds the VisSectionIndices enumeration value<\/font><\/a>; the second variable, $visRowFill<\/b>, holds the VisRowIndices enumeration value<\/font><\/a>; and the third variable, $visFillForegnd<\/b>, holds the VisCellIndices enumeration value<\/font><\/a>. The value assignments are seen here: <\/p>\n

$visSectionObject = 1
$visRowFill = 3
$visFillForegnd = 0<\/p>\n

<\/font><\/font><\/p>\n

When all of the appropriate variables have been created and assigned values, it is time to loop through the collection of Win32_Volume<\/b> objects that are stored in the $volumes<\/b> variable. The $volume<\/b> variable holds a complete object that represents one of the fixed local disks on the computer. The amount of occupied disk space is computed by subtracting the freeSpace<\/b> from the capacity of the drive. The result is stored in the $inuse<\/b> variable. Next, the percentage of disk utilization is computed by using the value stored in the $inuse<\/b> variable and the capacity. The result is stored in the $percentInUse<\/b> variable. This is seen here:<\/p>\n

ForEach($volume in $Volumes)
{
$inuse = $volume.capacity – $volume.freeSpace
$percentInUse = ($inuse \/ $volume.Capacity) * 100<\/p>\n

<\/font><\/font><\/p>\n

The DrawRectangle<\/b> method is used to draw a rectangle on the Microsoft Visio document. The first two arguments to the DrawRectangle method<\/font><\/a> of the page object<\/a> represent the lower left corner of the rectangle, and the last two arguments to the method represent the upper right corner of the rectangle. The returned shape object is stored in the $shape2<\/b> variable seen here:<\/p>\n

 <\/span>$shape2 = $page.DrawRectangle($x,$xx,$y,$yy)<\/p>\n

<\/font><\/font><\/p>\n

The text<\/b> property of the shape<\/b> object is used to display the drive name, capacity, and amount of space that is in use. The Get-OptimalSize<\/b> function is used to choose the appropriate units of measure for each drive:<\/p>\n

 <\/span>$shape2.text = “DRIVE: $($Volume.name)
 <\/span>Capacity: $(Get-OptimalSize -sizeinbytes $($Volume.Capacity))
 <\/span>In Use: $(Get-OptimalSize -sizeinbytes $inuse)”<\/p>\n

<\/font><\/font><\/p>\n

If the drive is more than 50 percent full, the rectangle representing the drive is displayed in red. To do this, the CellsSRC property<\/font><\/a> is used to apply a red-green-blue (RGB) value. When the RGB value is 255,0,0, it is all red. If the drive is less than 50 percent full, the rectangle representing the drive is displayed in green. Green is 0,255,0 in RGB nomenclature. This section of the script is seen here:<\/p>\n

if($percentInUse -gt 50)
    <\/span>{
     <\/span>$shape2.CellsSRC($visSectionObject,$visRowFill, `
                      <\/span>$visFillForegnd).FormulaU=”THEMEGUARD(RGB(255,0,0))”
    <\/span>}
  <\/span>else
    <\/span>{
     <\/span>$shape2.CellsSRC($visSectionObject,$visRowFill, `
                      <\/span>$visFillForegnd).FormulaU=”THEMEGUARD(RGB(0,255,0))”
    <\/span>}<\/p>\n

<\/font><\/font><\/p>\n

Because the script loops around creating rectangles for each volume on the computer system, the value of the $xx<\/b> and $yy<\/b> variables is decremented by 1.2. This will lower the position of the next rectangle to be created by 1.2. The -=<\/b> operator is used to subtract and assign a new value to the existing value of the $xx<\/b> and $yy<\/b> variables respectively. Using the -=<\/b> operator is illustrated here:<\/p>\n

PS C:> $a = 5
PS C:> $a -= 3
PS C:> $a
2
PS C:><\/p>\n

<\/font><\/font><\/p>\n

The code to decrement the value of the two variables is seen here:<\/p>\n

 <\/span>$xx -= 1.2
$yy-= 1.2
}<\/p>\n

<\/font><\/font><\/p>\n

Now three more variable assignments need to be made. These variables will be used with the b property. The first variable, $visCharacterStyle<\/b>, holds the VisSectionIndices enumeration value<\/font><\/a>. The second variable, $visRowCharacter<\/b>, holds the VisRowIndices enumeration value<\/font><\/a>. And the third variable, $visSectionCharacter<\/b>, holds the VisCellIndices enumeration value<\/font><\/a>. This is seen here:<\/p>\n

$visCharacterStyle = 2
$visRowCharacter = 0
$visSectionCharacter = 3 <\/p>\n

<\/font><\/font><\/p>\n

The DrawRectangle<\/b> method from the page<\/b> object is used to create a text box that will be used for the column head. The resulting shape is stored in the $ColumnHead<\/b> variable:<\/p>\n

$ColumnHead = $page.DrawRectangle(3.54,7.08,5.51,7.48)<\/p>\n

<\/font><\/font><\/p>\n

After creating the shape, the TextStyle<\/b> property is set to normal<\/b>, and the LineStyle<\/font><\/a> and FillStyle<\/font><\/a> properties are set to Text Only<\/b>. The resulting shape will only display the value that is assigned to the Text<\/b> property of the shape. This section of the script is seen here:<\/p>\n

$ColumnHead.TextStyle = “Normal”
$ColumnHead.LineStyle = “Text Only”
$columnHead.FillStyle = “Text Only”
$ColumnHead.Text = “DISK DRIVES”<\/p>\n

<\/font><\/font><\/p>\n

It is time to use the CellsSRC<\/b> property to assign the FormulaU<\/b> the value of 1. This will cause the text to appear in bold:<\/p>\n

$ColumnHead.CellsSRC($visSectionCharacter,$visRowCharacter, `
       <\/span>              <\/span>$visCharacterStyle).FormulaU = 1<\/p>\n

<\/font><\/font><\/p>\n

After adding the column heading, all that remains is to center the drawing, save the drawing, and exit Microsoft Visio. The code to do this is the same we have used all week:<\/p>\n

$page.CenterDrawing()
$document.SaveAs(“C:fsoComputerDisks.vsd”)
$application.Quit()<\/p>\n

<\/font><\/font><\/p>\n

When the script runs, the following drawing is saved to the destination supplied to the SaveAs<\/b> method of the document<\/b> object. <\/p>\n

\"Image<\/p>\n

\n

 <\/p>\n<\/p>\n

JB, that is all there is to using Microsoft Visio to create a diagram of your disk drives. The script for today can also be found at the Script Repository<\/a>.  This concludes the Microsoft Visio Week articles. Join us tomorrow for Quick-Hits Friday. <\/p>\n

If you want to know exactly what we will be discussing tomorrow, follow us on Twitter<\/a> or Facebook<\/font><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

  Hey, Scripting Guy! I would like to do a drawing of the disk subsystem on my workstations. We are getting ready to upgrade to Windows 7, and I want to find out which computers have drives that are more than 50 percent full. In addition, I need to know the size of the drives. […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[53,49,3,45],"class_list":["post-51563","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-visio","tag-office","tag-scripting-guy","tag-windows-powershell"],"acf":[],"blog_post_summary":"

  Hey, Scripting Guy! I would like to do a drawing of the disk subsystem on my workstations. We are getting ready to upgrade to Windows 7, and I want to find out which computers have drives that are more than 50 percent full. In addition, I need to know the size of the drives. […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/51563","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=51563"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/51563\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=51563"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=51563"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=51563"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}