REM 输入并回显你的名字 

'使用InputBox和Msgbox函数 

Dim name,msg 

msg="请输入你的名字:" 

name=Inputbox(msg,"名称") 

Msgbox(name) 


ie显示服务列表

strComputer = "."

Set objExplorer = WScript.CreateObject("InternetExplorer.Application")

objExplorer.Navigate "about:blank"  

objExplorer.ToolBar = 0

objExplorer.StatusBar = 0

objExplorer.Visible = 1

Set objWMIService = GetObject _

    ("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _

  ("SELECT * FROM Win32_Service")

For Each objItem in colItems

    strHTML = strHTML & objItem.DisplayName  & " = " & objItem.State & "<BR>"

Next

objExplorer.Document.Body.InnerHTML = strHTML