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
