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


我们前面几面都介绍了关于vbs脚本程序来完成一些半自动化的任务,今天我们介绍一下,Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)的功能介绍,其实不管通过vbs实现什么样的功能,我们还是需要屡清思路来完成相关逻辑程序的编写及运行。我们今天既然要使用vbs脚本来完成不同版本的激活任务,而且不同版本的OS也有不同的MAK Key,所以我们需要通过获取系统的版本来完成对应的OS激活任务。同样,我们需要为用户定义激活程序,只有指定的MAC地址才能完成激活任务,所以我们逻辑思路有两个,1.获取用户MAC地址.2获取用户的系统版本(windows7、windows8、windows10、windows2008R2、windows2012R2……..)。3通过用户不同版本的OS来完成对应的OS key的导入及激活。具体见下:

首先是获取用户的MAC地址

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第1张图片

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

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第2张图片

然后我们需要获取系统的OS版本;

因为当前系统的版本很多(windows7、windows8、windows10、windows2008R2、windows2012R2……..),所以我们需要获取系统版本;

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第3张图片

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

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第4张图片

满足以上条件后,我们就可以嵌套代码了,我们需要定义两个函数,一个为:获取用户系统版本,另外一个为获取用户的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

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第5张图片

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第6张图片

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第7张图片

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第8张图片

Vbs脚本执行不同版本的Windows OS激活任务(MAK&KMS激活)_第9张图片

我们完成了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,这样就提高了安全性