Vbs脚本执行不一样版本的Windows OS激活任务(MAK&KMS激活)

Vbs脚本执行不一样版本的Windows OS激活任务(MAK&KMS激活)

咱们前面几面都介绍了关于vbs脚本程序来完成一些半自动化的任务，今天咱们介绍一下，Vbs脚本执行不一样版本的Windows OS激活任务(MAK&KMS激活)的功能介绍，其实无论经过vbs实现什么样的功能，咱们仍是须要屡清思路来完成相关逻辑程序的编写及运行。咱们今天既然要使用vbs脚原本完成不一样版本的激活任务，并且不一样版本的OS也有不一样的MAK Key，因此咱们须要经过获取系统的版原本完成对应的OS激活任务。一样，咱们须要为用户定义激活程序，只有指定的MAC地址才能完成激活任务，因此咱们逻辑思路有两个，1.获取用户MAC地址.2获取用户的系统版本(windows七、windows八、windows十、windows2008R二、windows2012R2……..)。3经过用户不一样版本的OS来完成对应的OS key的导入及激活。具体见下：

首先是获取用户的MAC地址

Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled = True Then
'TracePrint "本机网卡MAC地址是: " & mo.MacAddress
GetMAC = mo.MacAddress
Exit For
End If
Next
msgbox getmac

而后咱们须要获取系统的OS版本；

由于当前系统的版本不少(windows七、windows八、windows十、windows2008R二、windows2012R2……..)，因此咱们须要获取系统版本；

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
strOSVersion = objItem.Version
OSVersion = objItem.Caption
Next
GetOSVersion=OSVersion
msgbox getosversion

知足以上条件后，咱们就能够嵌套代码了，咱们须要定义两个函数，一个为：获取用户系统版本，另一个为获取用户的MAC地址。而后经过条件进行判断执行

咱们定义当获取用户版本为windows7 企业版本或者专业版本的导入指定的key，而后完成激活。而后获取为windows10企业版或者专业版导入指定的key，而后完成激活。

if GetMAC() <> "44:37-e6:20-f8:03" Then
SET Wshell=CreateObject("Wscript.Shell")
CreateObject("Wscript.Shell").Popup "Please Wait for Activing ...", 3, "MsgBox", 64
msgbox "mac address:" & GetMAC() & Chr(13) & "OSVersion:" & GetOSVersion() & Chr(13)
if GetOSVersion() = "Microsoft Winodws 7 企业版" Or GetOSVersion() = "Microsoft Winodws 7 专业版" then
Wshell.Run "slmgr.vbs /ipk xxxxx-xxxxx-xxxxx-xxxxx-xxxxx",0,True
Wshell.Run "slmgr.vbs /ato",0,True
Elseif GetOSVersion() = "Microsoft Windows 10 企业版" Or GetOSVersion() = "Microsoft Windows 10 专业版" Then
Wshell.Run "slmgr.vbs /ipk xxxxx-xxxxx-xxxxx-xxxxx-xxxxx",0,True
Wshell.Run "slmgr.vbs /ato",0,True
Elseif GetOSVersion() = "Microsoft Windows Server 2012 R2 Datacenter" Or GetOSVersion() = "Microsoft Windows Server 2012 R2 Standard" then
Wshell.Run "slmgr.vbs /ipk xxxxx-xxxxx-xxxxx-xxxxx-xxxxx",0,True
Wshell.Run "slmgr.vbs /ato",0,True
Elseif GetOSVersion() = "Microsoft Windows 10 企业版" Then
Wshell.Run "slmgr.vbs /ipk xxxxx-xxxxx-xxxxx-xxxxx-xxxxx",0,True
Wshell.Run "slmgr.vbs /ato",0,True
End If
msgbox "Active Success"
Else
msgbox "Active Failed"
End If
Function GetMAC()
GetMAC = ""
Dim mc,mo
Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled = True Then
'TracePrint "本机网卡MAC地址是: " & mo.MacAddress
GetMAC = mo.MacAddress
Exit For
End If
Next
Set mc = nothing
End Function
Function GetOSVersion()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
strOSVersion = objItem.Version
OSVersion = objItem.Caption
Next
GetOSVersion=OSVersion
End Function

咱们完成了MAK激活后，咱们若是定义使用KMS激活呢，其实使用KMS激活就简单了，咱们只须要将原来的代码从导入ipk修改成skms激活。由于咱们都知道使用kms激活的命令为：

'KMS激活命令以下：
'Slmgr.vbs /skms kmshosts.abc.com:1688
'Slmgr.vbs /ato
因此修改后的代码为：见下：
if GetMAC() <> "44:37-e6:20-f8:03" Then
SET Wshell=CreateObject("Wscript.Shell")
CreateObject("Wscript.Shell").Popup "Please Wait for Activing ...", 3, "MsgBox", 64
'msgbox "mac address:" & GetMAC() & Chr(13) & "OSVersion:" & GetOSVersion() & Chr(13)
if GetOSVersion() = "Microsoft Winodws 7 企业版" Or GetOSVersion() = "Microsoft Winodws 7 专业版" then
Wshell.Run "slmgr.vbs /skms bj-actsrv02.beyondsoft.com",0,True
Wshell.Run "slmgr.vbs /ato",0,True
Elseif GetOSVersion() = "Microsoft Windows 10 企业版" Or GetOSVersion() = "Microsoft Windows 10 专业版" Then
Wshell.Run "slmgr.vbs /skms bj-actsrv02.beyondsoft.com",0,True
msgbox "slmgr.vbs /ato"
Wshell.Run "slmgr.vbs /ato",0,True
Elseif GetOSVersion() = "Microsoft Windows 8.1 专业版" then
Wshell.Run "slmgr.vbs /skms bj-actsrv02.beyondsoft.com:1688",0,True
Wshell.Run "slmgr.vbs /ato",0,True
Elseif GetOSVersion() = "Microsoft Windows Server 2012 R2 Datacenter" Or GetOSVersion() = "Microsoft Windows Server 2012 R2 Standard" then
Wshell.Run "slmgr.vbs /skms bj-actsrv02.beyondsoft.com",0,True
Wshell.Run "slmgr.vbs /ato",0,True
End If
msgbox "Active Success"
Else
msgbox "Active Failed"
End If
Function GetMAC()
GetMAC = ""
Dim mc,mo
Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled = True Then
'TracePrint "本机网卡MAC地址是: " & mo.MacAddress
GetMAC = mo.MacAddress
Exit For
End If
Next
Set mc = nothing
End Function
Function GetOSVersion()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
strOSVersion = objItem.Version
OSVersion = objItem.Caption
Next
GetOSVersion=OSVersion
End Function

定义好后，咱们也一样可使用以前文章中介绍的访问，而后将vbs脚本使用工具封装成exe，这样就提升了安全性