‘vbscript
Option Explicit
Dim WSHShell
Dim objNTInfo
Dim GetComputerName
Dim xml
Const MetaFrameWinSrvObject = 6
Set objNTInfo = CreateObject(“WinNTSystemInfo”)
GetComputerName = lcase(objNTInfo.ComputerName)
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
Set xml=CreateObject(“MetaframeCOM.Metaframeserver”)
xml.initialize MetaFrameWinSrvObject,GetComputerName
‘xml.initialize MetaFrameWinSrvObject,”servername”
xml.WinServerObject.TrustXMLRequests = 1
WScript.Quit