WSH нужно определить пользователя, который запустил скрипт #324733

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

Чет либо я чего-то не допонял, либо а чем текущий пользователь не устраивает?

это нужно определить скриптом VBScript

UserName = InputBox('Введите свое имя, плиз!')

regLogon = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerLogon User Name" set objShell = createobject("WScript.Shell") Logon = objShell.RegRead(regLogon) WScript.Echo "Текущий пользователь: " & Logon

спасибо.

On Error Resume Next Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\. ootCIMV2") If Err.Number <> 0 Then    WScript.Echo Err.Number & ": " & Err.Description    WScript.Quit End If For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process Where Name = 'wscript.exe'")    WScript.Echo objProc.Caption 'краткое описание объекта    WScript.Echo objProc.CommandLine 'командная строка запуска процесса, если таковая есть    WScript.Echo objProc.CreationDate 'дата и время начала выполнения процесса    WScript.Echo objProc.CSName 'имя компьютера    WScript.Echo objProc.ExecutablePath 'полный путь к исполняемому файлу процесса    WScript.Echo objProc.OSName 'название операционной системы    WScript.Echo objProc.ParentProcessId 'PID родительского процесса    WScript.Echo objProc.ProcessId 'PID процесса    WScript.Echo objProc.WindowsVersion 'номер версии Windows    objProc.GetOwner User, Domain    objProc.GetOwnerSid Sid    WScript.Echo Domain & "" & User & " (" & Sid & ")"    WScript.Echo Next

клево ! спасибо

а если соровосемь скриптов как ловить будете ?

Может так: Set oWshNetwork = WScript.CreateObject("WScript.Network") sDomain = oWshNetwork.UserDomain sUser = oWshNetwork.UserName

не забывайте - возможен запуск от имени другого пользователя...

именно поэтому ...а если соровосемь одинаковых скриптов - то ХЗ) пущщай аффтар думает...

просто нада запускать тестовый процесс и определив парентпроцесс убивать