vbs脚本编写，自动获取主机名hostname

1.vbs脚本如下：

Const HKEY_LOCAL_MACHINE = &H80000002
strRegKey = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
Set objReg = GetObject( "winmgmts:{impersonationLevel=impersonate}!//./root/default:StdRegProv" )
objReg.GetStringValue HKEY_LOCAL_MACHINE, strRegKey, "Hostname", strHostname
WScript.Echo "Host Name: " & strHostName

2.保存文件为：hostname.vbs

3.双击运行 ，效果图：