More Domain scripts : hal can return information in a message box
there are many different ways to display information to the user
some times it is easier to return STATIC information in a message box
in the hal brain we do this with the
HalBrain.MsgAlert " my message "
command. sometimes when asking hal for various information already stored on the hard drive you can also have hal "OPEN THE FILE" (an available script)
ie: hal what do you know about MAJESTIC-12 project POUNCE (one of my personal topics). then hal will open the PDF file with the Project POUNCE information inside it.
'------------------------------------------------------
'FUNCTION : RETURN INFORMATION RE THE COMPUTER SYSTEM
'------------------------------------------------------
If InStr (1, UserSentence, " RETURN INFORMATION ABOUT THE COMPUTER SYSTEM ", 1) > 0 Then
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\rootcimv2")
Set colItems7 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems7
HalBrain.MsgAlert "AdminPasswordStatus: " & objItem.AdminPasswordStatus
HalBrain.MsgAlert "AutomaticResetBootOption: " & objItem.AutomaticResetBootOption
HalBrain.MsgAlert "AutomaticResetCapability: " & objItem.AutomaticResetCapability
HalBrain.MsgAlert "BootOptionOnLimit: " & objItem.BootOptionOnLimit
HalBrain.MsgAlert "BootOptionOnWatchDog: " & objItem.BootOptionOnWatchDog
HalBrain.MsgAlert "BootROMSupported: " & objItem.BootROMSupported
HalBrain.MsgAlert "BootupState: " & objItem.BootupState
HalBrain.MsgAlert "Caption: " & objItem.Caption
HalBrain.MsgAlert "ChassisBootupState: " & objItem.ChassisBootupState
HalBrain.MsgAlert "CreationClassName: " & objItem.CreationClassName
HalBrain.MsgAlert "CurrentTimeZone: " & objItem.CurrentTimeZone
HalBrain.MsgAlert "DaylightInEffect: " & objItem.DaylightInEffect
HalBrain.MsgAlert "Description: " & objItem.Description
HalBrain.MsgAlert "Domain: " & objItem.Domain
HalBrain.MsgAlert "DomainRole: " & objItem.DomainRole
HalBrain.MsgAlert "EnableDaylightSavingsTime: " & objItem.EnableDaylightSavingsTime
HalBrain.MsgAlert "FrontPanelResetStatus: " & objItem.FrontPanelResetStatus
HalBrain.MsgAlert "InfraredSupported: " & objItem.InfraredSupported
HalBrain.MsgAlert "InitialLoadInfo: " & objItem.InitialLoadInfo
HalBrain.MsgAlert "InstallDate: " & objItem.InstallDate
HalBrain.MsgAlert "KeyboardPasswordStatus: " & objItem.KeyboardPasswordStatus
HalBrain.MsgAlert "LastLoadInfo: " & objItem.LastLoadInfo
HalBrain.MsgAlert "Manufacturer: " & objItem.Manufacturer
HalBrain.MsgAlert "Model: " & objItem.Model
HalBrain.MsgAlert "Name: " & objItem.Name
HalBrain.MsgAlert "NameFormat: " & objItem.NameFormat
HalBrain.MsgAlert "NetworkServerModeEnabled: " & objItem.NetworkServerModeEnabled
HalBrain.MsgAlert "NumberOfProcessors: " & objItem.NumberOfProcessors
HalBrain.MsgAlert "OEMLogoBitmap: " & objItem.OEMLogoBitmap
HalBrain.MsgAlert "OEMStringArray: " & objItem.OEMStringArray
HalBrain.MsgAlert "PartOfDomain: " & objItem.PartOfDomain
HalBrain.MsgAlert "PauseAfterReset: " & objItem.PauseAfterReset
HalBrain.MsgAlert "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
HalBrain.MsgAlert "PowerManagementSupported: " & objItem.PowerManagementSupported
HalBrain.MsgAlert "PowerOnPasswordStatus: " & objItem.PowerOnPasswordStatus
HalBrain.MsgAlert "PowerState: " & objItem.PowerState
HalBrain.MsgAlert "PowerSupplyState: " & objItem.PowerSupplyState
HalBrain.MsgAlert "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
HalBrain.MsgAlert "PrimaryOwnerName: " & objItem.PrimaryOwnerName
HalBrain.MsgAlert "ResetCapability: " & objItem.ResetCapability
HalBrain.MsgAlert "ResetCount: " & objItem.ResetCount
HalBrain.MsgAlert "ResetLimit: " & objItem.ResetLimit
HalBrain.MsgAlert "Roles: " & objItem.Roles
HalBrain.MsgAlert "Status: " & objItem.Status
HalBrain.MsgAlert "SupportContactDescription: " & objItem.SupportContactDescription
HalBrain.MsgAlert "SystemStartupDelay: " & objItem.SystemStartupDelay
HalBrain.MsgAlert "SystemStartupOptions: " & objItem.SystemStartupOptions
HalBrain.MsgAlert "SystemStartupSetting: " & objItem.SystemStartupSetting
HalBrain.MsgAlert "SystemType: " & objItem.SystemType
HalBrain.MsgAlert "ThermalState: " & objItem.ThermalState
HalBrain.MsgAlert "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
HalBrain.MsgAlert "UserName: " & objItem.UserName
HalBrain.MsgAlert "WakeUpType: " & objItem.WakeUpType
HalBrain.MsgAlert "Workgroup: " & objItem.Workgroup
Next
End If
'------------------------------------------------------
I SHALL POST THE "OPEN A FILE" SCRIPT.
IT would be nice to be able to database all my PDF downloads and EBOOKs. in to hal's reference library. whilst asking for any libraried file he will open or read for you.(until you say "STOP")
BYE BYE FOR NOW.
XSPYDAZ
happily chugging along at a snails pace........