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
加好友 
发短信
Post By：2020/8/25 11:50:00 [显示全部帖子]
