TC官方合作论坛

标题: tc有什么办法能读出计算机名吗？ [打印本页]

作者: onlyclxy 时间: 2013-10-15 23:09
标题: tc有什么办法能读出计算机名吗？
cmd有个命令是systeminfo 可以调出系统信息。计算机名在第一项上。在cmd里存这些信息的命令是 systeminfo>>c:\1.txt tc可以调用systeminfo这个命令，但是却无法运行systeminfo>>c:\1.txt 这个完整的命令。也就无法存下来这些信息。应该怎么做呢？
不过这个命令有个缺点，很慢啊！有没有别的办法能解决下呢？只要读出计算机名就行！谢谢！

作者: cylhb 时间: 2013-10-16 00:53
试试直接用DLLCALL
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
[说明]
取得这台计算机的名称
[参数表]
lpBuffer ------- String，随同计算机名载入的字串缓冲区
nSize ---------- Long，缓冲区的长度。这个变量随同返回计算机名的实际长度载入
[返回值]
Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError

作者: cylhb 时间: 2013-10-16 01:44
上面那个方法经测试，目前由于DLLCALL的兼容性，只能制作成插件方法实现。。。

接下来介绍一个更简单的方法。
var a=com("Wscript.Network")
辅助.消息框(a.ComputerName)

TC的COM调用让我们更方便的使用各个系统组件，真爽

作者: onlyclxy 时间: 2013-10-16 01:55
回复 3楼cylhb的帖子

非常感谢！！！

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)