獲取主機(jī)名的vbs(cmdlib.wsc)

    獲取主機(jī)名的vbs，需要的朋友可以參考下。
    代碼如下:
    strComputer = "."
    Set objCmdLib = CreateObject("Microsoft.CmdLib")
    Set objCmdLib.ScriptingHost = WScript.Application
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    WScript.Echo objCmdLib.getHostName(objWMIService)