以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  电脑识别码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153843)
--  作者：455631117
--  发布时间：2020/8/25 11:25:00
--  电脑识别码
你好，我在写一个统计电脑的小程序，用的是computerid的方法，但是在电脑运行的时候还是会有重复现象，请问有没有更好的方法解决
--  作者：有点蓝
--  发布时间：2020/8/25 11:50:00
--  
试试：http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=94526
--  作者：455631117
--  发布时间：2020/8/25 15:40:00
--  
好的，谢谢。还有就是，怎么获取电脑的MAC地址
--  作者：有点蓝
--  发布时间：2020/8/25 15:48:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=153847
--  作者：455631117
--  发布时间：2020/8/25 17:30:00
--  
能不能把电脑的MAC地址全部列出来，我再一一进行修改
--  作者：有点蓝
--  发布时间：2020/8/25 17:43:00
--  
4楼的用法就是
--  作者：455631117
--  发布时间：2020/8/31 16:30:00
--  
你好，我又在网上搜到微软用来识别全球唯一ID的方法，在cmd中输入slmgr.vbs -dti，下面是我的代码，请问怎么才能把获得的代码赋给s，请帮忙修改，谢谢
Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False \'关闭Shell的使用
p.StartInfo.RedirectStandardInput = True \'重定向标准输入
p.StartInfo.RedirectStandardOutput = True \'重定向标准输出
p.StartInfo.RedirectStandardError = True \'重定向错误输出
p.StartInfo.CreateNoWindow = True \'设置不显示窗口
p.Start()
p.StandardInput.WriteLine("slmgr.vbs -dti")
p.StandardInput.WriteLine("exit")
Dim s As String = p.StandardOutput.ReadToEnd()
Output.Show(s)
--  作者：有点蓝
--  发布时间：2020/8/31 16:55:00
--  
Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.Arguments = "/k cscript %WINDIR%\\\\SYSTEM32\\\\SLMGR.VBS /DTI"
\'p.StartInfo.WorkingDirectory = "%WINDIR%\\SYSTEM32\\"
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardInput = True
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.RedirectStandardError = True
p.StartInfo.CreateNoWindow = True
p.Start()
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()
Output.Show(strRst )
For Each s As String In strRst.replace(vbcr,"").Split(vblf)
    If s.StartsWith("安装 ID:") Then
        msgbox(s.Replace("安装 ID: ","").trim())
        Exit For
    End If
Next
--  作者：455631117
--  发布时间：2020/8/31 17:03:00
--  
好的，谢谢
--  作者：455631117
--  发布时间：2020/9/4 8:53:00
--  
再请问，我的电脑有双硬盘，怎么把两块硬盘的ID都读取出来，现在是只能读取安装了系统的那块硬盘