OS/2 Shareware BBS: 8 Other

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / netapi.zip / NETLOG.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-09 | 13KB | 319 lines

NetLogfrm LAN Synchronization Utility Arial ppppp ppppppp ppppppppppppppp ppppppppppppp ppppppppppppppp Form15% ConnectionOption By Current Connections DomainOption By Domain List Buttonbox UpdateBut Update Passwords ExitBut DomainList OldPassword Verify NewPassword Label7 Message UserName user name StatusTxt Ready... MS Sans Serif VerifyCap Verify New Password Label2 Domains UserIdCaption User ID NewCap New Password OldCap Old Password UserID FileMnu &File ExitMnu &Exit HelpMnu &Help ContentsMnu &Contents SearchMnu Search For Help On... Seperator1 AboutMnu &About... @ Form_Load& NetUserPasswordSet szServer szuserid szoldpassword sznewpassword Command1_Click{ SzPassB SzNewPassj pszServerName pszUserId pszoldpassword psznewpassword StatmsgL Selct Szservers nresult4 NetGetDCName pszDomainnameV NsizeB SzDomainControllerk GetPrivateProfileString AppName KeyName Default ReturnedString MAXSIZE filename0 sReadINI ReadFullSection DomainListN List1_Click sTemp sTablef nentries\ nNull PrivGetString Fisrtval firstval list1 ListCount NetLogFrmJ Domianlist grid1! DcList DomainList_Click firsval firtsval: Textm Style SendMessage< Disclosuretypeq hWnd[ EM_SETREADONLYw Form_Activate UserID Caption NetWorkUserIdV ExitMnu_Click OldPassworde PasswordChar` Verify* NewPassword, ValidateEntryScreensH NetLogonFrm> statustxt Status Command3_Click{ NetUserGetInfo slevel szUserInfo< ntotalZ UserName Label6! lentrim namestr PrevDomainStr TabChar Screen MousePointer Command2_Click Patrick Scheltgen t nIndex nparse nStart+ Server3 relistdomains AboutMnu_Click ABoutfrm IDString$ TITLE MB_ICONINFORMATION` OldPassWord_Change OldPassWord_GotFocus ActiveControl SelTextM Text1U SelStart Where SelLength Search Selend= NewPassword_Change NewPassword_GotFocusM Verify_Change Verify_GotFocusp Label1_Click Label2_Click, Label3_Click Sep1_Clicke StatusTxt_Click UserID_Click ContentsMnu_Click MB_ICONEXCLAMATION MB_ICONEXCLMATIONJ ErrorNum ForeColor combo1 CB_SHOWDROPDOWNy Update_Click Exit_Clickl UpdateDefault( UpdateBut Updatebut_ClickT ExitBut_Click ExitBut Verify_KeyPress KeyAscii EnabledF Verify_KeyDown| KeyCode Shift TabStr Message NetUserValidate2 pszuser: NetWkstaGetInfo] Form_Paint Width Form_Resizem Newstatustxt UserIdCaption OldCap_ Olpassword NewCap VerifyCap ButtonBox SearchMnu_Click4 WinHelpN form1 HelpFile HELP_INDEX HELP_PARTIALKEY NetUseEnum NetServerGetInfo entries Firstslash@ connections addconG spacepos SecSlash AsciiZChar conarray duparray prevaddcon connectarray DupFlag Option2_Click Option1_Click relistdomians Endchari DomainOption Visible ConnectionOption ConnectionOption_Click DomainOption_Click) SDDEV CS0694V RC14PP02 ISD211 RC14DP02 CDROMS RC14DP01 ISDWORKO EX069353 errorin errorinstring strloc nextEnd coonections endall Chrxx statusbar Height AboutMnu_Click ConnectionOption_Click start ContentsMnu_Click DomainOption_Click ExitBut_Click ExitMnu_Click Form_Load if a 1 is passed on the command line use the domain controller name instead ofo the default domain name Not Found Your Network INI file can not be found, you must have a non-standard DOS LAN Services Installation, please call the Help Desk No Logon In order for the syncronization utility to work you must be logged onto at least one LAN Use the Logon utility in your IBM DOS LAN Services group then try again Here we start using some API calls to the Netapi.dll to return the user comments associated with the currently logged on user first we get the domain controller the we get the users infromatione nresult = NetUseEnum("", 1, szServers, 260, nentries, ntotal) search for ASCIIZ null terminator Form_Resize ffffff 500 'statustxt.Heightt NewPassword_GotFocus Set selection start.e OldPassWord_GotFocus Set selection start.e Option1_Click Option2_Click SearchMnu_Click Updatebut_Click this function does the actual pass word changinga it needs to have the old password and new password it cycles through all domains listed in the list box trying to change each one validate that all data is correct passed back an error get out of the program Processing Password Change for here we goc setting a passworda Password Succesfully Changed Request not permitted on this domain The Network Path can not be found The specified password is not valid The redirector has not been started Domain gone down or not found The requestor service has not been started An Internal error has occured The server is not configured for transactions Password changes are not permitted The specified password is not valid The username can not be found Password changes are not permitted Password changes are not permitted Password changes are not permitted Error in Accounts database The user account has expired This Password cannot be changed Password is too recent to use Password is shorter then required Password is too recent to change Error in Accounts database The specified domain is not valid Error in Accounts database Unknown Error Number Domains Had Errors when changing Passwords All Domain Passwords succesfully set Verify_Change Verify_GotFocus Set selection start.e Verify_KeyPress