2010-07-16 20:49

objconnection = createcomobject("ADODB.Connection")
objconnection~connectionstring = "provider=msidxs;"
oprop = objconnection~properties("Data Source")
oprop~datasource = "Script Catalog"
objconnection~open()
objcommand = createcomobject("ADODB.Command")
strquery = "Select Filename, Size, Contents from Scope() Where Contains('Win32_NetworkAdapterConfiguration')"
objrecordset = objconnection~execute(strquery)
DO WHILE objrecordset~eof() = 0
	SAY objrecordset~filename objrecordset~size
	objrecordset~movenext()
END

2010-07-16 20:49