<%
'/*============================================================
'/*此类是转贴于CoCoon.网址:http://www.ccopus.com/LeadBBS/Board/
'/*此类可以获取操作局域网的相关信息
'/*============================================================
Class CC_Net_Tools
     '1. Domain Computers
     '1.1 Display all domains in the server NameSpace
     Sub PullAllDomains
           Dim objNameSpace
           Dim Domain
           Set objNameSpace = GetObject("WinNT:")
           For Each Domain in objNamespace
                 Response.Write "<span style='width:200px'>" & Domain.Name & "</span>"
           Next
     End sub

     '1.2 Display all Connected Computers 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 "<span style='width:200px'>" & Computer.Name & "</span>"
           Next
     End sub

     '1.3 Remove a Connected Computer from a Primary Domain Controller
     Sub DelComputerFromPDC(strDomain,strDelComputer)
           Dim PrimDomainContr
           Set 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 "<span style='width:200px'>" & User.Name & "</span>"
           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 DispPassHisLength(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.LockOutObservationInterval
     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 "<span style='width:200px'>" & Group.Name & "</span>"
           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't 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(strDomain,strUser)
           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 =

[1] [2] 下一页