关于查询系统登陆名的思考
本帖最后由 1291500406 于 2020-2-19 12:42 编辑;;思考:一
(getenv "UserName")
;;返回值:"bbmac 0, o"
(getenv "UserDomain")
;;返回值:"DESKTOP-NKEDKOQ"
(getenv "ComputerName")
;;返回值:"DESKTOP-NKEDKOQ"
;;思考:二
(set 'com1(vlax-create-object"{093ff999-1ea0-4079-9525-9614c3504b74}"))
;;返回值:#<VLA-OBJECT IWshNetwork2 070365e0>
(vlax-get com1 "ComputerName")
;;返回值:"DESKTOP-NKEDKOQ"
(vlax-get com1 "UserDomain")
;;返回值:"DESKTOP-NKEDKOQ"
(vlax-get com1 "UserName")
;;返回值:"bbmac"
(vlax-release-object com1)
;;返回值:0
;;思考:三
(set 'com2(vlax-create-object"{66182ec4-afd1-11d2-9cb9-0000f87a369e}"))
;;返回值:#<VLA-OBJECT 0b4855a4>
(vlax-get com2 "UserName" )
;;返回值:"bbmac"
(vlax-get com2 "computername" )
;;返回值:"DESKTOP-NKEDKOQ"
(vlax-release-object com2)
;;返回值:0
;;思考:四
(set 'com3(vlax-create-object"{72c24dd5-d70a-438b-8a42-98424b88afb8}"))
;;返回值: #<VLA-OBJECT IWshShell3 07036610>
(vlax-invoke com3"ExpandEnvironmentStrings" "%UserName%")
;;返回值: "bbmac"
(vlax-invoke com3"ExpandEnvironmentStrings" "%ComputerName%")
;;返回值:"DESKTOP-NKEDKOQ"
(vlax-invoke com3"ExpandEnvironmentStrings" "%UserDomain%")
;;返回值: "DESKTOP-NKEDKOQ"
(vlax-release-object com3)
;;返回值:0
;;思考:五
(or
(setq com4 (vlax-create-object "{e8540e26-d20e-483f-9fd5-a5a3553a7556}"))
;;返回值:#<VLA-OBJECT IAecScriptControl 0824933c>
(setq com4 (vlax-create-object "{0e59f1d5-1fbe-11d0-8ff2-00a0d10038bc}"))
;;返回值: #<VLA-OBJECT IScriptControl 0b4a69f8>
)
;;返回值: T
(vlax-put com4 "language" "VBS")
;;返回值: nil
(set 'com5(vlax-invoke com4 "eval" "Getobject(\"winmgmts:\\\\.\")"))
;;返回值: #<VLA-OBJECT ISWbemServicesEx 0824984c>
(set 'com6(vlax-invoke com5 "execquery" "select SID from win32_userAccount"))
;;返回值: #<VLA-OBJECT ISWbemObjectSet 082498dc>
(set 'lst '())
;;返回值: nil
(vlax-for x com6 (set 'lst(cons x lst)))
;;返回值: (#<VLA-OBJECT ISWbemObjectEx 08249bac> #<VLA-OBJECT ISWbemObjectEx 0824969c>..)
(mapcar '(lambda (x)(Vlax-get x 'name))lst)
;;返回值（"WDAGUtilityAccount" "Guest" "DefaultAccount" "bbmac" "Administrator")
(mapcar '(lambda (x)(vlax-get x 'SID))lst)
;;返回值（"S-1-5-21-3249359595-3240772278-112502316-504"..)
(vlax-release-object com4)
;;返回值:0
(vlax-release-object com5)
;;返回值:0
(vlax-release-object com6)
;;返回值:0
本帖最后由 1291500406 于 2019-4-21 21:46 编辑
angel066499 发表于 2019-4-21 19:14
我也想做一个网站，有教程吗
点击 -- > 欢迎来到必强的编程空间-- >进入我的网盘，那里有你想要的东西。-- >wp文件夹
1291500406 发表于 2019-4-21 19:43
点击 -- > 欢迎来到必强的编程空间-- >进入我的网盘，那里有你想要的东西。-- ...
感谢，加油哦，感觉你就是第二个猫老师！ flowerson 发表于 2019-4-22 16:10
年轻有为，不错！
在明经学到了很多，收获很多，
遇到不会的先搜索，基本上都是获取值，赋值变量，输出结果，
很多东西都是东拼西凑修修补补的过程中，积累学习，
慢慢学的，感觉好就分享出来。
谢谢，分享快乐！点赞，点赞！ 伟大的你
即将出现在世界东方 小强，加油。 猪哥永远支持你 yaokui25 发表于 2019-3-31 13:31
猪哥永远支持你
谢谢猪哥 ynhh 发表于 2019-3-31 12:40
伟大的你
即将出现在世界东方
做网站有点花时间，还容易被黑客黑网站，哎，明经网站以前就被黑过 1291500406 发表于 2019-3-31 13:38
谢谢猪哥
大周末的好好陪陪女朋友，别一门心思的弄你的网站。 yaokui25 发表于 2019-3-31 14:00
大周末的好好陪陪女朋友，别一门心思的弄你的网站。
没女朋友 必强哥女朋友好漂亮{:1_1:}