Description

Demonstrationscriptthatreadsthevaluesstoredinaspreadsheet
namedC:\Scripts\New_users.xls.
ScriptCode
复制代码 代码如下:
SetobjExcel=CreateObject("Excel.Application")
SetobjWorkbook=objExcel.Workbooks.Open_
("C:\Scripts\New_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