Как узнать информацию на удаленном компьютере
- Автор темы eropov
- Дата начала
У AutoIT нет средств для решения подобной задачи.
Код:
$res=''
$comp='.';сетевое имя компьютера, точка - локальный компьютер
$obj = ObjGet("WinMgmts:\\"&$comp&"\root\cimv2")
$que = $obj.ExecQuery("SELECT * FROM Win32_VideoController")
For $o in $que
$res&=$o.VideoModeDescription&'|'&$o.VideoProcessor&@CRLF
Next
MsgBox(0,'',$res)Какой рабочий стол? Если болтит вот вариант с юзером/паролем
Код:
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$user='';юзверь на удалённой машине
$pasw='';его пароль
$comp='';сетевое имя компьютера
$cre = ObjCreate("WbemScripting.SWbemLocator")
$obj=$cre.ConnectServer ($comp, "root\cimv2", $comp&"\"&$user, $pasw)
$obj.Security_.ImpersonationLevel = 3
$que = $obj.ExecQuery("SELECT * FROM Win32_VideoController")
$res=''
For $o in $que
$res&=$o.VideoModeDescription&'|'&$o.VideoProcessor&@CRLF
Next
MsgBox(0,'',$res)
$oMyError = 0
Func MyErrFunc()
MsgBox(4096, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & hex($oMyError.number, 8) & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext)
Exit 1
EndFunc
snoitaleR
В качестве параметров использовал:
В результате работы скрипта выпадает ошибка:
Доступы верные, что не так?
К сожалению администратор и его пароль не совпадают на локальном и удаленном компьютере.
В качестве параметров использовал:
Код:
$user='administrator';юзверь на удалённой машине
$pasw='gfhjkm';его пароль
$comp='213.234.9.178';сетевое имя компьютераВ результате работы скрипта выпадает ошибка:
Код:
We intercepted a COM Error !
err.description is: Сервер RPC недоступен.
err.windescription: Сервер RPC недоступен.
err.number is: 80020009
err.lastdllerror is: 0
err.scriptline is: 6
err.source is: SWbemLocator
err.helpfile is:
err.helpcontext is: 0Доступы верные, что не так?
Где здесь написано вставить ip адресс? Сетевое или доменное имя здесь вероятно будет buh2.
Это полный список возвращаемых характеристик.
Код:
For $o in $que
$res&= "Adapter Compatibility: " & _
$o.AdapterCompatibility & @crlf & _
"Adapter DAC Type: " & _
$o.AdapterDACType & @crlf & _
"Adapter RAM: " & _
$o.AdapterRAM & @crlf & _
"Color Table Entries: " & _
$o.ColorTableEntries & @crlf & _
"Current Bits Per Pixel: " & _
$o.CurrentBitsPerPixel & @crlf & _
"Current Horizontal Resolution: " & _
$o.CurrentHorizontalResolution & @crlf & _
"Current Number Of Colors: " & _
$o.CurrentNumberOfColors & @crlf & _
"Current Refresh Rate: " & _
$o.CurrentRefreshRate & @crlf & _
"Current Refresh Rate: " & _
$o.CurrentRefreshRate & @crlf & _
"Current Vertical Resolution: " & _
$o.CurrentVerticalResolution & @crlf & _
"Description: " & _
$o.Description & @crlf & _
"Device ID: " & _
$o.DeviceID & @crlf & _
"Device Specific Pens: " & _
$o.DeviceSpecificPens & @crlf & _
"Driver Date: " & _
$o.DriverDate & @crlf & _
"Driver Version: " & _
$o.DriverVersion & @crlf & _
"INF Filename: " & _
$o.InfFilename & @crlf & _
"INF Section: " & _
$o.InfSection & @crlf & _
"Installed Display Drivers: " & _
$o.InstalledDisplayDrivers & @crlf & _
"Name: " & _
$o.Name & @crlf & _
"PNP Device ID: " & _
$o.PNPDeviceID & @crlf & _
"Specification Version: " & _
$o.SpecificationVersion & @crlf & _
"Video Architecture: " & _
$o.VideoArchitecture & @crlf & _
"Video Memory Type: " & _
$o.VideoMemoryType & @crlf & _
"Video Mode Description: " & _
$o.VideoModeDescription & @crlf
Next
MsgBox(0,'',$res)sngr
buh2 - это логин пользователя удаленного рабочего стола
И я не могу понять, как можно обратиться к компьютеру через интернет, по его имени. Это удаленный рабочий стол у него нет доменного имени, а сетевое разве не может повторяться? IP адрес, вот истинное имя компьютера в сети, ведь компы общаются посредством IP. Да и по имени ни как не обратиться, ведь это удаленный сервер и он не находится в моей локальной сети.
buh2 - это логин пользователя удаленного рабочего стола
И я не могу понять, как можно обратиться к компьютеру через интернет, по его имени. Это удаленный рабочий стол у него нет доменного имени, а сетевое разве не может повторяться? IP адрес, вот истинное имя компьютера в сети, ведь компы общаются посредством IP. Да и по имени ни как не обратиться, ведь это удаленный сервер и он не находится в моей локальной сети.
Желательно, но можно и на другом, допустим на СИ ;)
Мне просто нужно сделать прогу, которая будет брать файл с доступами к дедикам и возвращать о них информацию в лог файл. Я сомневаюсь, что информацию можно получить без логина и пароля, но если это возможно, то это в идеале, то что нужно)
