ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vbs: аналог объекта screen?
10 сообщений из 10, страница 1 из 1
vbs: аналог объекта screen?
    #33451005
Утюг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утюг
Участник
Собсвенно, надо в скрипте узнать разрешение экрана, типа Screen.Height, Screen.TwipsPerPixelX в VB.
...
Рейтинг: 0 / 0
22.12.2005, 10:00
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33451378
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
WMI.
...
Рейтинг: 0 / 0
22.12.2005, 11:40
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33451487
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoConfiguration",,48)
For Each objItem in colItems
Wscript.Echo "ActualColorResolution: " & objItem.ActualColorResolution
Wscript.Echo "AdapterChipType: " & objItem.AdapterChipType
Wscript.Echo "AdapterCompatibility: " & objItem.AdapterCompatibility
Wscript.Echo "AdapterDACType: " & objItem.AdapterDACType
Wscript.Echo "AdapterDescription: " & objItem.AdapterDescription
Wscript.Echo "AdapterRAM: " & objItem.AdapterRAM
Wscript.Echo "AdapterType: " & objItem.AdapterType
Wscript.Echo "BitsPerPixel: " & objItem.BitsPerPixel
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "ColorPlanes: " & objItem.ColorPlanes
Wscript.Echo "ColorTableEntries: " & objItem.ColorTableEntries
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DeviceSpecificPens: " & objItem.DeviceSpecificPens
Wscript.Echo "DriverDate: " & objItem.DriverDate
Wscript.Echo "HorizontalResolution: " & objItem.HorizontalResolution
Wscript.Echo "InfFilename: " & objItem.InfFilename
Wscript.Echo "InfSection: " & objItem.InfSection
Wscript.Echo "InstalledDisplayDrivers: " & objItem.InstalledDisplayDrivers
Wscript.Echo "MonitorManufacturer: " & objItem.MonitorManufacturer
Wscript.Echo "MonitorType: " & objItem.MonitorType
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PixelsPerXLogicalInch: " & objItem.PixelsPerXLogicalInch
Wscript.Echo "PixelsPerYLogicalInch: " & objItem.PixelsPerYLogicalInch
Wscript.Echo "RefreshRate: " & objItem.RefreshRate
Wscript.Echo "ScanMode: " & objItem.ScanMode
Wscript.Echo "ScreenHeight: " & objItem.ScreenHeight
Wscript.Echo "ScreenWidth: " & objItem.ScreenWidth
Wscript.Echo "SettingID: " & objItem.SettingID
Wscript.Echo "SystemPaletteEntries: " & objItem.SystemPaletteEntries
Wscript.Echo "VerticalResolution: " & objItem.VerticalResolution
Next
...
Рейтинг: 0 / 0
22.12.2005, 12:00
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33451852
Утюг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утюг
Участник
Андрей Il On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoConfiguration",,48)
For Each objItem in colItems
mymsg = msgbox("Ура, заработала!")
Next

Чегой-то ни хрена такое не фунциклюет. Но за наводку на WMI спасибо - я про него совсем и забыл. Вобщем, я пошел своим путем:
Код: plaintext
1.
2.
3.
4.
5.
6.
[/SRC]Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Services = Locator.ConnectServer(".")
Set Obj = Services.ExecQuery("Select * from Win32_DesktopMonitor")

For Each Item In Obj
mymsg = msgbox(Item.ScreenWidth & "x" & Item.ScreenHeight)
Next[SRC vba]
...
Рейтинг: 0 / 0
22.12.2005, 13:19
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33451909
Утюг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утюг
Участник
Рано обрадовался, объект WbemScripting в 98 винде не создается, а мне хотелось бы и в ней запускать.
...
Рейтинг: 0 / 0
22.12.2005, 13:36
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33452280
Утюг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утюг
Участник
Вобщем, заработал и предыдущий код - в нем неверно (?) было указано имя класса
Win32_VideoConfiguration, по крайней мере, я такого не нашел. С моникером, конечно, запускать интереснее, но с правами нелады. И если на компах с в2к и ХР можно юзать "местный" WMI, то с 98 - пока напряг. Я не соображу, как и прав не дать и запуск организовать.
...
Рейтинг: 0 / 0
22.12.2005, 15:08
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33452412
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Запуск от имени
...
Рейтинг: 0 / 0
22.12.2005, 15:33
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33452483
Утюг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утюг
Участник
А в 98 откуда runas'у взяться? Да и был бы - раздавать админский пароль не тянет. Кроме того, запускаться это дело должно из шедулера, без участия юзера. Интересно, а какие надо выдать права (или на что), чтобы можно было использовать моникер?
...
Рейтинг: 0 / 0
22.12.2005, 15:51
| Ответить | Цитировать | Написать  
vbs: аналог объекта screen?
    #33454535
Утюг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Утюг
Участник
Короче, надоело мне это все, плюнул я и скачал с мелкософта ядро WMI для Win95/98 и WSH 5.6 для них же. Ессно, все заработало...
...
Рейтинг: 0 / 0
23.12.2005, 14:29
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
vbs: аналог объекта screen?
    #34338965
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Участник
Догадываюсь, что мой ответ уже никому не нужен, однако он нашелся. Вместо
CreateObject("WbemScripting.SWbemLocator")
в Windows 98 можно пользоваться вот таким объектом:
<object ID='Locator' CLASSID='CLSID:76A64158-CB41-11D1-8B02-00600806D9B6'></object>
...
Рейтинг: 0 / 0
18.02.2007, 11:55
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vbs: аналог объекта screen?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=246&tid=2164489]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 54ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 200ms
total:  320ms
созд. / загр.: 320ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]