welText="本脚本运行后将在 WORD 种显示一些计算机的信息"
MsgBox welText
'定义 Word.applicaon 变量
Dim ObjWD
Dim ObjDOC
Dim coun
Set WshNetwork=CreateObject("WScript.Network")
'启动 Word
Set ObjWD=CreateObject("Word.applicaon")
'设置 Word 为可视
ObjWD.Visible=True
'增加一个文档
ObjWD.Documents.Add
Set ObjDOC=ObjWD.AcveDocuments
'设置格式为剧中对齐
ObjWD.selecon.ParagraphFormat.Alignment=wdAlignParagraphCenter
ObjDOC.Range 0,0
ObjWD.selecon.TypeText "计算机信息一览表"+Chr(13)
'增加一张四行二列的表格
ObjDOC.Tables.Add ObjWD.selecon.Range,4,2
ObjWD.selecon.TypeText "类别"
ObjWD.selecon.Moveright
ObjWD.selecon.TypeText "值"
'循环填写表格内容
For coun=1 To 3
ObjWD.selecon.MoveDown
ObjWD.selecon.MoveLe6
Select Case coun
Case 1
ObjWD.selecon.TypeText "域名"
ObjWD.selecon.MoveRight
ObjWD.selecon.TypeText WshNetwork.UserDomain
Case 2
ObjWD.selecon.TypeText "计算机名"
ObjWD.selecon.MoveRight
ObjWD.selecon.TypeText WshNetwork.ComputerName
Case 3
ObjWD.selecon.TypeText "用户名"
ObjWD.selecon.MoveRight
ObjWD.selecon.TypeText WshNetwork.UserName
End Select
Next
'将 WORD 窗口最大化
ObjWD.WindowState=1
评论2