VPF::узнать ip терминалльного клиента

quasi

Дата 10.12.2007, 04:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0

Нужно по имени существующих терминальных сессий узнать адрес клиента этого юзера.
Имя юзера достаю из овнера файла, дальше нужно узнать адрес его локальной станции, при этом скрипт выполняет не сам юзер.

Код


strFileName = "c:\print.txt"
Set objWMIService = GetObject("winmgmts:")
Set objFileSecuritySettings = objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFileName & "'")
intRetVal = objFileSecuritySettings.GetSecurityDescriptor(objSD)

If intRetVal = 0 Then
   WScript.Echo "" & objSD.Owner.Name
Else
   WScript.Echo "Couldn't retrieve security descriptor."
End If

В сессии юзера адрес клиентской станции можно узнать так..., как узнать если скрипт будет выполнятся не от этого юзера, а от система, к примеру?

Код


Set objWSH =  CreateObject("WScript.Shell") 
Set oWTSCOM = CreateObject("EOLWTSCOM.WTSCOM") 
 
StrIP   = oWTSCOM.WTSQuerySessionInformation(0, -1, 14)

как это сделать?

quasi

Дата 10.12.2007, 05:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0

Да и как послать сообщение WScript.Echo.... в сеанс оунера создавшего файл, если сам скрипт выполняет не юзер, а localsystem?

quasi

Дата 10.12.2007, 07:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0

В общем решил не замарачиватся с сеансами, буду запускать скрипт у каждого юзера, только вот проблемка, о создании файла сообщает, но на печать он не отправляется, т.е. все что не в Sub не выполняется похоже8-\

Код


'Option Explicit
Dim strComputer, strNamespace, objService, strResult, objSink, strIP, objWSH, objSystemVariables 
strComputer = "."
strNamespace = "Root\CIMV2"
Set objWSH =  CreateObject("WScript.Shell") 
Set oWTSCOM = CreateObject("EOLWTSCOM.WTSCOM") 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objService = GetObject("WinMgmts:\\" & strComputer & "\" & strNamespace)
Set objSink = wscript.CreateObject("WbemScripting.SWbemSink", "Sink_")
objService.ExecNotificationQueryAsync objSink, "SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " & "TargetInstance.GroupComponent= " & "'Win32_Directory.Name=""C:\\\\""'"
Do 
    WScript.Sleep 1000
Loop

StrIP   = oWTSCOM.WTSQuerySessionInformation(0, -1, 14) 
IpArray = Split(StrIP, ".", -1, 1) 
pfile = "C:\PRINT.TXT"
ListArray1 = Array(48, 15, 9, 62) 
ListArray2 = Array("buh", "ADMIN", "BEER", "kadry") 
Octet3 = IpArray(2) 
FindOctet = ArraySearch(ListArray1, Octet3, 0, 1) 
If FindOctet <> -1 Then 
  if fso.FileExists(pfile) then
    fso.copyfile pfile, "\\localhost\"& ListArray2(FindOctet) &""
    fso.deleteFile pfile ', True 
    Else
     WScript.Echo "Файл " & pfile & " не существует."
  End if
   'WScript.Echo ListArray2(FindOctet) 
End If 
Function ArraySearch(ByRef sArray, StrToFind, Part, Dimention) 
    RetVal = -1 
    For i = 0 To Ubound(sArray, Dimention) 
        If (Part = 1 And InStr(1, sArray(i), StrToFind) > 0) Or (Part <> 1 And CStr(sArray(i)) = CStr(StrToFind)) Then 
            RetVal = i 
            Exit For 
        End If 
    Next 
    ArraySearch = RetVal 
End Function

Sub Sink_OnObjectReady(oOutParams, oContext)
 strResult = Date & " " & Time & vbCrLf &_
  "Создан файл: " &  oOutParams.TargetInstance.PartComponent
  Wscript.Echo strResult
End Sub

Это сообщение отредактировал(а) quasi - 10.12.2007, 07:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »