Retrieve Hostname using VBScript Function
June 3, 2010
Function Host()
Dim WSHShell
Dim objNTInfo
Set objNTInfo = CreateObject(“WinNTSystemInfo”)
Host = ucase(objNTInfo.ComputerName)
End Function
Encounters of Faith and Reason
Function Host()
Dim WSHShell
Dim objNTInfo
Set objNTInfo = CreateObject(“WinNTSystemInfo”)
Host = ucase(objNTInfo.ComputerName)
End Function
