[Andy_user]

Например:

Код:

'********************************************
' Получаем список учетных записей с компа 
' (зная идентификатор и пароль администратора)
'********************************************
On error Resume Next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
'******************************************
strComputer = "193.125.10.5" 
strUser = "Administrator"
strPassword = "PASSWORD"
strDomain = ""
'******************************************
Err.Clear
'--- Подключаемся ---
Set objSWbemLocator = CreateObject ("WbemScripting.SWbemLocator")
If (Err.Number <> 0) Then
   WScript.Echo "Error (objSWbemLocator)  : " & Err.Number & "   " & Err.Description
   WScript.Quit
End If
Err.Clear
Set objSWbemServices = objSWbemLocator.ConnectServer ( _
   strComputer, _
   "root\cimv2", _
   strUser, _
   strPassword, _
   "MS_409", _
   "ntlmdomain:" & strDomain)
If (Err.Number <> 0) Then
   WScript.Echo "Error (objSWbemServices)  : " & Err.Number & "   " & Err.Description
   WScript.Quit
End If
Err.Clear

Set file_object = CreateObject("Scripting.FileSystemObject")
Set list = file_object.OpenTextFile("./Rezult.log",ForWriting,True)
Set colAcc = objSWbemServices.ExecQuery ("Select * from Win32_UserAccount") 
WScript.Echo "Обнаружено " & colAcc.Count & " учетных записей."
For Each ttt in colAcc 
    list.Write  ttt.Caption & " "  & vbCrLf
    list.Write  "   " & "Caption : " & ttt.Caption  & vbCrLf
    list.Write  "   " & "Name : " & ttt.Name  & vbCrLf
    list.Write  "   " & "Description : " & ttt.Description  & vbCrLf
    list.Write  "   " & "Domain : " & ttt.Domain  & vbCrLf
    list.Write  "   " & "SID : " & ttt.SID  & vbCrLf
    list.Write  "   " & "SIDType : " & ttt.SIDType  & vbCrLf
    list.Write  "   " & "Disabled : " & ttt.Disabled  & vbCrLf
    list.Write  "   " & "Lockout : " & ttt.Lockout  & vbCrLf
    list.Write  "   " & "PasswordChangeable : " & ttt.PasswordChangeable  & vbCrLf
    list.Write  "   " & "PasswordExpires : " & ttt.PasswordExpires  & vbCrLf
    list.Write  "   " & "PasswordRequired : " & ttt.PasswordRequired  & vbCrLf
    list.Write  " -------------------------------  " &  vbCrLf
Next
list.Close

[SkyF]

Livesms

удаленный доступ

к какому ресурсу? к рабочему столу? к оснасткам управления? к общим папкам?
Файервол ключен/выключен? IP адрес внешний/внутренний? Имя машины зарегистрировано в DNS Интернета с его IP?

[Livesms]

>>SkyF
К ресурсу - с целью получить возможность закинуть что-то типа RemoteAdmin - думаю для начала бы закинуть в автозапуск батник и ждать ребута или самому его инициировать.
Файерволл - обычний вингейт включен. Настроен не сильно
IP - внешний и зареган в DNS, во всяком случае имя и адресс машини пингуются из Интернета.

Жду ответа. Заранее спасибо.

[TbMA]

Если (самба/НБТ и т.д.) порты закрыты, то никак.
Кроме как ломать приложения на открытых портах. Но, как я понял, взлом мы здесь не обсуждаем.