<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBScript: Получение строки запуска]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=7358&amp;type=atom" />
	<updated>2012-08-01T17:28:36Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=7358</id>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=62250#p62250" />
			<content type="html"><![CDATA[<p>пуск - панель управления - администрирование - управление компьютером - службы и приложения - управляющий элемент вми - пкм - свойства - безопасность - ...</p>]]></content>
			<author>
				<name><![CDATA[smaharbA]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=2911</uri>
			</author>
			<updated>2012-08-01T17:28:36Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=62250#p62250</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61881#p61881" />
			<content type="html"><![CDATA[<p><strong>daszip</strong>, спасибо, ясно.</p><p>Ошибка возникает здесь:<br /></p><div class="codebox"><pre><code>ДочернийПроцесс = ServicesSet.Get(&quot;Win32_Process.Handle=&quot;+WshScriptExec.ProcessID);</code></pre></div><p>или здесь:<br /></p><div class="codebox"><pre><code>РодительскийПроцесс = ServicesSet.Get(&quot;Win32_Process.Handle=&quot;+РодительскийПроцессИД);</code></pre></div><p>?</p>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2012-07-22T09:16:11Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61881#p61881</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61875#p61875" />
			<content type="html"><![CDATA[<div class="quotebox"><blockquote><p>Вы так и не сказали, как именно Вы из 1С исполняете скрипт.</p></blockquote></div><div class="codebox"><pre><code>        WshShell = СоздатьОбъект(&quot;WScript.Shell&quot;);
        Locator = СоздатьОбъект(&quot;WbemScripting.SWbemLocator&quot;);
        
        ServicesSet = Locator.ConnectServer(&quot;.&quot;);
        WshScriptExec = WshShell.Exec(&quot;rundll32.exe kernel32,Sleep&quot;);
        
        ДочернийПроцесс = ServicesSet.Get(&quot;Win32_Process.Handle=&quot;+WshScriptExec.ProcessID);
        РодительскийПроцессИД = ДочернийПроцесс.ParentProcessID;
        WshScriptExec.Terminate();  
        
        РодительскийПроцесс = ServicesSet.Get(&quot;Win32_Process.Handle=&quot;+РодительскийПроцессИД);
        
        СтрокаЗапуска = СокрЛП(РодительскийПроцесс.CommandLine);</code></pre></div>]]></content>
			<author>
				<name><![CDATA[daszip]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=28346</uri>
			</author>
			<updated>2012-07-22T06:10:56Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61875#p61875</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61711#p61711" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>daszip пишет:</cite><blockquote><p>В моём случае особой разницы от среды исполнения нет. 1с-ка просто молча закрывается, wscript выдаёт попап с ошибкой.</p></blockquote></div><p>Первейшим условием для определения является возможность воспроизведения ситуации. Именно потому нужна наиболее полная и подробная информация. Тогда можно разбираться и пробовать. А иначе приходится просто строить предположения.</p><p>Вы так и не сказали, как именно Вы из 1С исполняете скрипт.</p><div class="quotebox"><cite>daszip пишет:</cite><blockquote><p>Как бы есть средства http://technet.microsoft.com/ru-ru/scriptcenter/dd772288 там есть ссылка на WMI Diagnosis Utility (v2.0). Утилька генерит портянку, в которой есть информация что изменены права на DCOM компоненты.</p></blockquote></div><p>Спасибо, ясно. Наличие изменённых (по сравнению с умолчальными) прав ещё не говорит об ошибке. В ряде случаев сама Microsoft требует делать сие для обеспечения работоспособности того или иного функционала Wbem. Надо смотреть конкретику.</p>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2012-07-18T08:27:33Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61711#p61711</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61706#p61706" />
			<content type="html"><![CDATA[<div class="quotebox"><blockquote><p>Видите ли, коллега, об этом условии не нужно было стесняться сказать сразу, в самом первом посте. А также как именно организовано его исполнение из 1С. Можно указать и версию самой 1С.</p></blockquote></div><p>В моём случае особой разницы от среды исполнения нет. 1с-ка просто молча закрывается, wscript выдаёт попап с ошибкой.</p><div class="quotebox"><blockquote><p>Как определили?</p></blockquote></div><p>Как бы есть средства http://technet.microsoft.com/ru-ru/scriptcenter/dd772288 там есть ссылка на WMI Diagnosis Utility (v2.0). Утилька генерит портянку, в которой есть информация что изменены права на DCOM компоненты.</p>]]></content>
			<author>
				<name><![CDATA[daszip]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=28346</uri>
			</author>
			<updated>2012-07-18T00:58:38Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61706#p61706</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61657#p61657" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>daszip пишет:</cite><blockquote><p>А чем мне она поможет? Я использую код в 1с. Какие там WScript.Arguments могут быть?</p></blockquote></div><p>Видите ли, коллега, об этом условии не нужно было стесняться сказать сразу, в самом первом посте. А также как именно организовано его исполнение из 1С. Можно указать и версию самой 1С.</p><div class="quotebox"><cite>daszip пишет:</cite><blockquote><p>Вообщем-то проблемы мои кроются в глубоко в системе, сама подсистема WMI файлово в порядке, но похоже кто-то до меня правил что-то в правах DCOM.</p></blockquote></div><p>Как определили?</p>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2012-07-17T07:30:10Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61657#p61657</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61656#p61656" />
			<content type="html"><![CDATA[<p>А чем мне она поможет? Я использую код в 1с. Какие там WScript.Arguments могут быть?<br />Вообщем-то проблемы мои кроются в глубоко в системе, сама подсистема WMI файлово в порядке, но похоже кто-то до меня правил что-то в правах DCOM.</p>]]></content>
			<author>
				<name><![CDATA[daszip]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=28346</uri>
			</author>
			<updated>2012-07-17T06:12:37Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61656#p61656</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61651#p61651" />
			<content type="html"><![CDATA[<div class="codebox"><pre><code>Set ParentProc = ServicesSet.Get(&quot;Win32_Process.Handle=&#039;&quot; &amp; CStr(WshScriptExec.ProcessID) &amp; &quot;&#039;&quot;)</code></pre></div><div class="codebox"><pre><code>Set ParentProc = ServicesSet.Get(&quot;Win32_Process.Handle=&#039;&quot; &amp; CStr(ParentProcID) &amp; &quot;&#039;&quot;)</code></pre></div><p>А чем Вас не устраивает коллекция «WScript.Arguments»?</p>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2012-07-17T02:58:13Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61651#p61651</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61649#p61649" />
			<content type="html"><![CDATA[<p>Если кратко, то...<br /></p><div class="codebox"><pre><code>        Set Locator = CreateObject(&quot;WbemScripting.SWbemLocator&quot;)
        Set ServicesSet = Locator.ConnectServer(&quot;.&quot;)
        Set ParentProc = ServicesSet.Get(&quot;Win32_Process.Handle=1&quot;)</code></pre></div><p>Ошибка на 3 строке.</p>]]></content>
			<author>
				<name><![CDATA[daszip]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=28346</uri>
			</author>
			<updated>2012-07-16T23:19:59Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61649#p61649</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBScript: Получение строки запуска]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=61648#p61648" />
			<content type="html"><![CDATA[<p>Имеется следующий скрипт.<br /></p><div class="codebox"><pre><code>        Set WshShell = CreateObject(&quot;WScript.Shell&quot;)
        Set Locator = CreateObject(&quot;WbemScripting.SWbemLocator&quot;)
        
        Set ServicesSet = Locator.ConnectServer(&quot;.&quot;)
        Set WshScriptExec = WshShell.Exec(&quot;rundll32.exe kernel32,Sleep&quot;)
        
        Set ParentProc = ServicesSet.Get(&quot;Win32_Process.Handle=&quot;&amp;WshScriptExec.ProcessID)
        ParentProcID = ParentProc.ParentProcessID
        WshScriptExec.Terminate()  
        
        Set ParentProc = ServicesSet.Get(&quot;Win32_Process.Handle=&quot;&amp;ParentProcID)
        
        CmdStr = RTrim(ParentProc.CommandLine)
        WScript.Echo CmdStr</code></pre></div><p>Проблема в том, что 100 лет в обед как работало, и вдруг перестало.<br />На рабочем хосте не работает, на любой другой работает.<br />Стартую от админа, выдаёт ошибку.</p><p>Error: Отказано в доступе<br />Code: 80041003 <br />Source: SWbemServicesEx</p><p>Подозреваю, что проблема в системе, но реинсталл крайне нежелателен.<br />Комрады, кто что посоветует?</p>]]></content>
			<author>
				<name><![CDATA[daszip]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=28346</uri>
			</author>
			<updated>2012-07-16T23:12:15Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=61648#p61648</id>
		</entry>
</feed>
