Create and delete 1000 NetWare test accounts in five minutes

This script automatically creates 1000 test NetWare accounts from scratch. Account names are set to "acc1", "acc2", "acc3"..., surnames are set to "Surname1", "Surname2", "Surname3"... and passwords are set to "Password1", "Password2", "Password3"...

[Settings_Begin]
BatchSettings.Delimiter=TAB
BatchSettings.MarkerCol=5

SET NDtree=OAK
SET NDpath=%NDtree%\MyOrg\MyOU
[Settings_End]

[Init_Batch_Begin]
// Create 1000 rows in [Data] section with 1000 account-names in column 1   
Data.Series.Generate 1,decimal,acc,1000   
// Fill column 2 and 3 with last names and passwords   
SET Counter=1   
Data.Loop   
 Data.Write 2,Surname%Counter%   
 Data.Write 3,Password%Counter%   
 inc %Counter%
Data.Endloop   
[Init_Batch_End]

[Batch_Begin]
Data.Loop   
 Nov.DS.Account.Create %NDpath%, %col2%, %col1%, %col3%   
Data.EndLoop   
[Batch_End]

[Undo_Batch_Begin]
Data.Loop   
 Nov.DS.Account.Delete %NDpath%, %col1%   
Data.EndLoop   
[Undo_Batch_End]

[Data_Begin]      
[Data_End]