Set oResults=oSvc.ExecQuery _

            ("Select * from win32_ComputerSystem")

for each oInstance in oResults

 

            s=oInstance.Domain

'            wscript.echo oInstance.Domain

next

 

s=s & vbTAB & sServer

 

sQuery="Select * from win32_NetworkAdapterConfiguration where IPEnabled=True"

Set oResults=oSvc.ExecQuery(sQuery,,0)

 

'wscript.echo sQuery