Wscript.Echo "Application:", objWord.Application Wscript.Echo "Active Printer:", objWord.ActivePrinter ObjSelection.TypeText objItem.DisplayName & " - " & objItem.Stateĭemonstration script that lists Microsoft Word configuration settings. ObjDoc.SaveAs("C:\Scripts\Word\testdoc.doc")ĭemonstration script that retrieves service information from a computer and then displays that data in a Microsoft Word document. ObjSelection.TypeText "" & objItem.Description ObjSelection.TypeText "" & objItem.DefaultTTL ObjSelection.TypeText "" & objItem.DefaultTOS ObjSelection.TypeText "" & objItem.DefaultIPGateway
ObjSelection.TypeText "Default IP Gateway: " ObjSelection.TypeText "" & objItem.DeadGWDetectEnabled ObjSelection.TypeText "Dead GW Detection Enabled: " ObjSelection.TypeText "" & objItem.DatabasePath ObjSelection.TypeText "" & objItem.Caption ObjSelection.TypeText "" & objItem.ArpUseEtherSNAP ObjSelection.TypeText "ARP Use EtherSNAP: " ObjSelection.TypeText "" & objItem.ArpAlwaysSourceRoute ObjSelection.TypeText "ARP Always Source Route: " ("Select * from Win32_NetworkAdapterConfiguration") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objWord = CreateObject("Word.Application") Set objWord = CreateObject("Word.Application")ĭemonstration script that retrieves network adapter data from a computer, displays that data in a Microsoft Word document, and then saves the document as C:\Scripts\Word\Testdoc.doc. ObjSelection.EndKey END_OF_STORY, MOVE_SELECTIONĭemonstration script that creates and displays a new Microsoft Word document. Set objDoc = ("c:\scripts\word\testdoc.doc") ObjTable.Cell(x, 2).Range.text = "Display Name"ĭemonstration script that retrieves service information from a computer and then displays that information in tabular format in Microsoft Word.ĭemonstration script that appends the current date to the existing Microsoft Word document C:\Scripts\Word\Testdoc.doc. ObjTable.Cell(x, 1).Range.Text = "Service Name" ObjTable.Cell(x, 3).Range.text = objItem.Stateĭemonstration script that retrieves service data from a computer, displays that data in a table in Microsoft Word, then formats the data by using a predefined Microsoft Word style ObjTable.Cell(x, 2).Range.text = objItem.DisplayName ObjTable.Cell(x, 1).Range.Text = objItem.Name Set colItems = objWMIService.ExecQuery("Select * from Win32_Service") GetObject("winmgmts:\\" & strComputer & "\root\cimv2") ObjSelection.TypeText "Network Adapter Report"ĭemonstration script that retrieves service data from a computer and then displays that data in a formatted table in Microsoft Word.
#Microsoft word script template for mac how to#
You can use any of the VBScript programs below in ActiveXperts Network Monitor.Ĭlick here for an explanation about how to include scripts in ActiveXperts Network Monitor.ĭemonstration script that displays formatted data in a Microsoft Word document. Microsoft Word Scripts Add Formatted Text to a Word DocumentĪpply a Style to a Table in a Word Documentĭisplay Service Information in a Word Document
0 kommentar(er)
