Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Recent content by Dbyte
-
AD user password status
Here is the final code: On Error Resume Next 'Variable declaration Dim oFSO, oGroup, oUser, oDomain, oMaxPwdAge, oExcel, oWorkbook Dim iRow, iUserAccountControl, dtmValue, iTimeInterval, dblMaxPwdNano Set oFSO = CreateObject("scripting.filesystemobject") Set oGroup =... -
AD user password status
Markdmac's code works (no big surprise really). I'm gonna make a few more tweaks to remove some redundant messages in the .txt file. Once this is done I'll post the finalized code here for all. Thanks again Mark! -
AD user password status
I have updated my code as follows: Sub enumMembers(oGroup) For Each oUser In oGroup If oUser.Class = "user" Then iUserAccountControl = oUser.Get("userAccountControl") If iUserAccountControl And ADS_UF_DONT_EXPIRE_PASSWD Then oFile.WriteLine oUser.department & "/" &... -
AD user password status
Goal: a text file showing the password status for every user in AD. Problem: the script quits unexpectedly as soon as it gets to a user whose "User must change password at next logon" box is checked. My understanding is that this status should trigger the "password has expired" Else routine... -
.HTA subroutine not passing text after space
Worked perfectly PHV - thanks. -
.HTA subroutine not passing text after space
Goal: a .hta page that will allow users to reset the password only for users within their dept & email IT to notify that it was done. Problem: UserList.value in Sub ResetPassword does not include any characters after the space between first & last names. So in testing the name "Jane Smith"... -
force log-off/on script
Something like this? Option Explicit Dim oShell Set oShell = CreateObject("Wscript.Shell") oShell.Run "%comspec% /K shutdown.exe -r -f", 0, True -
control subform visibility via command button
Found the solution: 1. Created an OnOpen event on fsubClose that invoked the code builder. No specific code added, but now it showed in the lefthand pane of the Visual Basic coding popup. 2. Changed my OnClick event on frmNewTicket as follows: Private Sub Command87_Click() If...- Dbyte
- Post #2
- Forum: Microsoft: Access Forms
-
control subform visibility via command button
Main form is called frmNewTicket, subform is called fsubClose. fsubClose's default visible property is No. I created a command button on frmNewTicket & for its OnClick event I have the following code: Private Sub Command87_Click() Me!Forms!fsubClose!Form!Visible = True End Sub When I click...- Dbyte
- Thread
- Replies: 2
- Forum: Microsoft: Access Forms
-
Get current logged on user
OK, added the following as the Load event procedure: Private Sub Form_Load() Me![ITStaff] = GetUserName_TSB() End Sub After adding this when I open the form I get the following error message: "Compile error: expected variable or procedure, not module- Dbyte
- Post #5
- Forum: Microsoft: Access Forms
-
Get current logged on user
PHV, I got the following error when I added your command to the On: Microsoft Office Access can't find the macro 'Me!ITStaff=GetUserName_TSB().' I double-checked: GetUserName_TSB is saved as a module (not a macro) & consists of only the code I pasted above.- Dbyte
- Post #3
- Forum: Microsoft: Access Forms
-
Get current logged on user
Am trying to have a textbox on my form auto-populate with the ID of the user currently logged onto the PC when the form is opened. I created a module w/ the following code from faq702-4949: Public Function GetUserName_TSB() As String On Error GoTo error_handler Dim lngLen As Long Dim strBuf As...- Dbyte
- Thread
- Replies: 5
- Forum: Microsoft: Access Forms
-
Copy & verify file existence on multiple remote PCs
Once again Markdmac you come up w/ a solution. At least this time I was close to getting it though! ;-) Big thanks & a star for you sir. -
Copy & verify file existence on multiple remote PCs
Am now getting a "Path Not Found" error on this line: oFSO.CopyFile "\\server\share\file", "\\" & RemotePC(a) & "\file", True I confirmed the file's presence in the correct folder on the file server & that the folder is shared to Everyone. I was also able to ping the destination workstations... -
Copy & verify file existence on multiple remote PCs
I am trying to copy a single file to multiple PCs (using a text file to generate the array of workstation names) then verify the file was copied. For testing purposes the text file currently has only 2 PCs listed in it, 1 is Win2K & the other is XP. Here's my code: Option Explicit 'Declare...
