AutoHotkey Community

Code: Select all

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

colItems := objWMIService.ExecQuery("Select * from Win32_CDROMDrive")._NewEnum 
While colItems[objItem] 
MsgBox % "Device ID: " . objItem.DeviceID 
. "`nDescription: " . objItem.Description 
. "`nName: " . objItem.Name

Code: Select all

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

colPings := objWMIService.ExecQuery("Select * From Win32_PingStatus where Address = 'www.google.com'")._NewEnum ;or ip address like 192.168.1.1 

While colPings[objStatus] 
{ 
If (objStatus.StatusCode="" or objStatus.StatusCode<>0) 
MsgBox Computer did not respond. 
Else 
MsgBox Computer responded. 
}

Code: Select all

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

colSettings := objWMIService.ExecQuery("Select * from Win32_ComputerSystem")._NewEnum 
Gui, Add, ListView, x0 y0 r45 w400 h500 vMyLV, Attribute|Value 
GuiControl, -Redraw, MyLV 

While colSettings[strCSItem] 
{ 
LV_Add("","AdminPasswordStatus",strCSItem.AdminPasswordStatus ) 
LV_Add("","AutomaticResetBootOption",strCSItem.AutomaticResetBootOption ) 
LV_Add("","AutomaticResetCapability",strCSItem.AutomaticResetCapability ) 
LV_Add("","BootROMSupported",strCSItem.BootROMSupported ) 
LV_Add("","BootupState",strCSItem.BootupState ) 
LV_Add("","Caption",strCSItem.Caption ) 
LV_Add("","ChassisBootupState",strCSItem.ChassisBootupState ) 
LV_Add("","CurrentTimeZone",strCSItem.CurrentTimeZone ) 
LV_Add("","DaylightInEffect",strCSItem.DaylightInEffect ) 
LV_Add("","Description",strCSItem.Description ) 
LV_Add("","Domain",strCSItem.Domain ) 
LV_Add("","DomainRole",strCSItem.DomainRole ) 
LV_Add("","EnableDaylightSavingsTime",strCSItem.EnableDaylightSavingsTime ) 
LV_Add("","FrontPanelResetStatus",strCSItem.FrontPanelResetStatus ) 
LV_Add("","InfraredSupported",strCSItem.InfraredSupported ) 
LV_Add("","KeyboardPasswordStatus",strCSItem.KeyboardPasswordStatus ) 
LV_Add("","Manufacturer",strCSItem.Manufacturer ) 
LV_Add("","Model",strCSItem.Model ) 
LV_Add("","Name",strCSItem.Name ) 
LV_Add("","NetworkServerModeEnabled",strCSItem.NetworkServerModeEnabled ) 
LV_Add("","NumberOfLogicalProcessors",strCSItem.NumberOfLogicalProcessors ) 
LV_Add("","NumberOfProcessors",strCSItem.NumberOfProcessors ) 
LV_Add("","OEMStringArray",strCSItem.OEMStringArray ) 
LV_Add("","PartOfDomain",strCSItem.PartOfDomain ) 
LV_Add("","PauseAfterReset",strCSItem.PauseAfterReset ) 
LV_Add("","PowerOnPasswordStatus",strCSItem.PowerOnPasswordStatus ) 
LV_Add("","PowerState",strCSItem.PowerState ) 
LV_Add("","PowerSupplyState",strCSItem.PowerSupplyState ) 
LV_Add("","PrimaryOwnerContact",strCSItem.PrimaryOwnerContact ) 
LV_Add("","PrimaryOwnerName",strCSItem.PrimaryOwnerName ) 
LV_Add("","ResetCapability",strCSItem.ResetCapability ) 
LV_Add("","ResetCount",strCSItem.ResetCount ) 
LV_Add("","ResetLimit",strCSItem.ResetLimit ) 
LV_Add("","Roles",strCSItem.Roles ) 
LV_Add("","Status",strCSItem.Status ) 
LV_Add("","SupportContactDescription",strCSItem.SupportContactDescription ) 
LV_Add("","SystemStartupDelay",strCSItem.SystemStartupDelay ) 
LV_Add("","SystemStartupOptions",strCSItem.SystemStartupOptions ) 
LV_Add("","SystemStartupSetting",strCSItem.SystemStartupSetting ) 
LV_Add("","SystemType",strCSItem.SystemType ) 
LV_Add("","ThermalState",strCSItem.ThermalState ) 
LV_Add("","TotalPhysicalMemory",Round(strCSItem.TotalPhysicalMemory/(1024*1024),0) . " MB") 
LV_Add("","UserName",strCSItem.UserName ) 
LV_Add("","WakeUpType",strCSItem.WakeUpType ) 
LV_Add("","Workgroup",strCSItem.Workgroup ) 
} 
GuiControl, +Redraw, MyLV 
LV_ModifyCol() 
Gui, Show, w400 h500, Computer Details 
Return 

GuiClose: 
ExitApp

Code: Select all

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

colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum 

Gui, Add, ListView, x0 y0 r45 w400 h500 vMyLV, Attribute|Value 
GuiControl, -Redraw, MyLV 

While colSettings[objOSItem] 
{ 
LV_Add("","Build Number" ,objOSItem.BuildNumber ) 
LV_Add("","Build Type" ,objOSItem.BuildType ) 
LV_Add("","Caption" ,objOSItem.Caption ) 
LV_Add("","CountryCode" ,objOSItem.CountryCode ) 
LV_Add("","CreationClassName" ,objOSItem.CreationClassName ) 
LV_Add("","CSDVersion" ,objOSItem.CSDVersion ) 
LV_Add("","CSName" ,objOSItem.CSName ) 
LV_Add("","CurrentTimeZone" ,objOSItem.CurrentTimeZone ) 
LV_Add("","Distributed" ,objOSItem.Distributed ) 
LV_Add("","EncryptionLevel" ,objOSItem.EncryptionLevel ) 
LV_Add("","FreePhysicalMemory" ,objOSItem.FreePhysicalMemory ) 
LV_Add("","FreeSpaceInPagingFiles" ,objOSItem.FreeSpaceInPagingFiles ) 
LV_Add("","FreeVirtualMemory" ,objOSItem.FreeVirtualMemory ) 
LV_Add("","InstallDate" ,objOSItem.InstallDate ) 
LV_Add("","LargeSystemCache" ,objOSItem.LargeSystemCache ) 
LV_Add("","LastBootUpTime" ,objOSItem.LastBootUpTime ) 
LV_Add("","LocalDateTime" ,objOSItem.LocalDateTime ) 
LV_Add("","Locale" ,objOSItem.Locale ) 
LV_Add("","Manufacturer" ,objOSItem.Manufacturer ) 
LV_Add("","MaxNumberOfProcesses" ,objOSItem.MaxNumberOfProcesses ) 
LV_Add("","MaxProcessMemorySize" ,objOSItem.MaxProcessMemorySize ) 
LV_Add("","Name" ,objOSItem.Name ) 
LV_Add("","NumberOfLicensedUsers" ,objOSItem.NumberOfLicensedUsers ) 
LV_Add("","NumberOfProcesses" ,objOSItem.NumberOfProcesses ) 
LV_Add("","NumberOfUsers" ,objOSItem.NumberOfUsers ) 
LV_Add("","Organization" ,objOSItem.Organization ) 
LV_Add("","OSLanguage" ,objOSItem.OSLanguage ) 
LV_Add("","OSType" ,objOSItem.OSType ) 
LV_Add("","Primary" ,objOSItem.Primary ) 
LV_Add("","ProductType" ,objOSItem.ProductType ) 
LV_Add("","RegisteredUser" ,objOSItem.RegisteredUser ) 
LV_Add("","SerialNumber" ,objOSItem.SerialNumber ) 
LV_Add("","ServicePackMajorVersion" ,objOSItem.ServicePackMajorVersion ) 
LV_Add("","ServicePackMinorVersion" ,objOSItem.ServicePackMinorVersion ) 
LV_Add("","SizeStoredInPagingFiles" ,objOSItem.SizeStoredInPagingFiles ) 
LV_Add("","Status" ,objOSItem.Status ) 
LV_Add("","SuiteMask" ,objOSItem.SuiteMask ) 
LV_Add("","SystemDevice" ,objOSItem.SystemDevice ) 
LV_Add("","SystemDirectory" ,objOSItem.SystemDirectory ) 
LV_Add("","SystemDrive" ,objOSItem.SystemDrive ) 
LV_Add("","TotalSwapSpaceSize" ,objOSItem.TotalSwapSpaceSize ) 
LV_Add("","TotalVirtualMemorySize" ,objOSItem.TotalVirtualMemorySize ) 
LV_Add("","TotalVisibleMemorySize" ,objOSItem.TotalVisibleMemorySize ) 
LV_Add("","Version" ,objOSItem.Version ) 
LV_Add("","WindowsDirectory" ,objOSItem.WindowsDirectory ) 
} 

GuiControl, +Redraw, MyLV 
LV_ModifyCol() 
Gui, Show, w400 h500, Operating System Details 
Return 

GuiClose: 
ExitApp

Code: Select all

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

colItems := objWMIService.ExecQuery("Select * from Win32_PointingDevice")._NewEnum 
While colItems[objItem] 
MsgBox % "Description: " . objItem.Description 
. "`nDevice ID: " . objItem.DeviceID 
. "`nDevice Interface: " . objItem.DeviceInterface 
. "`nDouble Speed Threshold: " . objItem.DoubleSpeedThreshold 
. "`nHandedness: " . objItem.Handedness 
. "`nHardware Type: " . objItem.HardwareType 
. "`nINF File Name: " . objItem.InfFileName 
. "`nINF Section: " . objItem.InfSection 
. "`nManufacturer: " . objItem.Manufacturer 
. "`nName: " . objItem.Name 
. "`nNumber Of Buttons: " . objItem.NumberOfButtons 
. "`nPNP Device ID: " . objItem.PNPDeviceID 
. "`nPointing Type: " . objItem.PointingType 
. "`nQuad Speed Threshold: " . objItem.QuadSpeedThreshold 
. "`nResolution: " . objItem.Resolution 
. "`nSample Rate: " . objItem.SampleRate 
. "`nSynch: " . objItem.Synch

Code: Select all

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

colItems := objWMIService.ExecQuery("Select * from Win32_Desktop")._NewEnum 
While colItems[objItem] 
MsgBox % "Border Width: " . objItem.BorderWidth 
. "`nCaption: " . objItem.Caption 
. "`nCool Switch: " . objItem.CoolSwitch 
. "`nCursor Blink Rate: " . objItem.CursorBlinkRate 
. "`nDescription: " . objItem.Description 
. "`nDrag Full Windows: " . objItem.DragFullWindows 
. "`nGrid Granularity: " . objItem.GridGranularity 
. "`nIcon Spacing: " . objItem.IconSpacing 
. "`nIcon Title Face Name: " . objItem.IconTitleFaceName 
. "`nIcon Title Size: " . objItem.IconTitleSize 
. "`nIcon Title Wrap: " . objItem.IconTitleWrap 
. "`nName: " . objItem.Name 
. "`nPattern: " . objItem.Pattern 
. "`nScreen Saver Active: " . objItem.ScreenSaverActive 
. "`nScreen Saver Executable: " . objItem.ScreenSaverExecutable 
. "`nScreen Saver Secure: " . objItem.ScreenSaverSecure 
. "`nScreen Saver Timeout: " . objItem.ScreenSaverTimeout 
. "`nSetting ID: " . objItem.SettingID 
. "`nWallpaper: " . objItem.Wallpaper 
. "`nWallpaper Stretched: " . objItem.WallpaperStretched 
. "`nWallpaper Tiled: " . objItem.WallpaperTiled

Code: Select all

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

colSettings := objWMIService.ExecQuery("Select * from Win32_BIOS")._NewEnum 

While colSettings[objBiosItem] 
{ 
MsgBox % "BIOSVersion : " . objBiosItem.BIOSVersion 
. "`nBuildNumber : " . objBiosItem.BuildNumber 
. "`nCaption : " . objBiosItem.Caption 
. "`nCurrentLanguage : " . objBiosItem.CurrentLanguage 
. "`nDescription : " . objBiosItem.Description 
. "`nInstallableLanguages : " . objBiosItem.InstallableLanguages 
. "`nInstallDate : " . objBiosItem.InstallDate 
. "`nListOfLanguages : " . objBiosItem.ListOfLanguages 
. "`nManufacturer : " . objBiosItem.Manufacturer 
. "`nName : " . objBiosItem.Name 
. "`nPrimaryBIOS : " . objBiosItem.PrimaryBIOS 
. "`nReleaseDate : " . objBiosItem.ReleaseDate 
. "`nSerialNumber2 : " . objBiosItem.SerialNumber 
. "`nSMBIOSBIOSVersion : " . objBiosItem.SMBIOSBIOSVersion 
. "`nSMBIOSMajorVersion : " . objBiosItem.SMBIOSMajorVersion 
. "`nSMBIOSMinorVersion : " . objBiosItem.SMBIOSMinorVersion 
. "`nSMBIOSPresent : " . objBiosItem.SMBIOSPresent 
. "`nSoftwareElementID : " . objBiosItem.SoftwareElementID 
. "`nSoftwareElementState : " . objBiosItem.SoftwareElementState 
. "`nStatus : " . objBiosItem.Status 
. "`nTargetOperatingSystem : " . objBiosItem.TargetOperatingSystem 
. "`nVersion : " . objBiosItem.Version 
}

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394347%28v=vs.85%29.aspx 
PropertyList := "BankLabel,Capacity,Caption,CreationClassName,DataWidth,Description,DeviceLocator,FormFactor," 
. "HotSwappable,InstallDate,InterleaveDataDepth,InterleavePosition,Manufacturer,MemoryType,Model,Name," 
. "OtherIdentifyingInfo,PartNumber,PositionInRow,PoweredOn,Removable,Replaceable,SerialNumber,SKU,Speed," 
. "Status,Tag,TotalWidth,TypeDetail,Version" 

objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery = Select * From Win32_PhysicalMemory 
colMemInfo := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colMemInfo[objMemInfo] 
Loop, Parse, PropertyList, `, 
MemInfo .= A_index = 1 ? objMemInfo[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objMemInfo[A_LoopField] . "`n" 
logfile = %A_ScriptDir%\MemoryInfoList.txt 
FileDelete, %logfile% 
FileAppend, %MemInfo%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394238%28VS.85%29.aspx 
PropertyList := "Caption,CreationClassName,Description,DeviceType,Enabled," 
. "HotSwappable,InstallDate,Manufacturer,Model,Name,OtherIdentifyingInfo," 
. "PartNumber,PoweredOn,Removable,Replaceable,SerialNumber,SKU,Status,Tag,Version" 

objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery = Select * From Win32_OnBoardDevice 
colOnboard := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colOnboard[objOnboard] 
Loop, Parse, PropertyList, `, 
OnboardDeviceList .= A_index = 1 ? objOnboard[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objOnboard[A_LoopField] . "`n" 

logfile = %A_ScriptDir%\OnboardDeviceList.txt 
FileDelete, %logfile% 
FileAppend, %OnboardDeviceList%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394132%28v=vs.85%29.aspx 
PropertyList := "Caption,Availability,BytesPerSector,CompressionMethod,ConfigManagerErrorCode," 
. "ConfigManagerUserConfig,CreationClassName,DefaultBlockSize,Description,DeviceID,ErrorCleared," 
. "ErrorDescription,ErrorMethodology,FirmwareRevision,Index,InstallDate,InterfaceType,LastErrorCode," 
. "Manufacturer,MaxBlockSize,MaxMediaSize,MediaLoaded,MediaType,MinBlockSize,Model,Name,NeedsCleaning," 
. "NumberOfMediaSupported,Partitions,PNPDeviceID,PowerManagementSupported,SCSIBus,SCSILogicalUnit," 
. "SCSIPort,SCSITargetId,SectorsPerTrack,SerialNumber,Signature,Size,Status,StatusInfo," 
. "SystemCreationClassName,SystemName,TotalCylinders,TotalHeads,TotalSectors,TotalTracks,TracksPerCylinder" 

objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery = Select * From Win32_DiskDrive 
colDiskDrive := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colDiskDrive[objDiskDrive] 
Loop, Parse, PropertyList, `, 
DiskDriveInfo .= A_index = 1 ? objDiskDrive[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objDiskDrive[A_LoopField] . "`n" 

logfile = %A_ScriptDir%\DiskDriveInfo.txt 
FileDelete, %logfile% 
FileAppend, %DiskDriveInfo%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394072%28v=vs.85%29.aspx 
PropertyList := "Caption,CreationClassName,Depth,Description,Height,HostingBoard,HotSwappable,InstallDate," 
. "Manufacturer,Model,Name,OtherIdentifyingInfo,PartNumber,PoweredOn,Product,Removable,Replaceable," 
. "RequirementsDescription,RequiresDaughterBoard,SerialNumber,SKU,SlotLayout,SpecialRequirements," 
. "Status,Tag,Version,Weight,Width" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery = Select * From Win32_BaseBoard 
colMBInfo := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colMBInfo[objMBInfo] 
Loop, Parse, PropertyList, `, 
MatherBoardInfo .= A_LoopField . ":`t" . objMBInfo[A_LoopField] . "`n" 
MsgBox % MatherBoardInfo

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394373%28v=vs.85%29.aspx 
PropertyList := "AddressWidth,Architecture,Availability,Caption,ConfigManagerErrorCode," 
. "ConfigManagerUserConfig,CpuStatus,CreationClassName,CurrentClockSpeed,CurrentVoltage," 
. "DataWidth,Description,DeviceID,ErrorCleared,ErrorDescription,ExtClock,Family,InstallDate," 
. "L2CacheSize,L2CacheSpeed,L3CacheSize,L3CacheSpeed,LastErrorCode,Level,LoadPercentage," 
. "Manufacturer,MaxClockSpeed,Name,NumberOfCores,NumberOfLogicalProcessors,OtherFamilyDescription," 
. "PNPDeviceID,PowerManagementSupported,ProcessorId,ProcessorType,Revision,Role,SocketDesignation," 
. "Status,StatusInfo,Stepping,SystemCreationClassName,SystemName,UniqueId,UpgradeMethod,Version,VoltageCaps" 

objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery = Select * From Win32_Processor 
colCPU := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colCPU[objCPU] 
Loop, Parse, PropertyList, `, 
CPUInfo .= A_LoopField . ":`t" . objCPU[A_LoopField] . "`n" 

logfile = %A_ScriptDir%\CPUInfo.txt 
FileDelete, %logfile% 
FileAppend, %CPUInfo%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394105%28v=vs.85%29.aspx 
PropertyList := "Caption,Description,IdentifyingNumber,Name,SKUNumber,UUID,Vendor,Version" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery = Select * From Win32_ComputerSystemProduct 
colSysProduct := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colSysProduct[objSysProduct] 
Loop, Parse, PropertyList, `, 
ProductInfo .= A_LoopField . ":`t" . objSysProduct[A_LoopField] . "`n" 
MsgBox % ProductInfo

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394068(VS.85).aspx 
PropertyList := "ProductName,Accesses,Attributes,Caption,Description,IdentifyingNumber," 
. "InstallDate,InstallState,LastUse,Name,Status,Vendor,Version" 
WMIClass := "Win32_SoftwareFeature" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery := "Select * From " . WMIClass 
colProperties := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colProperties[objProperty] 
Loop, Parse, PropertyList, `, 
Result .= A_index = 1 ? objProperty[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objProperty[A_LoopField] . "`n" 
logfile = %A_ScriptDir%\%WMIClass%.txt 
FileDelete, %logfile% 
FileAppend, %Result%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394091%28VS.85%29.aspx 
PropertyList := "Caption,AccessMask,Archive,Compressed,CompressionMethod," 
. "CreationClassName,CreationDate,CSCreationClassName,CSName,Description," 
. "Drive,EightDotThreeFileName,Encrypted,EncryptionMethod,Extension," 
. "FileName,FileSize,FileType,FSCreationClassName,FSName,Group,Hidden," 
. "InstallDate,InUseCount,LastAccessed,LastModified,Manufacturer,Name," 
. "Path,Readable,Status,System,Version,Writeable" 
WMIClass := "Win32_CodecFile" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery := "Select * From " . WMIClass 
colProperties := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colProperties[objProperty] 
Loop, Parse, PropertyList, `, 
Result .= A_index = 1 ? objProperty[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objProperty[A_LoopField] . "`n" 
logfile = %A_ScriptDir%\%WMIClass%.txt 
FileDelete, %logfile% 
FileAppend, %Result%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394150%28VS.85%29.aspx 
PropertyList := "ActionID,Caption,Description,Direction,File,FontTitle," 
. "Name,SoftwareElementID,SoftwareElementState,TargetOperatingSystem,Version" 
WMIClass := "Win32_FontInfoAction" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery := "Select * From " . WMIClass 
colProperties := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colProperties[objProperty] 
Loop, Parse, PropertyList, `, 
Result .= A_Index = 1 ? objProperty[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objProperty[A_LoopField] . "`n" 
logfile = %A_ScriptDir%\%WMIClass%.txt 
FileDelete, %logfile% 
FileAppend, %Result%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394507%28v=vs.85%29.aspx 
PropertyList := "Caption,AccountType,Description,Disabled,Domain,FullName,InstallDate,LocalAccount," 
. "Lockout,Name,PasswordChangeable,PasswordExpires,PasswordRequired,SID,SIDType,Status" 
WMIClass := "Win32_UserAccount" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery := "Select * From " . WMIClass 
colProperties := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colProperties[objProperty] 
Loop, Parse, PropertyList, `, 
Result .= A_Index = 1 ? objProperty[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objProperty[A_LoopField] . "`n" 
logfile = %A_ScriptDir%\%WMIClass%.txt 
FileDelete, %logfile% 
FileAppend, %Result%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394507%28v=vs.85%29.aspx 
PropertyList := "Name,Caption,Description,Domain,InstallDate,LocalAccount,SID,SIDType,Status" 
WMIClass := "Win32_SystemAccount" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery := "Select * From " . WMIClass 
colProperties := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colProperties[objProperty] 
Loop, Parse, PropertyList, `, 
Result .= A_Index = 1 ? objProperty[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objProperty[A_LoopField] . "`n" 
logfile = %A_ScriptDir%\%WMIClass%.txt 
FileDelete, %logfile% 
FileAppend, %Result%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

;http://msdn.microsoft.com/en-us/library/aa394507%28v=vs.85%29.aspx 
PropertyList := "Name,AccessMask,AllowMaximum,Caption,Description,InstallDate," 
. "MaximumAllowed,Path,Status,Type" 
WMIClass := "Win32_Share" 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") 
WQLQuery := "Select * From " . WMIClass 
colProperties := objWMIService.ExecQuery(WQLQuery)._NewEnum 
While colProperties[objProperty] 
Loop, Parse, PropertyList, `, 
Result .= A_Index = 1 ? objProperty[A_LoopField] . "`n" : "`t" . A_LoopField . ":`t" . objProperty[A_LoopField] . "`n" 
logfile = %A_ScriptDir%\%WMIClass%.txt 
FileDelete, %logfile% 
FileAppend, %Result%, %logfile% 
Run, Notepad "%logfile%"

Code: Select all

strComputer := "." 
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2") 
colItems := objWMIService.ExecQuery("SELECT Caption,ExecutablePath,ProcessID FROM Win32_Process where ExecutablePath is not null")._NewEnum 
While colItems[objItem] 
MsgBox % "Caption: " . objItem.Caption 
. "`nProcessID: " . objItem.ProcessID 
. "`nExecutablePath: " . objItem.ExecutablePath 

Code: Select all

; Get a list of executables running on this computer.
for obj in ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process where ExecutablePath is not null")
	s .= obj.ExecutablePath "`n"
Sort s, U  ; Remove duplicates.
MsgBox % s

Code: Select all

MsgBox % ComObjGet("winmgmts:root\cimv2:Win32_LogicalDisk=""C:""").FileSystem

Code: Select all

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

colItems := objWMIService.ExecQuery("Select * from Win32_PointingDevice")._NewEnum
While colItems[objItem]
MsgBox % "Description: " . objItem.Description
. "`nDevice ID: " . objItem.DeviceID
. "`nDevice Interface: " . objItem.DeviceInterface
. "`nDouble Speed Threshold: " . objItem.DoubleSpeedThreshold
. "`nHandedness: " . objItem.Handedness
. "`nHardware Type: " . objItem.HardwareType
. "`nINF File Name: " . objItem.InfFileName
. "`nINF Section: " . objItem.InfSection
. "`nManufacturer: " . objItem.Manufacturer
. "`nName: " . objItem.Name
. "`nNumber Of Buttons: " . objItem.NumberOfButtons
. "`nPNP Device ID: " . objItem.PNPDeviceID
. "`nPointing Type: " . objItem.PointingType
. "`nQuad Speed Threshold: " . objItem.QuadSpeedThreshold
. "`nResolution: " . objItem.Resolution
. "`nSample Rate: " . objItem.SampleRate
. "`nSynch: " . objItem.Synch