CICA 1995 May/cica_0595_4.zip/cica_0595_4/UTIL/DMNPASS2/PASS_SRC.ZIP/PASSWORD.FRM

Text File | 1994-07-27 | 10KB | 318 lines

VERSION 2.00
Begin Form FrmSelectDomain
   BackColor       =   &H00808000&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Change Domain Password"
   ClientHeight    =   2568
   ClientLeft      =   1296
   ClientTop       =   2124
   ClientWidth     =   4668
   Height          =   2988
   Icon            =   PASSWORD.FRX:0000
   Left            =   1248
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2568
   ScaleWidth      =   4668
   Top             =   1752
   Width           =   4764
   Begin CommandButton CmdAbout
      Caption         =   "About"
      Height          =   252
      Left            =   3600
      TabIndex        =   15
      Top             =   1920
      Width           =   852
   End
   Begin TextBox Newpassword2
      Height          =   285
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   2130
      Width           =   1995
   End
   Begin TextBox Newpassword1
      Height          =   285
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1710
      Width           =   1995
   End
   Begin TextBox OldPassword
      Height          =   285
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   1290
      Width           =   1995
   End
   Begin CommandButton CmdCancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   300
      Left            =   3600
      TabIndex        =   4
      Top             =   480
      Width           =   876
   End
   Begin CommandButton CmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   300
      Left            =   3600
      TabIndex        =   3
      Top             =   120
      Width           =   876
   End
   Begin Label Label9
      BorderStyle     =   1  'Fixed Single
      Height          =   285
      Left            =   1440
      TabIndex        =   14
      Top             =   900
      Width           =   1995
   End
   Begin Label Label3
      BorderStyle     =   1  'Fixed Single
      Height          =   288
      Left            =   1440
      TabIndex        =   13
      Top             =   120
      Width           =   1992
   End
   Begin Label Label8
      BorderStyle     =   1  'Fixed Single
      Height          =   285
      Left            =   1440
      TabIndex        =   12
      Top             =   480
      Width           =   1995
   End
   Begin Label Label7
      BackColor       =   &H00808000&
      Caption         =   "Server:"
      Height          =   225
      Left            =   735
      TabIndex        =   11
      Top             =   540
      Width           =   645
   End
   Begin Image Image1
      Height          =   384
      Left            =   3840
      Picture         =   PASSWORD.FRX:0302
      Top             =   1080
      Width           =   384
   End
   Begin Label Label6
      BackColor       =   &H00808000&
      Caption         =   "Password:"
      Height          =   225
      Index           =   1
      Left            =   480
      TabIndex        =   10
      Top             =   2250
      Width           =   885
   End
   Begin Label Label6
      BackColor       =   &H00808000&
      Caption         =   "Retype New"
      Height          =   225
      Index           =   0
      Left            =   255
      TabIndex        =   9
      Top             =   2040
      Width           =   1095
   End
   Begin Label Label5
      BackColor       =   &H00808000&
      Caption         =   "New Password:"
      Height          =   225
      Left            =   45
      TabIndex        =   8
      Top             =   1740
      Width           =   1335
   End
   Begin Label Label4
      BackColor       =   &H00808000&
      Caption         =   "Old Password:"
      Height          =   225
      Left            =   135
      TabIndex        =   7
      Top             =   1320
      Width           =   1245
   End
   Begin Label Label2
      BackColor       =   &H00808000&
      Caption         =   "Userid:"
      Height          =   225
      Left            =   750
      TabIndex        =   6
      Top             =   930
      Width           =   645
   End
   Begin Label Label1
      BackColor       =   &H00808000&
      Caption         =   "Domain:"
      Height          =   210
      Left            =   660
      TabIndex        =   5
      Top             =   150
      Width           =   765
   End
End

Sub CmdAbout_Click ()
Load frmAbout
frmAbout.Show
End Sub

Sub CmdCancel_Click ()
Unload FrmSelectDomain
End Sub

Sub CmdOK_Click ()
FrmSelectDomain.Hide
Dim vanha$              'Old Password
Dim uusi$               'New Password
Dim MinimumPasswordLength As Integer
Dim rc
Dim keyvalue As String, keydefault As String, keyname As String
Dim sectionname As String, FileName As String

FileName = CurDir$ + "\" + "DMN_PASS.INI"
sectionname = "Password Settings"
keyname = "MinPassLength"
keydefault = "5"
keyvalue = String$(16, 0)

'Gets password length from dmn_pass.ini
rc = GetPrivateProfileString(sectionname, keyname, keydefault, keyvalue, Len(keyvalue), FileName)
MinimumPasswordLength = Val(keyvalue$)

If Len(Oldpassword.Text) >= MinimumPasswordLength Then
    If Trim$(newpassword1.Text) = Trim$(newpassword2.Text) Then
    If Len(newpassword1.Text) = Len(newpassword2.Text) Then
        If Len(newpassword1.Text) >= MinimumPasswordLength Then
        vanha$ = UCase$(Trim$(Oldpassword.Text)) + Chr$(0)
        uusi$ = UCase$(Trim$(newpassword1.Text)) + Chr$(0)
        wfwuser$ = UCase$(Trim$(wfwuser$)) + Chr$(0)
        i = NetUserPasswordSet(CurrentServer, wfwuser, vanha, uusi)
        If i <> 0 Then
            'MsgBox "Case = " + i
            Select Case i
            Case 86
            errmsg = "                           ERROR" + Chr$(13)
            errmsg = errmsg + "You have either used an incorrect Old Password " + Chr$(13)
            errmsg = errmsg + "                             OR" + Chr$(13)
            errmsg = errmsg + "You have tried to make the New Password the same as the Old Password!" + Chr$(13)
            errmsg = errmsg + "Your password has NOT been changed."
            MsgBox errmsg, MB_ICONEXCLAMATION, "Error Setting Info for User"
            Case 59
            errmsg = "Same password has been used before!"
            errmsg = errmsg + "Your password has NOT been changed."
            MsgBox errmsg, MB_ICONEXCLAMATION, "Error Setting Info for User"
            Case 2245
            errmsg = "New password is too short.  Edit DMN_PASS.INI to correct min pass length size.  "
            errmsg = errmsg + "Your password has NOT been changed."
            MsgBox errmsg, MB_ICONEXCLAMATION, "Error Setting Info for User"
            Case 2244
            errmsg = "You have used this password before.  " + Chr$(13)
            errmsg = errmsg + "Your password has NOT been changed."
            MsgBox errmsg, MB_ICONEXCLAMATION, "Error Setting Info for User"
            Case Else
            MsgBox "Case = " + i
            errmsg = "Error setting password for user " + CurrentUser + Chr$(13) + Chr$(10)
            errmsg = errmsg + " on server " + CurrentServer + "." + Chr$(13) + Chr$(10)
            errmsg = errmsg + "Your password has NOT been changed."
            errmsg = errmsg + "Error <" + Format$(result) + "> : " + LMError$(result)
            MsgBox errmsg, MB_ICONEXCLAMATION, "Error Setting Info for User"
            End Select
        Else
            errmsg = "Password successfully changed on server " + CurrentServer + " for " + wfwuser + Chr$(13)
            MsgBox errmsg, MB_ICONOK, "Password Change"
            FrmSelectDomain.Hide
            Unload FrmSelectDomain
            End
        End If
        'i = Setuserinfo()
        Else
        errmsg = "New Password too short. Must be at least " + Str$(MinimumPasswordLength) + " characters."
        MsgBox errmsg, MB_ICONEXCLAMATION, "Password Error"
        End If
    Else
        errmsg = "New Passwords are not same."
        MsgBox errmsg, MB_ICONEXCLAMATION, "Password Error"
    End If
    Else
    errmsg = "New Passwords are not same."
    MsgBox errmsg, MB_ICONEXCLAMATION, "Password Error"
    End If
Else
    errmsg = "Old Password too short. Must be at least " + Str$(MinimumPasswordLength) + " characters."
    MsgBox errmsg, MB_ICONEXCLAMATION, "Password Error"
End If
FrmSelectDomain.Show
End Sub

Sub Form_Load ()
    Dim presult%, result%, errmsg$, pos%, d$
    Dim h%, lresult&, w%, PrevPtr%
    Dim WkstaInfo As wksta_info_10

    winSysDir$ = UCase$(GetWindowsSysDir$())
    If Not FileExists(winSysDir$ + "\" + "Wfwnet.drv") Then
    MsgBox "This Utility will only work for Windows for Workgroups 3.x Computers.  WFWNET.DRV not found", 48, dialogCaption$
    End
    Exit Sub
    End If

    ' Change the mouse cursor to an hour glass.
    PrevPtr = MousePointer
    MousePointer = HOURGLASS
    DoEvents
    result = LMNetWkstaGetInfo_L10("", WkstaInfo)
    If result = NERR_Success And LTrim$(WkstaInfo.wki10_logon_domain) <> "" Then
    LogonDomain = LTrim$(WkstaInfo.wki10_logon_domain)
    CurrentDomain = LogonDomain
    Else
    LogonDomain = ""
    CurrentDomain = ""
    End If
    MousePointer = PrevPtr

    ' Load the CmbDomain combo box with the available domains
    ' from the LMNetWkstaGetInfo call.
    If LTrim$(WkstaInfo.wki10_logon_domain) <> "" Then
    Label3.Caption = Trim$(WkstaInfo.wki10_logon_domain)
    End If
    ii = Getserver()
    Label8.Caption = Trim$(CurrentServer)
    r = MultiNetGetUser(UserName$)
    label9.Caption = UserName$
    FrmSelectDomain.Show
    DoEvents
    Oldpassword.SetFocus

End Sub

Sub Newpassword1_GotFocus ()
   newpassword1.SelStart = 0
   newpassword1.SelLength = 65000
End Sub

Sub Newpassword2_GotFocus ()
   newpassword2.SelStart = 0
   newpassword2.SelLength = 65000
End Sub

Sub OldPassword_GotFocus ()
   Oldpassword.SelStart = 0
   Oldpassword.SelLength = 65000
End Sub