{"id":51573,"date":"2010-01-13T00:01:00","date_gmt":"2010-01-13T00:01:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2010\/01\/13\/hey-scripting-guy-can-i-use-wmi-and-windows-powershell-to-make-a-microsoft-visio-drawing\/"},"modified":"2010-01-13T00:01:00","modified_gmt":"2010-01-13T00:01:00","slug":"hey-scripting-guy-can-i-use-wmi-and-windows-powershell-to-make-a-microsoft-visio-drawing","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-can-i-use-wmi-and-windows-powershell-to-make-a-microsoft-visio-drawing\/","title":{"rendered":"Hey, Scripting Guy! Can I Use WMI and Windows PowerShell to Make a Microsoft Visio Drawing?"},"content":{"rendered":"

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

 <\/p>\n

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

 Hey, Scripting Guy! Using Windows PowerShell to control Microsoft Visio looks really cool. However, if I have to manually enter all of the data in the script to produce the drawing, it is probably easier to open Microsoft Visio, drag and drop the shapes from the stencils, and add the connectors. However, I will say that using the autoconnect<\/b> script feature is much easier than dragging and dropping a bunch of connectors. Is there a way to integrate a Windows PowerShell script with a few Windows Management Instrumentation (WMI) queries, and use that information to make the drawing? If that could be done, I could run a script and easily document my network. <\/p>\n

— SA<\/p>\n

\n

 <\/p>\n

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

Microsoft Scripting Guy Ed Wilson here. A day without meetings is…well, like a day without meetings. With no meetings during a day, it is amazing how productive one can be. I have Carl Weathersby<\/font><\/a> cranked up on my Zune HD<\/font><\/a> and am sipping a cup of English breakfast with a cinnamon stick and lemon grass. The Scripting Wife made some cranberry nut scones to go with the tea. This is the first day of the New Year on the East Coast of the United States, and it is shaping up to be a wonderful day. Because I have spent so much time outside of United States in recent years, I was unaware of what people in Charlotte do for New Year’s Eve, so the Scripting Wife and I spent last night watching a Get Smart<\/i> marathon. My thoughtful present to her this year was the complete works. One of my favorite places to spend New Year’s Eve is Quebec City in Canada. I was up there for a month teaching Windows PowerShell workshops. As seen in the following image, winter up there can be very cool.<\/p>\n

\"Image<\/p>\n

It is a relaxing day and a fun time to mellow out, spend some extra time writing scripts, and catch up on e-mail sent to scripter@microsoft.com<\/font><\/a>. An ear infection is keeping me from going out to my woodworking shop or swimming, so I may as well write some scripts and answer e-mail. We can watch Get Smart<\/i> later.<\/p>\n

SA, I wrote the ComputerConfigDrawing.ps1 script for you to illustrate how to incorporate WMI data into a Microsoft Visio drawing that you generate by calling a Windows PowerShell script. The complete ComputerConfigDrawing.ps1 script is seen here. <\/p>\n

ComputerConfigDrawing.ps1<\/p>\n

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

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

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

Function Get-DesktopMonitor($computer)
{
 <\/span>Get-WmiObject -Class win32_desktopmonitor -ComputerName $computer
} #end Get-DesktopMonitor<\/p>\n

Function Get-DefaultPrinter ($computer)
{
 <\/span>Get-WmiObject -Class win32_printer -ComputerName $Computer `
               <\/span>-Filter “default = $true”
} #end Get-DefaultPrinter<\/p>\n

Function Get-NetworkAdapterConfiguration ($computer)
{
 <\/span>Get-WmiObject -Class win32_networkadapterconfiguration `
               <\/span>-ComputerName $computer -Filter “ipenabled = $true”
} #end Get-NetworkAdapterConfiguration<\/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

$NetworkStencil = $application.Documents.Add(“periph_m.vss”)
$ComputerStencil = $application.Documents.Add(“Computers and Monitors.vss”)
$ConnectorStencil = $application.Documents.Add(“Connectors.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

$monitorinfo = Get-DesktopMonitor -computer $computer
$Monitor = $ComputerStencil.Masters.Item(“LCD monitor”)
$shape2 = $page.Drop($Monitor, 5.0, 4.5)
$shape2.Text = “$($monitorinfo.name)
$($monitorinfo.ScreenHeight) x $($monitorinfo.ScreenWidth)”<\/p>\n

$printerinfo = Get-DefaultPrinter -computer $computer
$Printer = $NetworkStencil.Masters.Item(“Printer”)
$shape3 = $page.Drop($Printer,6.0,3.0)
$shape3.Text = “$($printerinfo.deviceID)
$($printerinfo.PortName)`r`n$($printerinfo.Location)”<\/p>\n

$networkinfo = Get-NetworkAdapterConfiguration -computer $computer
$Router = $NetworkStencil.Masters.Item(“Router”)
$shape4 = $page.Drop($Router,7.0,1.5)
$shape4.Text = “$($networkinfo.DefaultIPGateWay)”<\/p>\n

$User = $NetworkStencil.Masters.Item(“User”)
$shape5 = $page.Drop($User,4.0,6.0)
$shape5.Text = “$($pcinfo.UserName)”<\/p>\n

$etherNet = $NetworkStencil.Masters.Item(“Ethernet”)
$shape6 = $page.Drop($etherNet,2.2, 1.0)
$shape6.Text = “$(($networkinfo.IPAddress)[0])”<\/p>\n

$connector = $ConnectorStencil.Masters.item(“Dynamic Connector”)
$shape1.AutoConnect($shape6, 0, $connector)
$shape2.AutoConnect($shape6, 0, $connector)
$shape3.AutoConnect($shape6, 0, $connector)
$shape4.AutoConnect($shape6, 0, $connector)
$shape5.AutoConnect($shape6, 0, $connector)<\/p>\n

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

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

The first thing to do in the ComputerConfigDrawing.ps1 script is to create a command-line parameter to allow you to change the target system. Next, the Get-ComputerSystem<\/b> function is used to return some information about the target computer.<\/p>\n

For more information about functions, see the Function Week<\/font><\/a> Hey, Scripting Guy! posts, or check out the Windows PowerShell 2.0 Best Practices<\/font><\/a> book from Microsoft Press. For more information about using WMI and Windows PowerShell, check out the WMI Week Hey, Scripting Guy! posts<\/font><\/a>.<\/p>\n

The Win32_ComputerSystem<\/font><\/a> WMI class is used with the Get-WMiObject<\/b> cmdlet and the target computer supplied to the –computername<\/b> parameter. The entire Win32_ComputerSystem<\/b> WMI class information will be returned to the script when the Get-ComputerSystem<\/b> function is called:<\/p>\n

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

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

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

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

To get information about the monitor that is attached to the computer, the Win32_DesktopMonitor<\/b> WMI class is called by the Get-DesktopMonitor<\/b> function. Depending on the make of your computer and monitor, you may or may not be able to retrieve specific information about the model of your monitor:<\/p>\n

Function Get-DesktopMonitor($computer)
{
Get-WmiObject -Class win32_desktopmonitor -ComputerName $computer
} #end Get-DesktopMonitor<\/p>\n

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

When you use the Win32_Printer<\/b> WMI class to return information about printers defined on a computer, you will almost always return a lot of things that are not really printers such as the Microsoft XPS Document printer, a fax machine, and even some image capturing software. I want to know about the default printer; to do this, I use the –filter<\/b> parameter and limit the instances of the Win32_Printer<\/b> WMI class to printers that have the default<\/b> property set to $true<\/b>. This is seen here:<\/p>\n

Function Get-DefaultPrinter ($computer)
{
Get-WmiObject -Class win32_printer -ComputerName $Computer `
               <\/span>-Filter “default = $true”
} #end Get-DefaultPrinter<\/p>\n

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

If the bogus printers returned by the WMI class Win32_Printer<\/b> are upsetting, the results returned by Win32_networkadapterconfiguration<\/b> are completely out of control. On my computer, I have one real network card, and yet 12 instances are returned. One technique to reduce the number of bogus network adapters is to filter the ones that are IPenabled<\/b>. This does not always work (it depends on your computer and your network configuration), but it will at least point you in the right direction:<\/p>\n

Function Get-NetworkAdapterConfiguration ($computer)
{
Get-WmiObject -Class win32_networkadapterconfiguration `
               <\/span>-ComputerName $computer -Filter “ipenabled = $true”
} #end Get-NetworkAdapterConfiguration<\/p>\n

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

With the WMI functions out of the way, it is time to create a Visio drawing using some Windows PowerShell code. This portion of the script is similar to yesterday’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<\/p>\n

$page = $pages.Item(1)<\/p>\n

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

$NetworkStencil = $application.Documents.Add(“periph_m.vss”)
$ComputerStencil = $application.Documents.Add(“Computers and Monitors.vss”)
$ConnectorStencil = $application.Documents.Add(“Connectors.vss”)<\/p>\n

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

Next, it is time to call the Get-ComputerSystem<\/b> function to retrieve the computer host name and the domain. The Get-ComputerSystem<\/b> function returns all of the information contained in the Win32_ComputerSystem<\/b> WMI class. You could therefore modify the shape1 text<\/b> property to include the additional information from that class:<\/p>\n

$pcinfo = Get-ComputerSystem -computer $computer<\/p>\n

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

After the $pcinfo<\/b> variable contains the computer information from the Get-ComputerSystem<\/b> function, it is time to drop a PC<\/b> shape from the Computer<\/b> stencil onto the Microsoft Visio drawing. Because of the way that Windows PowerShell returns WMI information, you will need to use the subexpression $()<\/b> to prevent the unraveling of the object inside the expanding string (the double quotation marks). The `r`n<\/b> character sequence is used to create a carriage return line feed (VBScript: vbcrlf) to continue the domain information onto the second line under the host name. This is seen here:<\/p>\n

$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

The Get-DesktopMonitor<\/b> function is used to retrieve the monitor information. Store the returned WMI object in the $monitorinfo<\/b> variable, as seen here:<\/p>\n

$monitorinfo = Get-DesktopMonitor -computer $computer<\/p>\n

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

Next, retrieve an LCD Monitor<\/b> shape from the Computer<\/b> stencil and store the shape in the $monitor<\/b> variable. Drop the shape onto the Microsoft Visio drawing and retrieve the monitor name<\/b> property and place it on the first line. By continuing the string to the second line, you can avoid needing to use the `r`n<\/b> to add a second line. The monitor resolution will be displayed as screen height by screen width on a single line. This section of the code is seen here:<\/p>\n

$Monitor = $ComputerStencil.Masters.Item(“LCD monitor”)
$shape2 = $page.Drop($Monitor, 5.0, 4.5)
$shape2.Text = “$($monitorinfo.name)
$($monitorinfo.ScreenHeight) x $($monitorinfo.ScreenWidth)”<\/p>\n

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

Next, the Get-DefaultPrinter<\/b> function is used to retrieve information about the default printer and store it in the $printerinfo<\/b> variable:<\/p>\n

$printerinfo = Get-DefaultPrinter -computer $computer<\/p>\n

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

The Printer<\/b> shape comes from the Network Peripherals<\/b> stencil and is stored in the $printer<\/b> variable. The name<\/b>, port name<\/b>, and location<\/b> properties are added to the text<\/b> property of shape3, as seen here:<\/p>\n

$Printer = $NetworkStencil.Masters.Item(“Printer”)
$shape3 = $page.Drop($Printer,6.0,3.0)
$shape3.Text = “$($printerinfo.deviceID)
$($printerinfo.PortName)`r`n$($printerinfo.Location)”<\/p>\n

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

Network information is retrieved by the Get-NetworkAdapterConfiguration<\/b> function and stored in the $networkinfo<\/b> variable:<\/p>\n

$networkinfo = Get-NetworkAdapterConfiguration -computer $computer<\/p>\n

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

The Router<\/b> shape is retrieved from the Network Peripherals<\/b> stencil and stored in the $router<\/b> variable. The IP address of the router comes from the defaultIPGateway<\/b> property from the Win32_networkadapterconfiguration<\/b> WMI class. This is shown here:<\/p>\n

$Router = $NetworkStencil.Masters.Item(“Router”)
$shape4 = $page.Drop($Router,7.0,1.5)
$shape4.Text = “$($networkinfo.DefaultIPGateWay)”<\/p>\n

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

A User<\/b> stencil is obtained from the Network Peripherals<\/b> stencil and stored in the $user<\/b> variable. The user name of the current user is obtained from the computer information that was stored in the $pcinfo<\/b> variable earlier. This section of the script is seen here:<\/p>\n

$User = $NetworkStencil.Masters.Item(“User”)<\/p>\n

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

$shape5 = $page.Drop($User,4.0,6.0)
$shape5.Text = “$($pcinfo.UserName)”<\/p>\n

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

The IP address of the workstation is retrieved from the network information stored in the $networkinfo<\/b> variable. The IPAddress<\/b> property of the Win32_NetworkAdapterConfiguration<\/b> WMI class is an array on Windows Vista and later that returns both IPV4 and IPV6 information. The IPV4 address is stored in element 0 of the array. For this script, we are ignoring the IPV6 address that is stored in element 1 of the array. This is assigned to the text<\/b> property of the Ethernet<\/b> shape, as shown here:<\/p>\n

$etherNet = $NetworkStencil.Masters.Item(“Ethernet”)
$shape6 = $page.Drop($etherNet,2.2, 1.0)
$shape6.Text = “$(($networkinfo.IPAddress)[0])”<\/p>\n

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

All that remains is to connect the shapes, center the drawing, save, and close everything. This is the same as the code used in yesterday’s Hey, Scripting Guy! post<\/a>. <\/p>\n

$connector = $ConnectorStencil.Masters.item(“Dynamic Connector”)
$shape1.AutoConnect($shape6, 0, $connector)
$shape2.AutoConnect($shape6, 0, $connector)
$shape3.AutoConnect($shape6, 0, $connector)
$shape4.AutoConnect($shape6, 0, $connector)
$shape5.AutoConnect($shape6, 0, $connector)<\/p>\n

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

$page.CenterDrawing()<\/p>\n

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

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

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

When the ComputerConfigDrawing.ps1 script runs, the following drawing is displayed. <\/p>\n

\"Image<\/p>\n

SA, that is all there is to using Microsoft Visio to create a drawing of your computer configuration. The script for today can also be found at the Script Repository<\/a>.  Microsoft Visio Week will continue tomorrow. <\/p>\n

If you want to know exactly what we will be looking at tomorrow, follow us on Twitter<\/a> or Facebook<\/font><\/a>. If you have any questions, send e-mail to us at scripter@microsoft.com<\/font><\/a> or post your questions on the Official Scripting Guys Forum<\/font><\/a>. See you tomorrow. Until then, peace.<\/p>\n

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

Ed Wilson and Craig Liebendorfer, Scripting Guys<\/span><\/b><\/p>\n

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

 <\/p>\n","protected":false},"excerpt":{"rendered":"

     Hey, Scripting Guy! Using Windows PowerShell to control Microsoft Visio looks really cool. However, if I have to manually enter all of the data in the script to produce the drawing, it is probably easier to open Microsoft Visio, drag and drop the shapes from the stencils, and add the connectors. However, I […]<\/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-51573","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! Using Windows PowerShell to control Microsoft Visio looks really cool. However, if I have to manually enter all of the data in the script to produce the drawing, it is probably easier to open Microsoft Visio, drag and drop the shapes from the stencils, and add the connectors. However, I […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/51573","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=51573"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/51573\/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=51573"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=51573"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=51573"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}