[AHK V1]个人电脑信息获取

直接运行就能看到自己电脑的信息了

/*
ahk v1
获取当前电脑的名称，以及商品信息
*/
;http://msdn.microsoft.com/en-us/library/aa394105%28v=vs.85%29.aspx

str := "Caption,Description,IdentifyingNumber,Name,SKUNumber,UUID,Vendor,Version"
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2")
WQLQuery := "Select * From Win32_ComputerSystemProduct"
colSysProduct := objWMIService.ExecQuery(WQLQuery)._NewEnum
while colSysProduct[objSysProduct]
{
	loop Parse, % str,`,
		ProductInfo .= A_LoopField ": " objSysProduct[A_LoopField] "`n"
}
MsgBox % ProductInfo