631
Programming using the Ultra Hal Brain Editor / DOMAIN ADMINISTRATOR HAL: get scripts here..
« on: April 11, 2004, 09:11:54 am »
HELLO ZABA WORLD.....
I HAVE BEEN STUDYING FOR MY MCSE (got MCSA now) AND THOUGHT WOULDNT IT BE NICE IF HAL COULD RETRIEVE DATA ABOUT THE CURRENT DOMAIN HE IS RESIDING ON.
IE:
DOMAIN NAME
DOMAIN CONTROLLER IP ADDRESS
DNS ADDRESS
IP ROUTING TABLE
USER GROUPS IN THE ACTIVE DIRECTORY
USERS IN THE ACTIVE DIRECTORY
PERFORMANCE RELATED DATA
THE LIST IS ENDLESS .. YOU COULD PUT A PASSWORD ON THE FUNCTIONS FOR SECURITY.. for home use NOT REALLY NECCESARY.
I HAVE ATTATCHED A COUPLE OF BASICS ... IF SUCESSFULL THE ABOVE SCRIPTS MENTIONED HAVE ALREADY BEEN CREATED....
HAPPY PROGRAMMING...
PS
message for VONSMITH:::::::: COULD YOU POSSIBLY POST A COPY OF THE xtf_topic focus funtion: SEPERATE FROM THE FULL BRAIN SCRIPT :
AS I AM TRYING TO CREATE A BRAIN of my own FROM SCRATCH... but cannot forget YOUR MAJOR KEY FUNCTION ::::: I HAVE TRIED TO SNIP IT OUT OF THE BRAIN BUT IT DOSENT SEEM TO FUNCTION MAYBE IM MISSING CRITICAL BITS NOT CONTAINED IN THE MAIN FUNCTION:::
'------------------------------------------------------
'DOMAIN INFO SCRIPTS
'------------------------------------------------------
'function : DOMAIN CONTROLLER ADDRESS XSPYDAZ
'------------------------------------------------------
If InStr(1, UserSentence, " DOMAIN CONTROLLER ADDRESS ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems1
GetResponse = "DomainControllerAddress: " & objItem.DomainControllerAddress
Next
End If
'function : DOMAIN CONTROLLER SITE NAME XSPYDAZ
'------------------------------------------------------
If InStr (1, UserSentence, " DOMAIN CONTROLLER SITE NAME ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems2 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems2
GetResponse = "DcSiteName: " & objItem.DcSiteName
Next
End If
'function : DOMAIN NAME XSPYDAZ
'------------------------------------------------------
If InStr (1, UserSentence, " DOMAIN NAME ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems3 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems3
GetResponse = "Dc domain Name: " & objItem.DnsForestName
Next
End If
'function : DOMAIN CONTROLLER NAME XSPYDAZ
'------------------------------------------------------
If InStr (1, UserSentence, " DOMAIN CONTROLLER NAME ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems4 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems4
GetResponse = "DomainControllerName: " & objItem.DomainControllerName
Next
End If
I HAVE BEEN STUDYING FOR MY MCSE (got MCSA now) AND THOUGHT WOULDNT IT BE NICE IF HAL COULD RETRIEVE DATA ABOUT THE CURRENT DOMAIN HE IS RESIDING ON.
IE:
DOMAIN NAME
DOMAIN CONTROLLER IP ADDRESS
DNS ADDRESS
IP ROUTING TABLE
USER GROUPS IN THE ACTIVE DIRECTORY
USERS IN THE ACTIVE DIRECTORY
PERFORMANCE RELATED DATA
THE LIST IS ENDLESS .. YOU COULD PUT A PASSWORD ON THE FUNCTIONS FOR SECURITY.. for home use NOT REALLY NECCESARY.
I HAVE ATTATCHED A COUPLE OF BASICS ... IF SUCESSFULL THE ABOVE SCRIPTS MENTIONED HAVE ALREADY BEEN CREATED....
HAPPY PROGRAMMING...
PS
message for VONSMITH:::::::: COULD YOU POSSIBLY POST A COPY OF THE xtf_topic focus funtion: SEPERATE FROM THE FULL BRAIN SCRIPT :
AS I AM TRYING TO CREATE A BRAIN of my own FROM SCRATCH... but cannot forget YOUR MAJOR KEY FUNCTION ::::: I HAVE TRIED TO SNIP IT OUT OF THE BRAIN BUT IT DOSENT SEEM TO FUNCTION MAYBE IM MISSING CRITICAL BITS NOT CONTAINED IN THE MAIN FUNCTION:::
'------------------------------------------------------
'DOMAIN INFO SCRIPTS
'------------------------------------------------------
'function : DOMAIN CONTROLLER ADDRESS XSPYDAZ
'------------------------------------------------------
If InStr(1, UserSentence, " DOMAIN CONTROLLER ADDRESS ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems1
GetResponse = "DomainControllerAddress: " & objItem.DomainControllerAddress
Next
End If
'function : DOMAIN CONTROLLER SITE NAME XSPYDAZ
'------------------------------------------------------
If InStr (1, UserSentence, " DOMAIN CONTROLLER SITE NAME ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems2 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems2
GetResponse = "DcSiteName: " & objItem.DcSiteName
Next
End If
'function : DOMAIN NAME XSPYDAZ
'------------------------------------------------------
If InStr (1, UserSentence, " DOMAIN NAME ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems3 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems3
GetResponse = "Dc domain Name: " & objItem.DnsForestName
Next
End If
'function : DOMAIN CONTROLLER NAME XSPYDAZ
'------------------------------------------------------
If InStr (1, UserSentence, " DOMAIN CONTROLLER NAME ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems4 = objWMIService.ExecQuery("Select * from Win32_NTDomain",,48)
For Each objItem In colItems4
GetResponse = "DomainControllerName: " & objItem.DomainControllerName
Next
End If