Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("temp.bat")
Set objReg = New RegExp
strMacPattern = "((\d(北联网教程,专业提供视频软件下载)
……