ホスト名のvbsを取得します。

337 ワード

ホスト名

 
strComputer = "." 
Set objCmdLib = CreateObject("Microsoft.CmdLib") 
Set objCmdLib.ScriptingHost = WScript.Application 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
WScript.Echo objCmdLib.getHostName(objWMIService)