← Вернуться в раздел «В помощь системному администратору»

» Автоматизация администрирования. Часть 2

Автор: YNY
Дата сообщения: 24.11.2010 08:44

Хм, че-то вы все время разное пишете: Имеем пример. Любой клиент из сети 10.121.0.0/24 при заходи на http://10.10.10.10/ip.php получает ответ плана "Ваш айпи: 10.121.0.1" , т.к. все клиента успешно nat-ятся через 10.121.0.1, но не суть.
Я просил вас html код со стр. после отработки php скрипта, т.к. хз какие теги там есть (все зависит от вашей фантазии), чтоб вырезать вам ответ!
[more=PC:] "не правильность" состоит в том, что скрипт, сам по себе, предназначен для выяснения локального IP, а не IP гейта! Это не значит, что вам он не подходит, эти слова не адресованны вам в упрек! С другой стороны, обычно, хорошим тоном администрирования является случай когда на свой web сервер люди из локалки попадают через его локальный адрес менуя NAT, что собственно у вас и происходит, в связи с чем, упоминание NAT в ваших высказываниях как бы лишнее если я вас прально понимаю).
[/more]

Автор: HUB107
Дата сообщения: 24.11.2010 22:02

А выдает в ответ страничка.

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>IP</title>
</head>
<body bgcolor="#ffffff">
 Ваш IP (ай-пи) адресс: 192.168.0.66
</body>
</html>

Вот мой компутер обратился к серверу напрямую без nat-а. Посему хотелось бы увидеть в скрипте проверку на окончание последней цифры в айпи адресе. Если она больше единица - то автоматически это дело менять на единицу (т.е. 192.168.0.66 -> 192.168.0.1). Все шлюзы в нашей сети оканчиваются на .1 , так что проблем быть не должно.

Автор: YNY
Дата сообщения: 25.11.2010 13:50

HUB107 [more=Финальный скрипт]
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128 ' в небезопасном режиме цепляет только хост
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

Set objExplorer = WScript.CreateObject("InternetExplorer.Application")

objExplorer.Navigate "http://10.10.10.10/ip.php" '"about:blank" '
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width=300
objExplorer.Height = 150
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
'objExplorer
Set objDoc = objExplorer.Document.Body

'"This information is displayed in a separate window."
'objDoc.InnerHTML = strHTML
' objExplorer.Visible = True
'msgbox objDoc.InnerHTML & vbcrlf & objDoc.innerText
Dim toshluz
Dim toshluzF
toshluz=trim(Mid(Cstr(objDoc.innerText),instr(Cstr(objDoc.innerText),"с:")+2))
toshluzF=Mid(toshluz,1,instrrev(toshluz,".",-1,1)) & "1"
'msgbox toshluzF

objExplorer.Quit 'закрываем браузер

strDomain = toshluzF ' -- имя домена или рабочей группы (типа *.*.*.1)
'strPassword = "ls4k5ywA" ' -- указать или NULL
'strUser = "shenalan" ' -- указать или NULL
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = _
GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" _
& strComputer & "'")

'***меняем группу на toshluzF

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
NULL, _
NULL, _
NULL)
' если не указать JOIN_DOMAIN + ACCT_CREATE, т.е последнюю переменную, то вводит в

РГ
' перезагружаем комп через t секунд дабы изменения вступили в силу (работает точно

если по ярлыку кликать)
Set WshShell = WScript.CreateObject("WScript.Shell")
rezult=WshShell.Run ("cmd /c shutdown -r -t 5")
[/more] пробуй.
[more=РС:] только учти, что я тестил на локальной машине, т.е. рез-т "работы php" у меня мгновенный, а как будет у тебя не знаю, так что будь готов к сюрпризам и не ленись тестить в моменты максимальной загрузки сети и вебсервера) [/more]

Автор: YNY
Дата сообщения: 26.11.2010 08:34

Автор: YURETS777
Дата сообщения: 29.11.2010 18:01

Задача - групповой политикой на комп загрузить резидентный модуль (Autooff.exe) - который шатдаунит компы забывчивых юзеров в полночь.

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

Либо нужно загрузить до логона такой скрипт.

[more]

Код:
On Error Resume Next
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")

Do 'Бесконечный цикл
dtNow = Time()
currtme = Right("00" & CStr(Hour(dtNow)), 2) & ":" & Right("00" & CStr(Minute(dtNow)), 2)

If currtme = "00:00" Then
'--------------------------------------------------------------------------------------------------------------------------------
Wscript.Sleep 200
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank "
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 600
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
objExplorer.Document.Write " Уж полночь на дворе. пора и меру знать. Внимание через 10 секунд будет шатдаун..."
WScript.Sleep 10000
'--------------------------------------------------------------------------------------------------------------------------------
For Each OpSys in OpSysSet
OpSys.ShutDown()
Next
objExplorer.Quit
End If
WScript.Sleep 20000
Loop While True

Автор: raizo
Дата сообщения: 29.11.2010 20:41

YURETS777

Цитата:

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

а в логах на пользовательской машине что написано про неудачу загрузки? откуда запускается данный модуль? из шары? права для доменных компов есть на шару?

Автор: YURETS777
Дата сообщения: 29.11.2010 22:25

raizo
В логах - ничего, в том то и дело что вроде загружается, но в резиденте не остается.
Модуль запускается с шары, пермишены есть, тестовый мессэджбокс появляется до логона, но сам модуль в бесконечном цикле почему-то выкидывается из системы.

Модуль писан на дельфи и выглядит так:

[more]

Код:
Program RemoteOffAgent;
{$R autooff.res}
Uses SysUtils,Windows;
{-----------------------------------------------------------------------------------------------------}
procedure OffPC;
var
hToken:THANDLE;
tkp,tkp2:TOKEN_PRIVILEGES;
retl:cardinal;
begin
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, false, tkp, SizeOf(tkp2),tkp2, retl);
ExitWindowsEx(EWX_SHUTDOWN,0)
end;
{-----------------------------------------------------------------------------------------------------}
var
DateTime : TDateTime;
str : string;
Const
Msg: String = 'Shutdown system';
Begin
{-----------------------------------------------------------------------------------------------------}
SetPriorityClass(GetCurrentProcess, IDLE_PRIORITY_CLASS);
{-----------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------------------------------------------}
while True do
begin
DateTime := Time; // store the current date and time
str := TimeToStr(DateTime);
str := Copy(str,1,5);
If str = '02:00' Then
Begin
OffPC;
Exit;
End;
{ MessageBox(0,@str[1],'Good!',0);}
Sleep(10000);
end;
End.

Автор: BVV63
Дата сообщения: 30.11.2010 04:36

YURETS777
Не силён я ни в VBS, ни в Delphy, но, как мне кажется, Вы неоправданно усложняете задачу. При помощи той же групповой политики (либо при помощи PSExec, на выбор) можно просто зашедулить полночное выключение компов:

Код: If Not Exist "%SystemRoot%\Tasks\Shutdown.Job" SchTasks /Create /TN "Shutdown" /SC Daily /ST 00:00:00 /RU "System" /TR "Shutdown -F"

Автор: YNY
Дата сообщения: 30.11.2010 07:54

YURETS777>...грузится, до логона...

Мои соображения: не срабатывает из-за того, что скрипт "запускается" с шары локальным админом или скорей даже SYSTEM (если политика на комп), а на шару подобный юзер, прав не имеет!!! Так же возмона, что ваши юзеры не выключают комп, но выходят из системы, а комп соотв-нно не может запустить скрипт. Есть следующие варианты:
1- управлять компами с сервера (например правильно проверяем время на сервере, затем запускаем из vbs shutdown с необходимыми ключами),
2- пользовать шедулер на локальном компе,
3- кидать скрипт на лок комп.

Добавлено:
а что в ващем первом примере в цикле (после DO) за ASCII кодировка???

Добавлено:
есть еще вариант не сработки: у вас проверяется время на 00:00, но если ваш скрипт будет проверять условие в 00:01, то соответственно оно не выполнится как и скрипт)))

Добавлено:
[more=я не спец по делфи или С++ но вопрос:] а зачем вам сон как в скрипте так и в вашем exe???[/more]

Автор: YURETS777
Дата сообщения: 30.11.2010 09:04

BVV63
вариант с шедулером не прокатит.
Дело в том что на рабочих станций по требованиям безопасности потушены службы:
Шедулер, Сервер, Secondary logon.

YNY

Пермишены правельно нарулены, потому что отладочная версия с мессаджбоксом срабатывает.

Удаленное управление запрещено по безопасности.

До проверки времени не доходит потому как и скрипт с бесконечным циклом и экзешник выгружаются.

Кодировку в примерах подправил

Там не сон, а чистый шатдаун, проверено запуском после логона.

Автор: YNY
Дата сообщения: 30.11.2010 10:04

До проверки времени не доходит потому как... допустим, но, все равно, условие на проверку равенства не даст вам 100% результат!
[more=Вот вам тест бесконечного цикла]
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)

dtNow = Time()
tt=Cstr(Right("00" & CStr(Hour(dtNow)), 2) & ":" & Right("00" & CStr(Minute(dtNow)), 2))
Do
i=i+1
tf.Write ("This is a test№.="& i& "in time " & dtNow& vbcrlf)
if i>5 then ' ограничение для проверки правильности и работоспособности, а не бесконечности
tf.Close
exit do
end if
Wscript.Sleep 1000

Loop While True
[/more], который в случае сработки создает лог файл своей работы. Цепляйте его и смотрите есть ли рез-т работы!

Добавлено:
еще можете проверить политику ограничения запуска программ -- вдруг у вас такая включена и настроена

Добавлено:
когда я говорил управлять с сервера я имел в виду только возмоность запуска скрипта выкл компов с 1-го хоста и ничего больше! Если удаленное управление запрещено то у вас тада и сервера быть не должно)

Автор: YURETS777
Дата сообщения: 30.11.2010 10:34

тест проходит:

This is a test?.=1in time 11:28:00
This is a test?.=2in time 11:28:00
This is a test?.=3in time 11:28:00
This is a test?.=4in time 11:28:00
This is a test?.=5in time 11:28:00
This is a test?.=6in time 11:28:00

НО

Как только я ставлю бесконечный цикл, процесс загрузки зависает

Оно ждёт, когда скрипт закончит работу и естественно не дожидается.

Тогда я придумал пускач:

On Error Resume Next

PatchPath="C:\WINNT\system32\"
Pname="wscript.exe"
Set MyShell = WScript.CreateObject("WScript.Shell")
qwe = MyShell.Run(PatchPath & Pname & " \\Server\Script\Nightly_Shutdown\Nightly_Shutdown_Resident_Module.vbs",0,False)
WScript.Quit 0

Такой скрипт отрабатывает, потому что параметрах шелла стоит False, что означает не дожидаться пока приложение завершится, НО в резиденте модуль не оставляет, А если поставить True, то опять зависон

Добавлено:
Пускач на ассемблере тоже отработал, но модуль в резиденте не остался.
Сдается мне что до логона вообще все резидентные модуля выгружаются, возможно мс так решила защититься от вирусов.

Автор: YNY
Дата сообщения: 30.11.2010 11:19

Цитата:

YURETS777

вот по этому я те и предложил управлять не выкл компами централизованно

Добавлено:
групповые политики применяются в основном до входа пользователя в систему по этой причине они не должны работать бесконечно, но в настройках где-то, а именно: Административ-е шаблоны\система\Сценарии\, есть политика асинхронного запуска, кот позволяет вх юзеру даже если ГП не выполнилась до конца!

Добавлено:
если функция быстрое переключение пользователей включена, то резидент будет фунциклировать))) (тестил на калькуляторе провда он работал с правами system после вх в сист пользователя, так что попробуй)

Добавлено:
Еще один извращеньческий вариант -- это создание службы при помощи комманды SC ))

Автор: YURETS777
Дата сообщения: 30.11.2010 14:46

Для 2к Ассинхронная политика не работает

, тольк для XP, а XP-шных у нас всего 3 станции из 160-ти
Остальные 2К

Всё равно виснет.

Fast User switch запрещена по требованиям безопасности.

Добавлено:
Попробую в ГП задам таймаут для скрипта - 1 минуту

Опять неудача, виснет и всё, может реплика недошла, подожду пару часов

Добавлено:
ЗЫ
У нас почти на всех станциях установлены агенты SCCM.
Есть ли возможность со станции (Win7) удаленно управлять SCCM-овскими агентами, нужно что-то типа консоли SCCM только для рабочей станции

Добавлено:
Ассинхронка тоже непрокатила, хоть и не виснет но и не оставляет в памяти модуль с бесконечным циклом

Уже и не знаю что можно еще придумать

Автор: HUB107
Дата сообщения: 30.11.2010 18:24

скрипт не работает

Автор: YNY
Дата сообщения: 01.12.2010 09:51

YURETS777
"SCCM" устанавливается вообще-то на сервер, управлять сервером мона с любой тачки посредством RDP и соотв-х прав!
[more=PS:]
Вообще-то сисадмин должен контролить сеть и сервера с тачками, так что твое не желание управлять с сервера или 1-го хоста всеми мне не понятно!
[/more]

Автор: YNY
Дата сообщения: 01.12.2010 12:47

HUB107 написал в ЛС, если траблы пиши подробней в чем (перед msgbox удалив ' мона поматреть рез-ты работы скрипта)

Автор: YURETS777
Дата сообщения: 01.12.2010 13:28

YNY

Заработало !!!

Очень долго шла репликация, но теперь на станциях с 2К все политики на комп выполняются ассинхронно.

Единственное, на XP и Win7 шатдаун в 00 выполнятеся полностью, а на станциях с 2К - шатдаунится только ОС - с выводом на экран сообщения "Теперь питание компьютера можно отключить"

И еще, не выводится окно с текстом.

Я сейчас попробовал а АдмШаблоны добавить опцию "Run script Visible"

Опять подожду репликации.

Добавлено:
А в доке написано что можно ставить и на РС с Win7

Просто на сервер с SCCM у меня нет доступа, он находится в головном офисе.
я просто хочу себе на мою РС с 7-кой поставить консоль администрирования, чтобы удаленно рулить станциями в моей OU-шке.

Цитата:

"SCCM" устанавливается вообще-то на сервер, управлять сервером мона с любой тачки посредством RDP и соотв-х прав!
PS:

Автор: YNY
Дата сообщения: 02.12.2010 08:05

сообщения "Теперь питание компьютера можно отключить" появляется только если у тя не ATX питалово и не зависит от ОС, на скоко я знаю!
SCCM: попроси головных чтоб тебе установили консоль, хотя тя безопасники ск всего обломают)

Добавлено:
будь осторожен с асинхронностью, т.к. если все политики будут так выполняться то возможны разные сюрпризы у очень ретивых до работы юзеров)

Добавлено:
думаю у тя не получится отобразить свое сообщение, и прийдется цеплять на логон юзера скрипт с уведомлением о не возмоности запуска компа после 00 до начала раб дня с шатдауном)))))))

Автор: YURETS777
Дата сообщения: 02.12.2010 10:42

YNY

Как это не парадоксально, но у нас абсолютно все станции ATX, от AT избавились еще лет 6 назад.

Всё-таки 2к что-то неправильно понимает, может в скрипте указать шатдаун с параметрами.
OpSys.ShutDown(8) и OpSys.ShutDown(12) я пробовал, результат не изменился.

Добавлено:
Зы
Если в настройках скриптов до логона стоит ассинхронность, я думаю таймаут в 2 минуты, который я поставил там же, экспериментируя, можно убрать ?

Добавлено:
ЗыЗы

И ассинхронность распростроняется только на скрипты ?
MSI-ки будут ставиться обычно ?

Автор: YNY
Дата сообщения: 02.12.2010 13:45

MSI-ки будут ставиться обычно ? ну ты могешь проверить на новом компе)

Добавлено:
таймаут в 2 минуты, вообще-то да, но эт на твое усмотрение

Добавлено:
Всё-таки 2к что-то неправильно понимает: поматри через дисп задачь Системные устройства:"ACPI-совместимая система" и если нет, то соотв-но и не выкл! Т.к. через SCCM ставится ось то, возмона, там эт настройка откл для универсальности или из-за лени определять для каждого компа мать и соотв для нее дрова)

Автор: YURETS777
Дата сообщения: 02.12.2010 21:52

С этим всё в порядке, 2к ставил я самостоятельно (SCCM только начали внедрять экспериментально), выключаются они нормально, ели сделать пуск - Выключить компьютер.
Да и програмка на дельфи шатдаунит полностью, но при условии что она запущена вручную.

Цитата:

поматри через дисп задачь Системные устройства:"ACPI-совместимая система" и если нет, то соотв-но и не выкл! Т.к. через SCCM ставится ось то, возмона, там эт настройка откл для универсальности или из-за лени определять для каждого компа мать и соотв для нее дрова)

Автор: YNY
Дата сообщения: 03.12.2010 13:01

Shutdown в w2k http://support.microsoft.com/kb/317371
сам файлик из Resure Kit http://www.petri.co.il/download_free_reskit_tools.htm
попробуй

Автор: YNY
Дата сообщения: 03.12.2010 17:07

[more=вот это реально вырубает w2k]
dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//./root/cimv2").ExecQuery _
("SELECT * FROM Win32_OperatingSystem" &_
" WHERE Primary=true")

For Each obj In OpSysSet
obj.Win32Shutdown(8 + 4)
Next
[/more], в отличие от предидущего моего варианта!!!

Автор: YURETS777
Дата сообщения: 03.12.2010 18:06

YNY

Твой вариант сработал.
Big Thanx.

Осталось только включить visible в скрипте для вывода сообщения.

У меня вроде получалось в скриптах до логона выводить сообщение IE.

такой скрипт сто процентов выводит месседж:

[more]

Код:
Wscript.Sleep 200
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank "
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 600
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
objExplorer.Document.Write " ВНИМАНИЕ!!! ИДЕТ УСТАНОВКА ОБНОВЛЕНИЙ, ПОЖАЛУЙСТА НЕ ВЫКЛЮЧАЙТЕ КОМПЬЮТЕР !!! ДОЖДИТЕСЬ ЛОГИНА !!! Installer 3.1"
'--------------------------------------------------------------------------------------------------------------------------------
qwe=MyShell.Run(PatchPath & np(1) & " /quiet /norestart",0,True)
objExplorer.Quit

Автор: YURETS777
Дата сообщения: 03.12.2010 22:15

Убрал в скрипте objExplorer.Quit
Теперь окошко появляется, но после того как шатдаун выгрузил explorer.exe

Как бы его визуализировать непосредственно перед шатдауном ?

Автор: YNY
Дата сообщения: 05.12.2010 07:36

окошко появляется, но после того как шатдаун выгрузил explorer.exe ))))))))) ну ты приколол!!!
Чтоб сообщение вывелось перед выключением нуна чтоб строки скрипта, которые вырубают комп были последними и еще перед вырубом мона вставить 5 сек-ю паузу Wscript.Sleep 5000

Автор: YURETS777
Дата сообщения: 06.12.2010 15:16

YNY

Так оно и есть.
Вот текущая версия скрипта
Он у меня еще логи пишет

[more]

Код:
On Error Resume Next

Do 'Бесконечный цикл
dtNow = Time()
currtme = Right("00" & CStr(Hour(dtNow)), 2) & ":" & Right("00" & CStr(Minute(dtNow)), 2)

If currtme = "00:00" Then
'--------------------------------------------------------------------------------------------------------------------------------
Wscript.Sleep 200
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank "
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 600
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
objExplorer.Document.Write " Уж полночь на дворе. пора и меру знать. Внимание через 10 секунд будет шатдаун..."
'--------------------------------------------------------------------------------------------------------------------------------
'objExplorer.Quit
'--------------------------------------------------------------------------------------------------------------------------------
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
destsd = "\\Server\Stat\" & WshNetwork.ComputerName & "_ShutDown_" & WshNetwork.UserName & ".txt"
Set objTextFile = objFSO.CreateTextFile(destsd, True)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set objProcesseZ = objWMIService.ExecQuery ("Select * from Win32_Process")
objTextFile.WriteLine ""
objTextFile.WriteLine " Процессы "
objTextFile.WriteLine "Заголовок" & vbtab & "Старт" & vbtab & "Путь" & vbtab & "PID" & vbtab & "ParentPID" & vbtab & "Priority" & vbtab & "Status"
objTextFile.WriteLine
For Each objSoftware in objProcesseZ
objTextFile.Write objSoftware.Caption & vbtab & WMIDateStringToDate2(objSoftware.CreationDate) & vbtab & objSoftware.ExecutablePath & vbtab & objSoftware.ProcessId & vbtab & objSoftware.ParentProcessId & vbtab & objSoftware.Priority & vbtab & objSoftware.Status & vbtab
 objSoftware.GetOwner User, Domain
 objSoftware.GetOwnerSid Sid
 objTextFile.Write Domain & "\" & User & " (" & Sid & ")"
objTextFile.WriteLine
Next
objTextFile.Close
'--------------------------------------------------------------------------------------------------------------------------------
WScript.Sleep 10000
'--------------------------------------------------------------------------------------------------------------------------------
dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & "(Shutdown)}//./root/cimv2").ExecQuery("SELECT * FROM Win32_OperatingSystem" & " WHERE Primary=true")
For Each obj In OpSysSet
obj.Win32Shutdown(8 + 4)
Next
'--------------------------------------------------------------------------------------------------------------------------------
End If
WScript.Sleep 20000
Loop While True
'--------------------------------------------------------------------------------------------------------------------------------
Function WMIDateStringToDate2(dtmDate)
'Вспомогательная функция преобразования даты
WMIDateStringToDate2 = Mid(dtmDate, 7, 2) & "." & Mid(dtmDate, 5, 2) & "." & Left(dtmDate, 4) & " " & Mid(dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2)
End Function

Автор: YNY
Дата сообщения: 07.12.2010 10:47

YURETS777, Так оно и есть.))) ну в общем да только вот окно видит (как показывает procexp.exe "NT AUTHORITY\SYSTEM", т.е. пользователь SYSTEM ))) если хотишь чтоб видел залогиневшийся юзер, то, соотв, от его имени (тоже) нуна запускать эксплорер )

Автор: YURETS777
Дата сообщения: 07.12.2010 10:50

А как это сделать, примерчик можно привести ?

YNY

Цитата:

от его имени нуна запускать эксплорер тожа)

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

Предыдущая тема: BackUp Win2003Serer

Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.