Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
IsLaptop
#1
http://msdn.microsoft.com/en-us/library/...S.85).aspx

How can I convert

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colChassis = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objChassis in colChassis
For Each objItem in objChassis.ChassisTypes
Wscript.Echo "Chassis Type: " & objItem
Next
Next

to QM?

Do you know a better way to create the function IsLaptop?
#2
Macro Macro1401
Code:
Copy      Help
str vbs=
;function ChassisType
;strComputer = "."
;Set objWMIService = GetObject("winmgmts:" _
;& "{impersonationLevel=impersonate}!\\" _
;& strComputer & "\root\cimv2")
;Set colChassis = objWMIService.ExecQuery _
;("Select * from Win32_SystemEnclosure")
;For Each objChassis in colChassis
;For Each objItem in objChassis.ChassisTypes
;ChassisType = objItem
;exit function
;Next
;Next
;end function
VbsAddCode vbs
out VbsFunc("ChassisType")

don't know other ways
#3
Thanks.


Forum Jump:


Users browsing this thread: 1 Guest(s)