Code: Select all
MsgBox % ComObjCreate("WScript.Shell").Exec("cmd /Q /K ""FOR /F ""tokens=* skip=1"" `%`%n in ('WMIC path Win32_VideoController get Name ^| findstr "".""') do echo `%`%n""").StdOut.ReadAll()
Code: Select all
MsgBox % ComObjCreate("WScript.Shell").Exec("cmd /Q /K ""FOR /F ""tokens=* skip=1"" `%`%n in ('WMIC path Win32_VideoController get Name ^| findstr "".""') do echo `%`%n""").StdOut.ReadAll()
Code: Select all
#SingleInstance, Force
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
colVideo := objWMIService.ExecQuery("SELECT * FROM Win32_VideoController")._NewEnum
colName := "" ; Initialize variable
While colVideo[strCSItem] {
colName .= strCSItem.Name "`n"
}
MsgBox, % colName
Users browsing this forum: ht55cd3 and 250 guests