%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC0%%%%%$$$$&&ABC%%%%%$$$$&&ABC XBMP sNewPass[0]"".  sNewPass[1]"". sNewUser""  User Config{Ext("Users")}@%%%%%$$$$&&ABC 0f37c3a4e014b900d5a9a0857c3f0721 ?0= ?%  Password:"Tahoma%%%%%$$$$&&ABC E E%  User Name:"Tahoma%%%%%$$$$&&ABC gN[ g% Confirm Password:"Tahoma%%%%%$$$$&&ABC7m&5121152283q43899-1638239 w  Dim ret, msg msg =$Ext("User Created") If $sNewUser <> "" Then If $sNewPass[0] = $sNewPass[1] Then ret = $CreateUser($sNewUser,"NotConfig",$sNewPass[0]) Else ret = 20 msg =$Ext("The password was not correctly confirmed. Please ensure that the password and confirmation match exatly.") End If If ret=0 Then 'Update User List $bUpdateUsers = 1 Else If ret=3 Then msg = $Ext("User Name already exists") End If End If MsgBox(msg) $Close("AddUser") Else msg = $Ext("Invalid User") MsgBox(msg) End If Dim ret, msg msg =StFunction1__(31, 1, "User Created") If StGetMnTagVal__(497, 0, 0, 0, 0, "") <> "" Then If StGetMnTagVal__(302, 0, 0, 0, 0, "") = StGetMnTagVal__(302, 1, 0, 0, 0, "") Then ret = StFunction1__(94, 3, StGetMnTagVal__(497, 0, 0, 0, 0, "") , "NotConfig", StGetMnTagVal__(302, 0, 0, 0, 0, "") ) Else ret = 20 msg =StFunction1__(31, 1, "The password was not correctly confirmed. Please ensure that the password and confirmation match exatly.") End If If ret=0 Then Call StSetMnTagVal__(292, 0, 0, 0, 0, 11, 12, "", 1) Else If ret=3 Then msg = StFunction1__(31, 1, "User Name already exists") End If End If MsgBox(msg) Call StFunction1__(34, 1, "AddUser") Else msg = StFunction1__(31, 1, "Invalid User") MsgBox(msg) End If &5121152283q43899-1638239 OK"Tahoma%%%%%$$$$&&ABC!m&6251152283q66499-508239w  Close("AddUser")AddUser"&6251152283q66499-508239 Cancel"Tahoma%%%%%$$$$&&ABC!()1a(J^*m  tahoma sNewPass[1].0.0000000.000000()1a(,@*m  tahoma sNewPass[0].0.0000000.000000()1a("*m  TahomasNewUser0.0000000.0000000.000000VBScript$.. BUPDATEUSERS SNEWPASS[0] SNEWPASS[1]SNEWUSERSNEWUSER