该代码的作用：局域网电脑用户通过运行输入自己的姓名，然后获取该电脑用户的IP地址、计算机名、MAC地址等，同时写入一个以自己姓名为文件名的文本文档并发送到局域网一个共享目录下。计算机管理员可方便根据此文档管理登记。以下是代码：

Set ws = CreateObject("WScript.Shell")
ws.Run "cmd /k ipconfig /all >d:\ip.txt",0

name = InputBox("请输入姓名")
If IsEmpty(name) Then
MsgBox "请重新输入"
Else
msgBox "你的名字是："+(name)
End If

Dim objFSO
Dim strFileNew
strFile = "d:\ip.txt"
strFileNew = "\\公用计算机共享目录\" & (name) & ".txt"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile (strFile),(strFileNew)

    计算机最大的好处就是帮人处理了繁琐复杂的事务，只要人肯动脑筋，好多事都可以简单。以上代码欢迎大家举一反三，希望能给你工作带来便利！

打赏 支付宝打赏 微信打赏