Perl script

add_user.pl

Adding a new users as local administrators

#!/usr/bin/perl

system("net user myuser mypass /add");
system("net localgroup Administrators myuser /add");