netresource.html

来自「perl教程」· HTML 代码 · 共 331 行 · 第 1/2 页

<p>Makes a connection to a network resource specified by %NETRESOURCE</p>
</dd>
</li>
<dt><strong><a name="item_cancelconnection"><code>CancelConnection($Name,$Connection,$Force)</code></a></strong>

<dd>
<p>Cancels a connection to a network resource connected to local device 
$name.$Connection is either 1 - persistent connection or 0, non-persistent.</p>
</dd>
</li>
<dt><strong><a name="item_wnetgetlasterror"><code>WNetGetLastError($ErrorCode,$Description,$Name)</code></a></strong>

<dd>
<p>Gets the Extended Network Error.</p>
</dd>
</li>
<dt><strong><a name="item_geterror">GetError( $ErrorCode )</a></strong>

<dd>
<p>Gets the last Error for a Win32::NetResource call.</p>
</dd>
</li>
<dt><strong><a name="item_getuncname">GetUNCName( $UNCName, $LocalPath );</a></strong>

<dd>
<p>Returns the UNC name of the disk share connected to $LocalPath in $UNCName.
$LocalPath should be a drive based path. e.g. &quot;C:\\share\\subdir&quot;</p>
</dd>
</li>
</dl>
<p>
</p>
<h2><a name="note">NOTE</a></h2>
<p>$servername is optional for all the calls below. (if not given the
local machine is assumed.)</p>
<dl>
<dt><strong><a name="item_netshareadd">NetShareAdd(\%SHARE,$parm_err,$servername = NULL )</a></strong>

<dd>
<p>Add a share for sharing.</p>
</dd>
</li>
<dt><strong><a name="item_netsharecheck">NetShareCheck($device,$type,$servername = NULL )</a></strong>

<dd>
<p>Check if a directory or a device is available for connection from the
network through a share.  This includes all directories that are
reachable through a shared directory or device, meaning that if C:\foo
is shared, C:\foo\bar is also available for sharing.  This means that
this function is pretty useless, given that by default every disk
volume has an administrative share such as &quot;C$&quot; associated with its
root directory.</p>
</dd>
<dd>
<p>$device must be a drive name, directory, or a device.  For example,
&quot;C:&quot;, &quot;C:\dir&quot;, &quot;LPT1&quot;, &quot;D$&quot;, &quot;IPC$&quot; are all valid as the $device
argument.  $type is an output argument that will be set to one of
the following constants that describe the type of share:</p>
</dd>
<dd>
<pre>
    STYPE_DISKTREE     Disk drive 
    STYPE_PRINTQ       Print queue 
    STYPE_DEVICE       Communication device 
    STYPE_IPC          Interprocess communication (IPC) 
    STYPE_SPECIAL      Special share reserved for interprocess
                         communication (IPC$) or remote administration
                         of the server (ADMIN$). Can also refer to
                         administrative shares such as C$, D$, etc.</pre>
</dd>
</li>
<dt><strong><a name="item_netsharedel">NetShareDel( $netname, $servername = NULL )</a></strong>

<dd>
<p>Remove a share from a machines list of shares.</p>
</dd>
</li>
<dt><strong><a name="item_netsharegetinfo">NetShareGetInfo( $netname, \%SHARE,$servername=NULL )</a></strong>

<dd>
<p>Get the %SHARE_INFO information about the share $netname on the
server $servername.</p>
</dd>
</li>
<dt><strong><a name="item_netsharesetinfo">NetShareSetInfo( $netname,\%SHARE,$parm_err,$servername=NULL)</a></strong>

<dd>
<p>Set the information for share $netname.</p>
</dd>
</li>
</dl>
<p>
</p>
<hr />
<h1><a name="example">EXAMPLE</a></h1>
<dl>
<dt><strong><a name="item_enumerating_all_resources_on_the_network">Enumerating all resources on the network</a></strong>

<dd>
<pre>
    <span class="comment">#</span>
    <span class="comment"># This example displays all the share points in the entire</span>
    <span class="comment"># visible part of the network.</span>
    <span class="comment">#</span>
</pre>
</dd>
<dd>
<pre>
    <span class="keyword">use</span> <span class="variable">strict</span><span class="operator">;</span>
    <span class="keyword">use</span> <span class="variable">Win32::NetResource</span> <span class="string">qw(:DEFAULT GetSharedResources GetError)</span><span class="operator">;</span>
    <span class="keyword">my</span> <span class="variable">$resources</span> <span class="operator">=</span> <span class="operator">[]</span><span class="operator">;</span>
    <span class="keyword">unless</span><span class="operator">(</span><span class="variable">GetSharedResources</span><span class="operator">(</span><span class="variable">$resources</span><span class="operator">,</span> <span class="variable">RESOURCETYPE_ANY</span><span class="operator">))</span> <span class="operator">{</span>
        <span class="keyword">my</span> <span class="variable">$err</span><span class="operator">;</span>
        <span class="variable">GetError</span><span class="operator">(</span><span class="variable">$err</span><span class="operator">);</span>
        <span class="keyword">warn</span> <span class="variable">Win32::FormatMessage</span><span class="operator">(</span><span class="variable">$err</span><span class="operator">);</span>
    <span class="operator">}</span>
</pre>
</dd>
<dd>
<pre>
    <span class="keyword">foreach</span> <span class="keyword">my</span> <span class="variable">$href</span> <span class="operator">(</span><span class="variable">@$resources</span><span class="operator">)</span> <span class="operator">{</span>
        <span class="keyword">next</span> <span class="keyword">if</span> <span class="operator">(</span><span class="variable">$$href</span><span class="operator">{</span><span class="string">DisplayType</span><span class="operator">}</span> <span class="operator">!=</span> <span class="variable">RESOURCEDISPLAYTYPE_SHARE</span><span class="operator">);</span>
        <span class="keyword">print</span> <span class="string">"-----\n"</span><span class="operator">;</span>
        <span class="keyword">foreach</span><span class="operator">(</span> <span class="keyword">keys</span> <span class="variable">%$href</span><span class="operator">){</span>
            <span class="keyword">print</span> <span class="string">"$_: $href-&gt;{$_}\n"</span><span class="operator">;</span>
        <span class="operator">}</span>
    <span class="operator">}</span>
</pre>
</dd>
<dt><strong><a name="item_enumerating_all_resources_on_a_particular_host">Enumerating all resources on a particular host</a></strong>

<dd>
<pre>
    <span class="comment">#</span>
    <span class="comment"># This example displays all the share points exported by the local</span>
    <span class="comment"># host.</span>
    <span class="comment">#</span>
</pre>
</dd>
<dd>
<pre>
    <span class="keyword">use</span> <span class="variable">strict</span><span class="operator">;</span>
    <span class="keyword">use</span> <span class="variable">Win32::NetResource</span> <span class="string">qw(:DEFAULT GetSharedResources GetError)</span><span class="operator">;</span>
    <span class="keyword">if</span> <span class="operator">(</span><span class="variable">GetSharedResources</span><span class="operator">(</span><span class="keyword">my</span> <span class="variable">$resources</span><span class="operator">,</span> <span class="variable">RESOURCETYPE_ANY</span><span class="operator">,</span>
                           <span class="operator">{</span> <span class="string">RemoteName</span> <span class="operator">=&gt;</span> <span class="string">"\\\\"</span> <span class="operator">.</span> <span class="variable">Win32::NodeName</span><span class="operator">()</span> <span class="operator">}</span><span class="operator">))</span>
    <span class="operator">{</span>
        <span class="keyword">foreach</span> <span class="keyword">my</span> <span class="variable">$href</span> <span class="operator">(</span><span class="variable">@$resources</span><span class="operator">)</span> <span class="operator">{</span>
            <span class="keyword">print</span> <span class="string">"-----\n"</span><span class="operator">;</span>
            <span class="keyword">foreach</span><span class="operator">(</span><span class="keyword">keys</span> <span class="variable">%$href</span><span class="operator">)</span> <span class="operator">{</span> <span class="keyword">print</span> <span class="string">"$_: $href-&gt;{$_}\n"</span><span class="operator">;</span> <span class="operator">}</span>
        <span class="operator">}</span>
    <span class="operator">}</span>
</pre>
</dd>
</dl>
<p>
</p>
<hr />
<h1><a name="author">AUTHOR</a></h1>
<p>Jesse Dougherty for Hip Communications.</p>
<p>Additional general cleanups and bug fixes by Gurusamy Sarathy &lt;<a href="mailto:[e-mail]">[e-mail]</a>&gt;.</p>

</body>

</html>