ntlua.echo("")
ntlua.echo("Tecgraf Network - Windows NT Server 4.0")
ntlua.echo("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
ntlua.echo("")
ntlua.echo("Make New User Script!")
ntlua.echo("")

if (#arg < 1) then
  ntlua.echo("Usage:")
  ntlua.echo("")
  ntlua.echo("  ntlua mkuser.lua username \"user full name\" [\"optional user comment/description\"] [\"optional group\"]")
  ntlua.echo("")
  return
end

servername = ntlua.netgetpdc(nil, "TECGRAF")
username   = arg[1]
full_name  = arg[2]
comment    = arg[3]
groupname  = arg[4] 


homeserver = "segall"
homeshare = username .. "$"
localsharepath = "d:\\users\\" .. username
remotesharepath = "z:\\" .. username

password   = "123456"
profile_path = "\\\\" .. homeserver .. "\\" .. homeshare .. "\\" .. username .. ".pds"
script_path	= "ntlua.exe"
home_dir_drive = "Y:"
home_dir_path = "\\\\" .. homeserver .. "\\" .. homeshare

ntlua.echo("Creating User... - " .. username)
ntlua.netuseradd(servername, username, full_name, comment, password, profile_path, script_path, home_dir_drive, home_dir_path)
ntlua.echo("")

if groupname then
  ntlua.echo("Adding to Group... - " .. groupname)
  ntlua.netgroupadduser(servername, 0, groupname, username)
  ntlua.echo("")
end

ntlua.echo("Creating Home Folder...")
ntlua.mkdir(remotesharepath)
ntlua.echo("")

ntlua.echo("Sharing Home Folder... - " .. home_dir_path .. "=" .. localsharepath)
ntlua.netshareadd(homeserver, homeshare, localsharepath, nil)
ntlua.echo("")

ntlua.echo("Appling Security on Home Folder... - " .. username .. ":Full Control")
ntlua.cacls(remotesharepath, 1, 1, 0, {username, "F"}, nil, nil, nil)
ntlua.echo("")

ntlua.echo("Coping User Default Configuration Files")
ntlua.copydir("z:\\admin\\\@NewUser", remotesharepath)
ntlua.echo("")

ntlua.echo("Changing Mail Configuration Files - " .. username .. "@tecgraf.puc-rio.br")
mailfilename = remotesharepath .. "\\eudora\\eudora.ini"
ntlua.writeinikey(mailfilename, "Settings", "LoginName", username)
ntlua.writeinikey(mailfilename, "Settings", "POPAccount", username .. "@mail.tecgraf.puc-rio.br")
ntlua.writeinikey(mailfilename, "Settings", "ReturnAddress", username .. "@tecgraf.puc-rio.br")
ntlua.writeinikey(mailfilename, "Settings", "RealName", full_name)
ntlua.echo("")

ntlua.echo("End of MKUSER.")
ntlua.echo("")