Open-AudIT https://www.open-audit.org/phpBB3/ |
|
suggestions https://www.open-audit.org/phpBB3/viewtopic.php?f=9&t=3100 |
Page 1 of 1 |
Author: | mac [ Tue Dec 16, 2008 11:34 am ] |
Post subject: | suggestions |
Some already requested some not Some way to show no of devices by gateway/AD sites on a network weathermap http://www.network-weathermap.com/ snmp script Ability to remotely add scheduled job to audit system Check for systems Defrag Status of the machine http://www.microsoft.com/technet/script ... efrag.mspx Windows SOH reporting http://www.microsoft.com/technet/prodte ... x?mfr=true PCs by Manufacturer Virtual Systems Ability to archive decommissioned hardware Link from mac address http://www.coffer.com/mac_find/ Days since system last reboot. List of attached /removed usb devices http://www.nirsoft.net/utils/usb_devices_view.html Ability to export only certain reports to pdf. Proxy/Poller server Server in dmz or different domain that could be used as a poller/proxy. Data pulled into main server. Scheduled jobs strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colScheduledJobs = objWMIService.ExecQuery _ ("Select * from Win32_ScheduledJob") For Each objJob in colScheduledJobs Wscript.Echo "Caption: " & objJob.Caption Wscript.Echo "Command: " & objJob.Command Wscript.Echo "Days of Month: " & objJob.DaysOfMonth Wscript.Echo "Days of Week: " & objJob.DaysOfWeek Wscript.Echo "Description: " & objJob.Description Wscript.Echo "Elapsed Time: " & objJob.ElapsedTime Wscript.Echo "Install Date: " & objJob.InstallDate Wscript.Echo "Interact with Desktop: " & objJob.InteractWithDesktop Wscript.Echo "Job ID: " & objJob.JobID Wscript.Echo "Job Status: " & objJob.JobStatus Wscript.Echo "Name: " & objJob.Name Wscript.Echo "Notify: " & objJob.Notify Wscript.Echo "Owner: " & objJob.Owner Wscript.Echo "Priority: " & objJob.Priority Wscript.Echo "Run Repeatedly: " & objJob.RunRepeatedly Wscript.Echo "Start Time: " & objJob.StartTime Wscript.Echo "Status: " & objJob.Status Wscript.Echo "Time Submitted: " & objJob.TimeSubmitted Wscript.Echo "Until Time: " & objJob.UntilTime Next List Windows Product Activation Status strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colWPA = objWMIService.ExecQuery _ ("Select * from Win32_WindowsProductActivation") For Each objWPA in colWPA Wscript.Echo "Activation Required: " & objWPA.ActivationRequired Wscript.Echo "Description: " & objWPA.Description Wscript.Echo "Product ID: " & objWPA.ProductID Wscript.Echo "Remaining Evaluation Period: " & _ objWPA.RemainingEvaluationPeriod Wscript.Echo "Remaining Grace Period: " & objWPA.RemainingGracePeriod Wscript.Echo "Server Name: " & objWPA.ServerName Next Client Side Update Settings Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate") Wscript.Echo "Service enabled: " & objAutoUpdate.ServiceEnabled Set objSettings = objAutoUpdate.Settings Wscript.Echo "Notification level: " & objSettings.NotificationLevel Wscript.Echo "Read-only: " & objSettings.ReadOnly Wscript.Echo "Required: " & objSettings.Required Wscript.Echo "Scheduled Installation Day: " & _ objSettings.ScheduledInstallationDay Wscript.Echo "Scheduled Installation Time: " & _ objSettings.ScheduledInstallationTime Details on Active Directory List Active Directory System Information On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") Wscript.Echo "User name: " & objSysInfo.UserName Wscript.Echo "Computer name: " & objSysInfo.ComputerName Wscript.Echo "Site name: " & objSysInfo.SiteName Wscript.Echo "Domain short name: " & objSysInfo.DomainShortName Wscript.Echo "Domain DNS name: " & objSysInfo.DomainDNSName Wscript.Echo "Forest DNS name: " & objSysInfo.ForestDNSName Wscript.Echo "PDC role owner: " & objSysInfo.PDCRoleOwner Wscript.Echo "Schema role owner: " & objSysInfo.SchemaRoleOwner Wscript.Echo "Domain is in native mode: " & objSysInfo.IsNativeMode List Domain Information for Trust Partners strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\MicrosoftActiveDirectory") Set colDomainInfo = objWMIService.ExecQuery _ ("Select * from Microsoft_LocalDomainInfo") For each objDomain in colDomainInfo Wscript.Echo "DNS name: " & objDomain.DNSName Wscript.Echo "Flat name: " & objDomain.FlatName Wscript.Echo "SID: " & objDomain.SID Wscript.Echo "Tree name: " & objDomain.TreeName Wscript.Echo "Domain controller name: " & objDomain.DCName Next List Trust Relationships strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\MicrosoftActiveDirectory") Set colTrustList = objWMIService.ExecQuery _ ("Select * from Microsoft_DomainTrustStatus") For each objTrust in colTrustList Wscript.Echo "Trusted domain: " & objTrust.TrustedDomain Wscript.Echo "Trust direction: " & objTrust.TrustDirection Wscript.Echo "Trust type: " & objTrust.TrustType Wscript.Echo "Trust attributes: " & objTrust.TrustAttributes Wscript.Echo "Trusted domain controller name: " & objTrust.TrustedDCName Wscript.Echo "Trust status: " & objTrust.TrustStatus Wscript.Echo "Trust is OK: " & objTrust.TrustIsOK Next List FSMO Role Holders Set objRootDSE = GetObject("LDAP://rootDSE") Set objSchema = GetObject _ ("LDAP://" & objRootDSE.Get("schemaNamingContext")) strSchemaMaster = objSchema.Get("fSMORoleOwner") Set objNtds = GetObject("LDAP://" & strSchemaMaster) Set objComputer = GetObject(objNtds.Parent) WScript.Echo "Forest-wide Schema Master FSMO: " & objComputer.Name Set objNtds = Nothing Set objComputer = Nothing Set objPartitions = GetObject("LDAP://CN=Partitions," & _ objRootDSE.Get("configurationNamingContext")) strDomainNamingMaster = objPartitions.Get("fSMORoleOwner") Set objNtds = GetObject("LDAP://" & strDomainNamingMaster) Set objComputer = GetObject(objNtds.Parent) WScript.Echo "Forest-wide Domain Naming Master FSMO: " & objComputer.Name Set objDomain = GetObject _ ("LDAP://" & objRootDSE.Get("defaultNamingContext")) strPdcEmulator = objDomain.Get("fSMORoleOwner") Set objNtds = GetObject("LDAP://" & strPdcEmulator) Set objComputer = GetObject(objNtds.Parent) WScript.Echo "Domain's PDC Emulator FSMO: " & objComputer.Name Set objRidManager = GetObject("LDAP://CN=RID Manager$,CN=System," & _ objRootDSE.Get("defaultNamingContext")) strRidMaster = objRidManager.Get("fSMORoleOwner") Set objNtds = GetObject("LDAP://" & strRidMaster) Set objComputer = GetObject(objNtds.Parent) WScript.Echo "Domain's RID Master FSMO: " & objComputer.Name Set objInfrastructure = GetObject("LDAP://CN=Infrastructure," & _ objRootDSE.Get("defaultNamingContext")) strInfrastructureMaster = objInfrastructure.Get("fSMORoleOwner") Set objNtds = GetObject("LDAP://" & strInfrastructureMaster) Set objComputer = GetObject(objNtds.Parent) WScript.Echo "Domain's Infrastructure Master FSMO: " & objComputer.Name graphs showing increases in Active Directory Users Computers Groups Servers/Workstations Audit Graph of disk storage - trend maybe even particular folders. |
Page 1 of 1 | All times are UTC + 10 hours |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |