Specifies the times during which the user can log on.
HourLogon = User.LogonHours (HourOfWeek as Long)
User.LogonHours (HourOfWeek as Long) = HourLogon
|HourOfWeek||Long||0 is Sunday, 0:00 to 0:59 1 is Sunday, 1:00 to 1:59 and so on.|
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") Dim User, Hour 'Add a test user Set User = UM.Users.Add("~TestUser", "1TestPassword") 'Test user does not have access in sunday For Hour=0 To 23 User.LogonHours(Hour) = False Next 'List of account logon hours, sun, mon Dim Out: Out = "Logon hours info:" & vbCrLf Out = Out & toS("Account",25) & toS("Logon hours - sun", 25) & _ toS("Logon hours - mon", 25) & vbCrLf For Each User In UM.Users Out = Out & toS(User.Name,25) For Hour=0 To 47 If User.LogonHours(Hour) Then Out = Out & "X" Else Out = Out & "-" End If If (Hour+1) Mod 24 = 0 Then Out = Out & " " Next Out = Out & vbCrLf Next Wscript.Echo Out 'Delete the test account UM.Users("~TestUser").Delete Function toS(byval W, Cols) W = "" & W: If W = "" Then W = "-" On Error Resume Next W = W & Space(Cols-Len(W)) toS = W End Function
AuthFlags, BadPasswordCount, CodePage, Comment, CountryCode, Disabled, Expires, Flags, FullName, Groups, HomeDir, HomeDirDrive, ID, LastLogOff, LastLogon, LocalGroups, LockOut, LogonHours, MaxStorage, Name, NumOfLogons, Password, PasswordAge, PasswordCannotChange, PasswordExpired, PasswordNeverExpires, PasswordNotRequired, PrimaryGroupID, Privilege, Profile, Ras, ScriptPath, Server, UserComment, Workstations
Properties of the user account, and methods for creating, deleting and selecting users.
ActiveX UserManager is easy to use COM component with classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. You can simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL programming environment.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: firstname.lastname@example.org