We can find the sample script located in the BizTalk installation folder:
C:\Program Files (x86)\Microsoft BizTalk Server 2010\SDK\Samples\Admin\WMI\Enable Receive Location\VBScript
Then check the WMI reference to implement more featuries:
MSBTS_ReceiveLocation (WMI)
http://msdn.microsoft.com/zh-cn/library/ee277482.aspx