Rechnernamen mit VBS/WSH auslesen

Über folgende Funktion lässt sich in VBS (Windows) der Rechnername auslesen:

Function Rechnername
    set objNetzwerk=CreateObject("Wscript.Network") Rechnername=objNetzwerk.Computername
End Function