%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC0%%%%%$$$$&&ABC%%%%%$$$$&&ABC XBMP sNewPass[0]"".  sNewPass[1]"". sOldPass"" Change Root Password{Ext("Root Password")};%%%%%$$$$&&ABC 0f37c3a4e014b900d5a9a0857c3f0721q&6251156283q67299-588239w  Close("ChangeRootPass")**ChangeRootPass"&6251156283q67299-588239 Cancel"Tahoma%%%%%$$$$&&ABC!6q&5111156283q44499-1728239 w  Dim msg If $sNewPass[0] <> $sNewPass[1] Then msg = $Ext("The password was not correctly confirmed. Please ensure that the password and confirmation match exatly.") MsgBox(msg) End If Dim ret If $sNewPass[0] = $sNewPass[1] Then ret = $SetPassword("Root",$sNewPass[0],$sNewPass[0],$sOldPass) Else ret = 1234 End If If ret = 0 Then Msg = $Ext("The password has been changed!") MsgBox(msg) $Close("ChangeRootPass") Else If ret = 8 Then Msg = $Ext("Invalid password") MsgBox(msg) End If End IfDim msg If StGetMnTagVal__(302, 0, 0, 0, 0, "") <> StGetMnTagVal__(302, 1, 0, 0, 0, "") Then msg = StFunction1__(31, 1, "The password was not correctly confirmed. Please ensure that the password and confirmation match exatly.") MsgBox(msg) End If Dim ret If StGetMnTagVal__(302, 0, 0, 0, 0, "") = StGetMnTagVal__(302, 1, 0, 0, 0, "") Then ret = StFunction1__(214, 4, "Root", StGetMnTagVal__(302, 0, 0, 0, 0, "") , StGetMnTagVal__(302, 0, 0, 0, 0, "") , StGetMnTagVal__(501, 0, 0, 0, 0, "") ) Else ret = 1234 End If If ret = 0 Then Msg = StFunction1__(31, 1, "The password has been changed!") MsgBox(msg) Call StFunction1__(34, 1, "ChangeRootPass") Else If ret = 8 Then Msg = StFunction1__(31, 1, "Invalid password") MsgBox(msg) End If End If&5111156283q44499-1728239 OK"Tahoma%%%%%$$$$&&ABC!X0= W%  New Password:"Tahoma%%%%%$$$$&&ABChN[ g% Confirm Password:"Tahoma%%%%%$$$$&&ABCS&45411-50283q14699-228239 R% &45411-50283q14699-228239 Old Password:"Tahoma%%%%%$$$$&&ABC()1a&J^%ax "Tahoma sNewPass[1].0.0000000.000000()1a&,@%ax "Tahoma sNewPass[0].0.0000000.000000()1a& !%ax  tahomasOldPass0.0000000.0000000.000000VBScript.. SNEWPASS[0] SNEWPASS[1]SOLDPASSSOLDPASS