nonsmall 发表于 2008-12-16 17:19:00

[原创]WMI 在 lisp 上的简单应用-隐藏共享文件夹的建立(1)

本帖最后由 nonsmall 于 2013-5-13 11:42 编辑 <br /><br /><p>先建立一个文件夹</p><p>(if (not (findfile "c:\\WINDOWS$"))(vl-mkdir "c:\\WINDOWS$"))</p><p>;开共享 这样的共享在局域网无法看到 但是可以访问<br/>(defun test1()<br/>&nbsp;(setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))<br/>&nbsp;(setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))<br/>&nbsp;(setq wob (vlax-invoke-method meth1 'Get "Win32_Share" nil nil))<br/>&nbsp;(vlax-invoke wob 'Create "C:\\WINDOWS$" "E$" 0 1 "远程管理" nil);如果你有E$共享就换个名字 这也是访问的名字<br/>)</p><p>局域网内看不到的</p><p></p><p>但是可以访问到</p><p></p><p><br/>;删共享<br/>(defun test2()<br/>&nbsp;(setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))<br/>&nbsp;(setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))<br/>&nbsp;(setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_Share" nil nil nil ))<br/>&nbsp;(vlax-for n meth2<br/>&nbsp;&nbsp;(if (= "E$" (vlax-get n 'name));刚才提到的那个名字<br/>&nbsp;&nbsp;&nbsp;(vba "n.Delete")<br/>&nbsp;&nbsp;)<br/>&nbsp;)<br/>)</p><p>注:以上代码大部分用我的lisp小助手生成(顺便打个广告)</p>

nonsmall 发表于 2008-12-16 17:29:00

<p>(setq fo (vlax-invoke-method (vlax-get-or-create-object "Scripting.FileSystemObject" ) 'GetFolder "c:\\windows$" ))<br/>(vlax-put-property fo 'Attributes 6)</p><p>设置本地的隐藏和只读属性</p>

16335181 发表于 2008-12-16 17:34:00

<p>再把小手去掉?</p><p>&nbsp;&nbsp; 网上去小手的方法我的机器上都用不了...</p><p>Windows Registry Editor Version 5.00</p><p><br/>"AutoShareServer"=dword:00000001<br/><br/>"AutoShareWks"=dword:00000001<br/></p><p>都改不了去掉简单共享&nbsp;&nbsp;&nbsp; 万恶的IT部</p>

16335181 发表于 2008-12-16 17:46:00

<p>加菲 </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 去掉小手</p><p>Windows Registry Editor Version 5.00</p><p><br/>@=""</p><p>哈哈&nbsp;&nbsp;&nbsp; 重起后生效&nbsp; 哦也</p><p></p>

16335181 发表于 2008-12-16 17:59:00

<p>哈哈&nbsp; 实现管理里面都看不见共享&nbsp;&nbsp; 自创的&nbsp;&nbsp; 多研究下...我怕我眼睛不好使</p>

tlfdc 发表于 2011-11-25 11:18:19

(vba "n.Delete")
这段意思．楼主讲解下～～！

tlfdc 发表于 2011-11-25 11:26:47

(vba "n.Delete")
到这段我运行出错．～

我爱lisp 发表于 2013-12-30 08:06:46

这个是个好东西！
页: [1]
查看完整版本: [原创]WMI 在 lisp 上的简单应用-隐藏共享文件夹的建立(1)