'/ * =============================================== ============= '/ * This class is reposted in Cocoon. URL:
http://www.ccopus.com/leadbbs/board/
'/ * This class can get the relevant information of the local area network' / * ===================================== ===========================================================================================================================2 GetObject ("Winnt:") for Each Domain in ObjNamespace Response.write "" & domain.name & "" Next End Sub '1.2 Display All Connected Computes on the Primary Domain Controller Sub PullAllComputers (strDomain) Dim PrimDomainContr Set PrimDomainContr = getobject ( "WinNT: //" & strDomain) PrimDomainContr.filter = Array ( "Computer") For each Computer in PrimDomainContr Response.Write " "& Computer.name &" "Next End Sub' 1.3 Remove A Connected Computer from a primary domain controller Sub DelcomputerFromPDC (strdomain, strdelcomputer) Dim PrimdomainContr = getObject ("Winnt: //" & strdomain) Call primdomaincontr.delete ("Computer", strdelcomputer) End Sub '2. Computer Users'
2.1 Display all user accounts sub PullAllUsers (strDomain) Dim Computer Dim User Set Computer = GetObject ( "WinNT: //" & strDomain) Computer.Filter = Array ( "User") For Each User in Computer Response.Write " "& user.Name &" "Next End Sub '2.2 Display Minimum Password Age Sub DispminPassage (strdomain) DIM Computer Set Computer = getObject (" Winnt: // "& strdomain) response .Write ((Computer.MinPasswordAge) / 86400) End Sub '2.3 Display Minimum Password Length Sub DispMinPassLength (strDomain) Dim Computer Set Computer = GetObject ( "WinNT: //" & strDomain) Response.Write Computer.MinPasswordLength End Sub' 2.4 Display Password History Length Sub Disppsshislength (STRDOMAIN) DIM Computer Set Computer = getObject ("Winnt: //" & strdomain) Response.write Computer .PasswordHistoryLength End Sub '2.5 Display Auto Unlock Interval Sub DispAutoUnlock (strDomain) Dim Computer Set Computer = GetObject ( "WinNT: //" & strDomain) Response.Write Computer.AutoUnlockInterval End Sub' 2.6 Display Lockout Observation Interval Sub DispAutoUnlockObservation (strDomain) DIM Computer Set Computer = getObject ("Winnt: //" & strdomain) Response.write computer End Sub '3. Computer Groups'
3.1 Display All Groups Sub PullAllGroups (strDomain) Dim Computer Dim Group Set Computer = GetObject ( "WinNT: //" & strDomain) Computer.Filter = Array ( "Group") For Each Group in Computer Response.Write " "& group.Name &" "Next End Sub '4. User Specific Fields' 4.1 Display User Fullname Sub PullUserFullname (strDomain, strUser) Dim User Set User = GetObject (" WinNT: / / "& strDomain &" / "& strUser &", user ") Response.Write User.Fullname End sub '4.2 Display User Description Sub PullUserDescription (strDomain, strUser) Dim User Set User = GetObject (" WinNT: // "& strDomain & "/" & strUser & ", user") Response.Write User.Description End sub '4.3 Display User Must Change Password Flag Sub PullUserMustChangePass (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: // "& strDomain &" / "& strUser &", user ") Response.Write User.Get (" PasswordExpired ") '// 1 Means the Password Expired End Sub' 4.4 Display User Can not Change Password Flag Sub PullUserCannotChangePass (STRDOMAIN, STRUSER) DIM User Dim Flags Set User = getObject ("Winnt: //" & strdomain & "& struser &", user ") Flags = User.get (" Userflags ") Response.write Flags and & &
H00040 '// 0 Means that user CAN change pass End sub' 4.5 Display Password Never Expires Flag Sub PullPassNeverExpires (strDomain, strUser) Dim User Dim Flags Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Flags = User.Get ( "userFlags") Response.Write Flags And & H10000 '// 0 Means that Password DOES expire End sub' 4.6 Display User Password Minimum Length Sub PullUserPassMinLength (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.PasswordMinimumLength End Sub '4.7 Display User Password Required Sub PullUserPassRequired (strDomain, strUser) Dim User Set User = GetObject ("Winnt: //" & strdomain & "/" & struser & ", user") response.write user.passwordrequired end sub '4.8 Display User Account Disabled Flag Sub PullUseraccountDisabled (strdomcountddisabled rUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.AccountDisabled End Sub '4.9 Display User Account Lockout Flag Sub PullUserAccountLockout (strDomain, strUser ) Set user = getObject ("Winnt: //" & strdomain & "& struser &", user ") response.write user.isaccountlocked end sub '
4.10 Display User Account Type Sub PullUserAccountType (strDomain, strUser) Dim User Dim Flags Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Flags = User.Get ( "UserFlags" ) Response.Write Flags And & H100 '// 0 Means that account is GLOBAL End sub' 4.11 Display User Profile Path Sub PullUserProfilePath (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.Profile End Sub '4.12 Display User Login Script Sub PullUserLoginScript (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.LoginScript End Sub '4.13 Display User Home Directory Path Sub PullUserHomeDirPath (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", User") R esponse.Write User.HomeDirectory End Sub '4.14 Display User Home Directory Mapping Sub PullUserHomeDirDrive (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response .Write user.get ("HomedirDrive") End Sub '4.15 Display User Account Expiration Date (NT 4.0 Only) Sub PulluseraccounTexpiredate (StriMain, Struser) DIM User Set User = getObject ("
WinNT: // "& strDomain &" / "& strUser &", user ") Response.Write User.AccountExpirationDate End Sub '4.16 Display User Bad Login Count (NT 4.0 only) Sub PullUserBadLoginCount (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.BadLoginCount End Sub '4.17 Display User Last Login (NT 4.0 only) Sub PullUserLastLogin (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.LastLogin End Sub '4.18 Display User Last Logoff (NT 4.0 only) Sub PullUserLastLogoff (strDomain, strUser) Dim User Set User = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.LastLogoff End Sub '4.19 Display User Last Logoff (NT 4.0 only) Sub PullUserLastLogoff1 STRDOMAIN, STRUSER DIM USER SET USE r = GetObject ( "WinNT: //" & strDomain & "/" & strUser & ", user") Response.Write User.LastLogoff End Sub '4.20 Display User Logon Hours Restriction (NT 4.0 only) Sub PullUserLogonHourRestriction (strDomain, strUser ) DIM User Dim Regtime Dim Restrict Set User = GetObject ("Winnt: //" & strdomain & "& struser &", user ") for Each Regtime in User.loginhours IFTIME <
