Demonstration 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.

復(fù)制代碼代碼如下:

Set objWord = CreateObject("Word.Application") 
objWord.Caption = "Test Caption" 
objWord.Visible = True 

Set objDoc = objWord.Documents.Add() 
Set objSelection = objWord.Selection 

objSelection.Font.Name = "Arial" 
objSelection.Font.Size = "18" 
objSelection.TypeText "Network Adapter Report" 
objSelection.TypeParagraph() 

objSelection.Font.Size = "14" 
objSelection.TypeText "" & Date() 
objSelection.TypeParagraph() 
objSelection.TypeParagraph() 

objSelection.Font.Size = "10" 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery _ 
    ("Select * from Win32_NetworkAdapterConfiguration") 

For Each objItem in colItems 

    objSelection.Font.Bold = True 
    objSelection.TypeText "ARP Always Source Route: "  
    objSelection.Font.Bold = False 
    objSelection.TypeText "" & objItem.ArpAlwaysSourceRoute 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "ARP Use EtherSNAP: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.ArpUseEtherSNAP 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "Caption: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.Caption 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "Database Path: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""   & objItem.DatabasePath 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "Dead GW Detection Enabled: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""   & objItem.DeadGWDetectEnabled 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "Default IP Gateway: "  
    objSelection.Font.Bold = False 
    objSelection.TypeText "" & objItem.DefaultIPGateway 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "Default TOS: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.DefaultTOS 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "Default TTL: " 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.DefaultTTL 
    objSelection.TypeParagraph() 

    objSelection.Font.Bold = True 
    objSelection.TypeText "Description: " 
    objSelection.Font.Bold = True 
    objSelection.Font.Bold = False 
    objSelection.TypeText ""  & objItem.Description 
    objSelection.TypeParagraph() 

    objSelection.TypeParagraph() 

Next 

objDoc.SaveAs("C:\Scripts\Word\testdoc.doc") 
objWord.Quit 

您可能感興趣的文章:

用jscript實(shí)現(xiàn)新建和保存一個(gè)word文檔

相關(guān)文章

Jquery+javascript實(shí)現(xiàn)支付網(wǎng)頁(yè)數(shù)字鍵盤(pán)
這篇文章主要為大家詳細(xì)介紹了Jquery+javascript實(shí)現(xiàn)支付網(wǎng)頁(yè)數(shù)字鍵盤(pán)，文中示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下
2020-12-12
JavaScript等比例縮放圖片控制超出范圍的圖片
當(dāng)網(wǎng)頁(yè)加載一個(gè)尺寸比較大的圖片時(shí)，往往會(huì)把一個(gè)網(wǎng)頁(yè)撐的變形，頁(yè)面變得很難看，于是我們就想到了用JS去控制超出一定范圍的圖片
2013-08-08
跟我學(xué)習(xí)javascript的定時(shí)器
跟我學(xué)習(xí)javascript的定時(shí)器，告訴大家具體的使用方法，并向大家提出了一個(gè)消息要求，制作一個(gè)定時(shí)器，有沒(méi)有朋友感興趣，挑戰(zhàn)一下
2015-11-11
JS+Ajax實(shí)現(xiàn)百度智能搜索框
現(xiàn)在遇到這樣的需求，要求輸入一個(gè)a之后會(huì)出現(xiàn)包含a的下拉列表，當(dāng)我們點(diǎn)擊某一個(gè)的時(shí)候，搜索框中就會(huì)出現(xiàn)點(diǎn)擊的值。下面小編給大家分享同js和ajax實(shí)現(xiàn)百度智能搜索框，需要的的朋友參考下實(shí)現(xiàn)代碼
2017-08-08
Javascript條件判斷使用小技巧總結(jié)
我們已經(jīng)知道，null?沒(méi)有任何的屬性值，并且無(wú)法獲取其實(shí)體（existence）值。所以?null.property?返回的是錯(cuò)誤（error）而不是?undefined?。
2008-09-09
javascript 文檔的編碼問(wèn)題解決
在引用與本頁(yè)面編碼格式不一樣的js文檔時(shí)，如果被引用的js代碼有ASCII字符之外的字符，那么就會(huì)出現(xiàn)代碼錯(cuò)誤。
2009-03-03
JavaScript AOP編程實(shí)例
這篇文章主要介紹了JavaScript AOP編程,實(shí)例分析了javascript實(shí)現(xiàn)AOP編程的基本技巧,需要的朋友可以參考下
2015-06-06
這篇文章主要介紹了javascript sort排序的相關(guān)資料,非常不錯(cuò)，具有參考借鑒價(jià)值，需要的朋友可以參考下
2016-07-07