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

nonsmall

先建立一个文件夹

(if (not (findfile "c:\\WINDOWS$"))(vl-mkdir "c:\\WINDOWS$"))

;开共享 这样的共享在局域网无法看到 但是可以访问
(defun test1()
 (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
 (setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
 (setq wob (vlax-invoke-method meth1 'Get "Win32_Share" nil nil))
 (vlax-invoke wob 'Create "C:\\WINDOWS$" "E$" 0 1 "远程管理" nil);如果你有E$共享就换个名字 这也是访问的名字
)

局域网内看不到的

但是可以访问到

;删共享
(defun test2()
 (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
 (setq meth1 (vlax-invoke-method wmi 'ConnectServer nil nil nil nil nil nil nil nil ))
 (setq meth2 (vlax-invoke-method meth1 'ExecQuery "Select * from Win32_Share" nil nil nil ))
 (vlax-for n meth2
  (if (= "E$" (vlax-get n 'name));刚才提到的那个名字
   (vba "n.Delete")
  )
 )
)

注:以上代码大部分用我的lisp小助手生成(顺便打个广告)

nonsmall

(setq fo (vlax-invoke-method (vlax-get-or-create-object "Scripting.FileSystemObject" ) 'GetFolder "c:\\windows$" ))
(vlax-put-property fo 'Attributes 6)

设置本地的隐藏和只读属性

16335181

再把小手去掉?

   网上去小手的方法我的机器上都用不了...

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters]
"AutoShareServer"=dword:00000001
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters]
"AutoShareWks"=dword:00000001

都改不了去掉简单共享    万恶的IT部

16335181

加菲

      去掉小手

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Network\SharingHandler]
@=""

哈哈    重起后生效  哦也

16335181

哈哈  实现管理里面都看不见共享   自创的   多研究下...我怕我眼睛不好使

tlfdc

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

tlfdc

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

我爱lisp

这个是个好东西！