Description

Demonstrationscriptthatreadsthevaluesstoredinaspreadsheet

namedC:ScriptsNew_users.xls.

ScriptCode

复制代码 代码如下:

SetobjExcel=CreateObject("Excel.Application")

SetobjWorkbook=objExcel.Workbooks.Open_

("C:ScriptsNew_users.xls")

intRow=2

DoUntilobjExcel.Cells(intRow,1).Value=""

Wscript.Echo"CN:"&objExcel.Cells(intRow,1).Value

Wscript.Echo"sAMAccountName:"&objExcel.Cells(intRow,2).Value

Wscript.Echo"GivenName:"&objExcel.Cells(intRow,3).Value

Wscript.Echo"LastName:"&objExcel.Cells(intRow,4).Value

intRow=intRow+1

Loop

objExcel.Quit