WMI update an item

Hello

I included a piece of code from MS Scriptomatic but what I am looking for
is a way to update the fields using vbscript and WMI.

These are the 2 fields I wan to update with information... Can some one
help?

WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName






= &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("SERVERNAME")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_ComputerSystem", "WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "AdminPasswordStatus: " & objItem.AdminPasswordStatus
WScript.Echo "AutomaticResetBootOption: " &
objItem.AutomaticResetBootOption
WScript.Echo "AutomaticResetCapability: " &
objItem.AutomaticResetCapability
WScript.Echo "BootOptionOnLimit: " & objItem.BootOptionOnLimit
WScript.Echo "BootOptionOnWatchDog: " & objItem.BootOptionOnWatchDog
WScript.Echo "BootROMSupported: " & objItem.BootROMSupported
WScript.Echo "BootupState: " & objItem.BootupState
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ChassisBootupState: " & objItem.ChassisBootupState
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "CurrentTimeZone: " & objItem.CurrentTimeZone
WScript.Echo "DaylightInEffect: " & objItem.DaylightInEffect
WScript.Echo "Description: " & objItem.Description
WScript.Echo "Domain: " & objItem.Domain
WScript.Echo "DomainRole: " & objItem.DomainRole
WScript.Echo "EnableDaylightSavingsTime: " &
objItem.EnableDaylightSavingsTime
WScript.Echo "FrontPanelResetStatus: " & objItem.FrontPanelResetStatus
WScript.Echo "InfraredSupported: " & objItem.InfraredSupported
strInitialLoadInfo = Join(objItem.InitialLoadInfo, ",")
WScript.Echo "InitialLoadInfo: " & strInitialLoadInfo
WScript.Echo "InstallDate: " &
WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "KeyboardPasswordStatus: " &
objItem.KeyboardPasswordStatus
WScript.Echo "LastLoadInfo: " & objItem.LastLoadInfo
WScript.Echo "Manufacturer: " & objItem.Manufacturer
WScript.Echo "Model: " & objItem.Model
WScript.Echo "Name: " & objItem.Name
WScript.Echo "NameFormat: " & objItem.NameFormat
WScript.Echo "NetworkServerModeEnabled: " &
objItem.NetworkServerModeEnabled
WScript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors
strOEMLogoBitmap = Join(objItem.OEMLogoBitmap, ",")
WScript.Echo "OEMLogoBitmap: " & strOEMLogoBitmap
strOEMStringArray = Join(objItem.OEMStringArray, ",")
WScript.Echo "OEMStringArray: " & strOEMStringArray
WScript.Echo "PartOfDomain: " & objItem.PartOfDomain
WScript.Echo "PauseAfterReset: " & objItem.PauseAfterReset
strPowerManagementCapabilities =
Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " &
strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " &
objItem.PowerManagementSupported
WScript.Echo "PowerOnPasswordStatus: " & objItem.PowerOnPasswordStatus
WScript.Echo "PowerState: " & objItem.PowerState
WScript.Echo "PowerSupplyState: " & objItem.PowerSupplyState
WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
WScript.Echo "ResetCapability: " & objItem.ResetCapability
WScript.Echo "ResetCount: " & objItem.ResetCount
WScript.Echo "ResetLimit: " & objItem.ResetLimit
strRoles = Join(objItem.Roles, ",")
WScript.Echo "Roles: " & strRoles
WScript.Echo "Status: " & objItem.Status
strSupportContactDescription = Join(objItem.SupportContactDescription,
",")
WScript.Echo "SupportContactDescription: " &
strSupportContactDescription
WScript.Echo "SystemStartupDelay: " & objItem.SystemStartupDelay
strSystemStartupOptions = Join(objItem.SystemStartupOptions, ",")
WScript.Echo "SystemStartupOptions: " & strSystemStartupOptions
WScript.Echo "SystemStartupSetting: " & objItem.SystemStartupSetting
WScript.Echo "SystemType: " & objItem.SystemType
WScript.Echo "ThermalState: " & objItem.ThermalState
WScript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
WScript.Echo "UserName: " & objItem.UserName
WScript.Echo "WakeUpType: " & objItem.WakeUpType
WScript.Echo "Workgroup: " & objItem.Workgroup
WScript.Echo
Next
Next



Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" &
Mid(dtmDate,13, 2))
End Function

Richard
Thu Jan 24 20:56:23 CST 2008

Documentation for the Win32_ComputerSystem class indicates that both
properties are read-only. See this link:

http://msdn2.microsoft.com/en-us/library/aa394102.aspx

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--

"mmmm" <holycrap@hotmale.com> wrote in message
news:a66mj.3041$Ov2.931@read2.cgocable.net...
> Hello
>
> I included a piece of code from MS Scriptomatic but what I am looking
> for is a way to update the fields using vbscript and WMI.
>
> These are the 2 fields I wan to update with information... Can some one
> help?
>
> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
>
>
>
>
>
>
> = &h10
> Const wbemFlagForwardOnly = &h20
>
> arrComputers = Array("SERVERNAME")
> For Each strComputer In arrComputers
> WScript.Echo
> WScript.Echo "=========================================="
> WScript.Echo "Computer: " & strComputer
> WScript.Echo "=========================================="
>
> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> "\root\CIMV2")
> Set colItems = objWMIService.ExecQuery("SELECT * FROM
> Win32_ComputerSystem", "WQL", _
> wbemFlagReturnImmediately +
> wbemFlagForwardOnly)
>
> For Each objItem In colItems
> WScript.Echo "AdminPasswordStatus: " & objItem.AdminPasswordStatus
> WScript.Echo "AutomaticResetBootOption: " &
> objItem.AutomaticResetBootOption
> WScript.Echo "AutomaticResetCapability: " &
> objItem.AutomaticResetCapability
> WScript.Echo "BootOptionOnLimit: " & objItem.BootOptionOnLimit
> WScript.Echo "BootOptionOnWatchDog: " & objItem.BootOptionOnWatchDog
> WScript.Echo "BootROMSupported: " & objItem.BootROMSupported
> WScript.Echo "BootupState: " & objItem.BootupState
> WScript.Echo "Caption: " & objItem.Caption
> WScript.Echo "ChassisBootupState: " & objItem.ChassisBootupState
> WScript.Echo "CreationClassName: " & objItem.CreationClassName
> WScript.Echo "CurrentTimeZone: " & objItem.CurrentTimeZone
> WScript.Echo "DaylightInEffect: " & objItem.DaylightInEffect
> WScript.Echo "Description: " & objItem.Description
> WScript.Echo "Domain: " & objItem.Domain
> WScript.Echo "DomainRole: " & objItem.DomainRole
> WScript.Echo "EnableDaylightSavingsTime: " &
> objItem.EnableDaylightSavingsTime
> WScript.Echo "FrontPanelResetStatus: " &
> objItem.FrontPanelResetStatus
> WScript.Echo "InfraredSupported: " & objItem.InfraredSupported
> strInitialLoadInfo = Join(objItem.InitialLoadInfo, ",")
> WScript.Echo "InitialLoadInfo: " & strInitialLoadInfo
> WScript.Echo "InstallDate: " &
> WMIDateStringToDate(objItem.InstallDate)
> WScript.Echo "KeyboardPasswordStatus: " &
> objItem.KeyboardPasswordStatus
> WScript.Echo "LastLoadInfo: " & objItem.LastLoadInfo
> WScript.Echo "Manufacturer: " & objItem.Manufacturer
> WScript.Echo "Model: " & objItem.Model
> WScript.Echo "Name: " & objItem.Name
> WScript.Echo "NameFormat: " & objItem.NameFormat
> WScript.Echo "NetworkServerModeEnabled: " &
> objItem.NetworkServerModeEnabled
> WScript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors
> strOEMLogoBitmap = Join(objItem.OEMLogoBitmap, ",")
> WScript.Echo "OEMLogoBitmap: " & strOEMLogoBitmap
> strOEMStringArray = Join(objItem.OEMStringArray, ",")
> WScript.Echo "OEMStringArray: " & strOEMStringArray
> WScript.Echo "PartOfDomain: " & objItem.PartOfDomain
> WScript.Echo "PauseAfterReset: " & objItem.PauseAfterReset
> strPowerManagementCapabilities =
> Join(objItem.PowerManagementCapabilities, ",")
> WScript.Echo "PowerManagementCapabilities: " &
> strPowerManagementCapabilities
> WScript.Echo "PowerManagementSupported: " &
> objItem.PowerManagementSupported
> WScript.Echo "PowerOnPasswordStatus: " &
> objItem.PowerOnPasswordStatus
> WScript.Echo "PowerState: " & objItem.PowerState
> WScript.Echo "PowerSupplyState: " & objItem.PowerSupplyState
> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
> WScript.Echo "ResetCapability: " & objItem.ResetCapability
> WScript.Echo "ResetCount: " & objItem.ResetCount
> WScript.Echo "ResetLimit: " & objItem.ResetLimit
> strRoles = Join(objItem.Roles, ",")
> WScript.Echo "Roles: " & strRoles
> WScript.Echo "Status: " & objItem.Status
> strSupportContactDescription =
> Join(objItem.SupportContactDescription, ",")
> WScript.Echo "SupportContactDescription: " &
> strSupportContactDescription
> WScript.Echo "SystemStartupDelay: " & objItem.SystemStartupDelay
> strSystemStartupOptions = Join(objItem.SystemStartupOptions, ",")
> WScript.Echo "SystemStartupOptions: " & strSystemStartupOptions
> WScript.Echo "SystemStartupSetting: " & objItem.SystemStartupSetting
> WScript.Echo "SystemType: " & objItem.SystemType
> WScript.Echo "ThermalState: " & objItem.ThermalState
> WScript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
> WScript.Echo "UserName: " & objItem.UserName
> WScript.Echo "WakeUpType: " & objItem.WakeUpType
> WScript.Echo "Workgroup: " & objItem.Workgroup
> WScript.Echo
> Next
> Next
>
>
>
> Function WMIDateStringToDate(dtmDate)
> WScript.Echo dtm:
> WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
> Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
> & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" &
> Mid(dtmDate,13, 2))
> End Function
>
>

mmmm
Fri Jan 25 05:06:43 CST 2008

Thanks

Is there a way to custom Add information to WMI... what I am looking to do
is add this type of info to over 300 servers

Physical Location
Support Group
Support Contact info
Patch Group



"Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote in
message news:%23Nt9k3vXIHA.5164@TK2MSFTNGP03.phx.gbl...
> Documentation for the Win32_ComputerSystem class indicates that both
> properties are read-only. See this link:
>
> http://msdn2.microsoft.com/en-us/library/aa394102.aspx
>
> --
> Richard Mueller
> Microsoft MVP Scripting and ADSI
> Hilltop Lab - http://www.rlmueller.net
> --
>
> "mmmm" <holycrap@hotmale.com> wrote in message
> news:a66mj.3041$Ov2.931@read2.cgocable.net...
>> Hello
>>
>> I included a piece of code from MS Scriptomatic but what I am looking
>> for is a way to update the fields using vbscript and WMI.
>>
>> These are the 2 fields I wan to update with information... Can some one
>> help?
>>
>> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
>> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
>>
>>
>>
>>
>>
>>
>> = &h10
>> Const wbemFlagForwardOnly = &h20
>>
>> arrComputers = Array("SERVERNAME")
>> For Each strComputer In arrComputers
>> WScript.Echo
>> WScript.Echo "=========================================="
>> WScript.Echo "Computer: " & strComputer
>> WScript.Echo "=========================================="
>>
>> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
>> "\root\CIMV2")
>> Set colItems = objWMIService.ExecQuery("SELECT * FROM
>> Win32_ComputerSystem", "WQL", _
>> wbemFlagReturnImmediately +
>> wbemFlagForwardOnly)
>>
>> For Each objItem In colItems
>> WScript.Echo "AdminPasswordStatus: " & objItem.AdminPasswordStatus
>> WScript.Echo "AutomaticResetBootOption: " &
>> objItem.AutomaticResetBootOption
>> WScript.Echo "AutomaticResetCapability: " &
>> objItem.AutomaticResetCapability
>> WScript.Echo "BootOptionOnLimit: " & objItem.BootOptionOnLimit
>> WScript.Echo "BootOptionOnWatchDog: " & objItem.BootOptionOnWatchDog
>> WScript.Echo "BootROMSupported: " & objItem.BootROMSupported
>> WScript.Echo "BootupState: " & objItem.BootupState
>> WScript.Echo "Caption: " & objItem.Caption
>> WScript.Echo "ChassisBootupState: " & objItem.ChassisBootupState
>> WScript.Echo "CreationClassName: " & objItem.CreationClassName
>> WScript.Echo "CurrentTimeZone: " & objItem.CurrentTimeZone
>> WScript.Echo "DaylightInEffect: " & objItem.DaylightInEffect
>> WScript.Echo "Description: " & objItem.Description
>> WScript.Echo "Domain: " & objItem.Domain
>> WScript.Echo "DomainRole: " & objItem.DomainRole
>> WScript.Echo "EnableDaylightSavingsTime: " &
>> objItem.EnableDaylightSavingsTime
>> WScript.Echo "FrontPanelResetStatus: " &
>> objItem.FrontPanelResetStatus
>> WScript.Echo "InfraredSupported: " & objItem.InfraredSupported
>> strInitialLoadInfo = Join(objItem.InitialLoadInfo, ",")
>> WScript.Echo "InitialLoadInfo: " & strInitialLoadInfo
>> WScript.Echo "InstallDate: " &
>> WMIDateStringToDate(objItem.InstallDate)
>> WScript.Echo "KeyboardPasswordStatus: " &
>> objItem.KeyboardPasswordStatus
>> WScript.Echo "LastLoadInfo: " & objItem.LastLoadInfo
>> WScript.Echo "Manufacturer: " & objItem.Manufacturer
>> WScript.Echo "Model: " & objItem.Model
>> WScript.Echo "Name: " & objItem.Name
>> WScript.Echo "NameFormat: " & objItem.NameFormat
>> WScript.Echo "NetworkServerModeEnabled: " &
>> objItem.NetworkServerModeEnabled
>> WScript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors
>> strOEMLogoBitmap = Join(objItem.OEMLogoBitmap, ",")
>> WScript.Echo "OEMLogoBitmap: " & strOEMLogoBitmap
>> strOEMStringArray = Join(objItem.OEMStringArray, ",")
>> WScript.Echo "OEMStringArray: " & strOEMStringArray
>> WScript.Echo "PartOfDomain: " & objItem.PartOfDomain
>> WScript.Echo "PauseAfterReset: " & objItem.PauseAfterReset
>> strPowerManagementCapabilities =
>> Join(objItem.PowerManagementCapabilities, ",")
>> WScript.Echo "PowerManagementCapabilities: " &
>> strPowerManagementCapabilities
>> WScript.Echo "PowerManagementSupported: " &
>> objItem.PowerManagementSupported
>> WScript.Echo "PowerOnPasswordStatus: " &
>> objItem.PowerOnPasswordStatus
>> WScript.Echo "PowerState: " & objItem.PowerState
>> WScript.Echo "PowerSupplyState: " & objItem.PowerSupplyState
>> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
>> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
>> WScript.Echo "ResetCapability: " & objItem.ResetCapability
>> WScript.Echo "ResetCount: " & objItem.ResetCount
>> WScript.Echo "ResetLimit: " & objItem.ResetLimit
>> strRoles = Join(objItem.Roles, ",")
>> WScript.Echo "Roles: " & strRoles
>> WScript.Echo "Status: " & objItem.Status
>> strSupportContactDescription =
>> Join(objItem.SupportContactDescription, ",")
>> WScript.Echo "SupportContactDescription: " &
>> strSupportContactDescription
>> WScript.Echo "SystemStartupDelay: " & objItem.SystemStartupDelay
>> strSystemStartupOptions = Join(objItem.SystemStartupOptions, ",")
>> WScript.Echo "SystemStartupOptions: " & strSystemStartupOptions
>> WScript.Echo "SystemStartupSetting: " & objItem.SystemStartupSetting
>> WScript.Echo "SystemType: " & objItem.SystemType
>> WScript.Echo "ThermalState: " & objItem.ThermalState
>> WScript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
>> WScript.Echo "UserName: " & objItem.UserName
>> WScript.Echo "WakeUpType: " & objItem.WakeUpType
>> WScript.Echo "Workgroup: " & objItem.Workgroup
>> WScript.Echo
>> Next
>> Next
>>
>>
>>
>> Function WMIDateStringToDate(dtmDate)
>> WScript.Echo dtm:
>> WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
>> Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
>> & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" &
>> Mid(dtmDate,13, 2))
>> End Function
>>
>>
>
>

Jeffery
Fri Jan 25 10:09:41 CST 2008

You can't do this easily to an existing class. You might be able to create
a new class but deploying it and getting it registered on all the machines
might be a major task. Why not simply add the information you want to a new
registry key?

--
Jeffery Hicks MCSE, MCSA, MCT
Microsoft PowerShell MVP
http://www.scriptinganswers.com
http://www.powershellcommunity.org
http://jdhitsolutions.blogspot.com

Now Available: WSH and VBScript Core: TFM
Now Available: Windows PowerShell v1.0: TFM 2nd Ed.


"mmmm" <holycrap@hotmale.com> wrote in message
news:Opjmj.3073$Ov2.1279@read2.cgocable.net...
> Thanks
>
> Is there a way to custom Add information to WMI... what I am looking to do
> is add this type of info to over 300 servers
>
> Physical Location
> Support Group
> Support Contact info
> Patch Group
>
>
>
> "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote in
> message news:%23Nt9k3vXIHA.5164@TK2MSFTNGP03.phx.gbl...
>> Documentation for the Win32_ComputerSystem class indicates that both
>> properties are read-only. See this link:
>>
>> http://msdn2.microsoft.com/en-us/library/aa394102.aspx
>>
>> --
>> Richard Mueller
>> Microsoft MVP Scripting and ADSI
>> Hilltop Lab - http://www.rlmueller.net
>> --
>>
>> "mmmm" <holycrap@hotmale.com> wrote in message
>> news:a66mj.3041$Ov2.931@read2.cgocable.net...
>>> Hello
>>>
>>> I included a piece of code from MS Scriptomatic but what I am looking
>>> for is a way to update the fields using vbscript and WMI.
>>>
>>> These are the 2 fields I wan to update with information... Can some one
>>> help?
>>>
>>> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
>>> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
>>>
>>>
>>>
>>>
>>>
>>>
>>> = &h10
>>> Const wbemFlagForwardOnly = &h20
>>>
>>> arrComputers = Array("SERVERNAME")
>>> For Each strComputer In arrComputers
>>> WScript.Echo
>>> WScript.Echo "=========================================="
>>> WScript.Echo "Computer: " & strComputer
>>> WScript.Echo "=========================================="
>>>
>>> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
>>> "\root\CIMV2")
>>> Set colItems = objWMIService.ExecQuery("SELECT * FROM
>>> Win32_ComputerSystem", "WQL", _
>>> wbemFlagReturnImmediately +
>>> wbemFlagForwardOnly)
>>>
>>> For Each objItem In colItems
>>> WScript.Echo "AdminPasswordStatus: " & objItem.AdminPasswordStatus
>>> WScript.Echo "AutomaticResetBootOption: " &
>>> objItem.AutomaticResetBootOption
>>> WScript.Echo "AutomaticResetCapability: " &
>>> objItem.AutomaticResetCapability
>>> WScript.Echo "BootOptionOnLimit: " & objItem.BootOptionOnLimit
>>> WScript.Echo "BootOptionOnWatchDog: " &
>>> objItem.BootOptionOnWatchDog
>>> WScript.Echo "BootROMSupported: " & objItem.BootROMSupported
>>> WScript.Echo "BootupState: " & objItem.BootupState
>>> WScript.Echo "Caption: " & objItem.Caption
>>> WScript.Echo "ChassisBootupState: " & objItem.ChassisBootupState
>>> WScript.Echo "CreationClassName: " & objItem.CreationClassName
>>> WScript.Echo "CurrentTimeZone: " & objItem.CurrentTimeZone
>>> WScript.Echo "DaylightInEffect: " & objItem.DaylightInEffect
>>> WScript.Echo "Description: " & objItem.Description
>>> WScript.Echo "Domain: " & objItem.Domain
>>> WScript.Echo "DomainRole: " & objItem.DomainRole
>>> WScript.Echo "EnableDaylightSavingsTime: " &
>>> objItem.EnableDaylightSavingsTime
>>> WScript.Echo "FrontPanelResetStatus: " &
>>> objItem.FrontPanelResetStatus
>>> WScript.Echo "InfraredSupported: " & objItem.InfraredSupported
>>> strInitialLoadInfo = Join(objItem.InitialLoadInfo, ",")
>>> WScript.Echo "InitialLoadInfo: " & strInitialLoadInfo
>>> WScript.Echo "InstallDate: " &
>>> WMIDateStringToDate(objItem.InstallDate)
>>> WScript.Echo "KeyboardPasswordStatus: " &
>>> objItem.KeyboardPasswordStatus
>>> WScript.Echo "LastLoadInfo: " & objItem.LastLoadInfo
>>> WScript.Echo "Manufacturer: " & objItem.Manufacturer
>>> WScript.Echo "Model: " & objItem.Model
>>> WScript.Echo "Name: " & objItem.Name
>>> WScript.Echo "NameFormat: " & objItem.NameFormat
>>> WScript.Echo "NetworkServerModeEnabled: " &
>>> objItem.NetworkServerModeEnabled
>>> WScript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors
>>> strOEMLogoBitmap = Join(objItem.OEMLogoBitmap, ",")
>>> WScript.Echo "OEMLogoBitmap: " & strOEMLogoBitmap
>>> strOEMStringArray = Join(objItem.OEMStringArray, ",")
>>> WScript.Echo "OEMStringArray: " & strOEMStringArray
>>> WScript.Echo "PartOfDomain: " & objItem.PartOfDomain
>>> WScript.Echo "PauseAfterReset: " & objItem.PauseAfterReset
>>> strPowerManagementCapabilities =
>>> Join(objItem.PowerManagementCapabilities, ",")
>>> WScript.Echo "PowerManagementCapabilities: " &
>>> strPowerManagementCapabilities
>>> WScript.Echo "PowerManagementSupported: " &
>>> objItem.PowerManagementSupported
>>> WScript.Echo "PowerOnPasswordStatus: " &
>>> objItem.PowerOnPasswordStatus
>>> WScript.Echo "PowerState: " & objItem.PowerState
>>> WScript.Echo "PowerSupplyState: " & objItem.PowerSupplyState
>>> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
>>> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
>>> WScript.Echo "ResetCapability: " & objItem.ResetCapability
>>> WScript.Echo "ResetCount: " & objItem.ResetCount
>>> WScript.Echo "ResetLimit: " & objItem.ResetLimit
>>> strRoles = Join(objItem.Roles, ",")
>>> WScript.Echo "Roles: " & strRoles
>>> WScript.Echo "Status: " & objItem.Status
>>> strSupportContactDescription =
>>> Join(objItem.SupportContactDescription, ",")
>>> WScript.Echo "SupportContactDescription: " &
>>> strSupportContactDescription
>>> WScript.Echo "SystemStartupDelay: " & objItem.SystemStartupDelay
>>> strSystemStartupOptions = Join(objItem.SystemStartupOptions, ",")
>>> WScript.Echo "SystemStartupOptions: " & strSystemStartupOptions
>>> WScript.Echo "SystemStartupSetting: " &
>>> objItem.SystemStartupSetting
>>> WScript.Echo "SystemType: " & objItem.SystemType
>>> WScript.Echo "ThermalState: " & objItem.ThermalState
>>> WScript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
>>> WScript.Echo "UserName: " & objItem.UserName
>>> WScript.Echo "WakeUpType: " & objItem.WakeUpType
>>> WScript.Echo "Workgroup: " & objItem.Workgroup
>>> WScript.Echo
>>> Next
>>> Next
>>>
>>>
>>>
>>> Function WMIDateStringToDate(dtmDate)
>>> WScript.Echo dtm:
>>> WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
>>> Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
>>> & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" &
>>> Mid(dtmDate,13, 2))
>>> End Function
>>>
>>>
>>
>>
>
>

mmmm
Fri Jan 25 10:31:49 CST 2008

Thanks for the info I thought it may be easier to use WMI but doesn't sound
like it... I will use the registry idea instead of WMI Class


"Jeffery Hicks [MVP]" <jhicks@sapien.com> wrote in message
news:EC931D5A-CE36-40E0-9183-B63E1543CF71@microsoft.com...
> You can't do this easily to an existing class. You might be able to
> create a new class but deploying it and getting it registered on all the
> machines might be a major task. Why not simply add the information you
> want to a new registry key?
>
> --
> Jeffery Hicks MCSE, MCSA, MCT
> Microsoft PowerShell MVP
> http://www.scriptinganswers.com
> http://www.powershellcommunity.org
> http://jdhitsolutions.blogspot.com
>
> Now Available: WSH and VBScript Core: TFM
> Now Available: Windows PowerShell v1.0: TFM 2nd Ed.
>
>
> "mmmm" <holycrap@hotmale.com> wrote in message
> news:Opjmj.3073$Ov2.1279@read2.cgocable.net...
>> Thanks
>>
>> Is there a way to custom Add information to WMI... what I am looking to
>> do is add this type of info to over 300 servers
>>
>> Physical Location
>> Support Group
>> Support Contact info
>> Patch Group
>>
>>
>>
>> "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote in
>> message news:%23Nt9k3vXIHA.5164@TK2MSFTNGP03.phx.gbl...
>>> Documentation for the Win32_ComputerSystem class indicates that both
>>> properties are read-only. See this link:
>>>
>>> http://msdn2.microsoft.com/en-us/library/aa394102.aspx
>>>
>>> --
>>> Richard Mueller
>>> Microsoft MVP Scripting and ADSI
>>> Hilltop Lab - http://www.rlmueller.net
>>> --
>>>
>>> "mmmm" <holycrap@hotmale.com> wrote in message
>>> news:a66mj.3041$Ov2.931@read2.cgocable.net...
>>>> Hello
>>>>
>>>> I included a piece of code from MS Scriptomatic but what I am looking
>>>> for is a way to update the fields using vbscript and WMI.
>>>>
>>>> These are the 2 fields I wan to update with information... Can some one
>>>> help?
>>>>
>>>> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
>>>> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> = &h10
>>>> Const wbemFlagForwardOnly = &h20
>>>>
>>>> arrComputers = Array("SERVERNAME")
>>>> For Each strComputer In arrComputers
>>>> WScript.Echo
>>>> WScript.Echo "=========================================="
>>>> WScript.Echo "Computer: " & strComputer
>>>> WScript.Echo "=========================================="
>>>>
>>>> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
>>>> "\root\CIMV2")
>>>> Set colItems = objWMIService.ExecQuery("SELECT * FROM
>>>> Win32_ComputerSystem", "WQL", _
>>>> wbemFlagReturnImmediately +
>>>> wbemFlagForwardOnly)
>>>>
>>>> For Each objItem In colItems
>>>> WScript.Echo "AdminPasswordStatus: " & objItem.AdminPasswordStatus
>>>> WScript.Echo "AutomaticResetBootOption: " &
>>>> objItem.AutomaticResetBootOption
>>>> WScript.Echo "AutomaticResetCapability: " &
>>>> objItem.AutomaticResetCapability
>>>> WScript.Echo "BootOptionOnLimit: " & objItem.BootOptionOnLimit
>>>> WScript.Echo "BootOptionOnWatchDog: " &
>>>> objItem.BootOptionOnWatchDog
>>>> WScript.Echo "BootROMSupported: " & objItem.BootROMSupported
>>>> WScript.Echo "BootupState: " & objItem.BootupState
>>>> WScript.Echo "Caption: " & objItem.Caption
>>>> WScript.Echo "ChassisBootupState: " & objItem.ChassisBootupState
>>>> WScript.Echo "CreationClassName: " & objItem.CreationClassName
>>>> WScript.Echo "CurrentTimeZone: " & objItem.CurrentTimeZone
>>>> WScript.Echo "DaylightInEffect: " & objItem.DaylightInEffect
>>>> WScript.Echo "Description: " & objItem.Description
>>>> WScript.Echo "Domain: " & objItem.Domain
>>>> WScript.Echo "DomainRole: " & objItem.DomainRole
>>>> WScript.Echo "EnableDaylightSavingsTime: " &
>>>> objItem.EnableDaylightSavingsTime
>>>> WScript.Echo "FrontPanelResetStatus: " &
>>>> objItem.FrontPanelResetStatus
>>>> WScript.Echo "InfraredSupported: " & objItem.InfraredSupported
>>>> strInitialLoadInfo = Join(objItem.InitialLoadInfo, ",")
>>>> WScript.Echo "InitialLoadInfo: " & strInitialLoadInfo
>>>> WScript.Echo "InstallDate: " &
>>>> WMIDateStringToDate(objItem.InstallDate)
>>>> WScript.Echo "KeyboardPasswordStatus: " &
>>>> objItem.KeyboardPasswordStatus
>>>> WScript.Echo "LastLoadInfo: " & objItem.LastLoadInfo
>>>> WScript.Echo "Manufacturer: " & objItem.Manufacturer
>>>> WScript.Echo "Model: " & objItem.Model
>>>> WScript.Echo "Name: " & objItem.Name
>>>> WScript.Echo "NameFormat: " & objItem.NameFormat
>>>> WScript.Echo "NetworkServerModeEnabled: " &
>>>> objItem.NetworkServerModeEnabled
>>>> WScript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors
>>>> strOEMLogoBitmap = Join(objItem.OEMLogoBitmap, ",")
>>>> WScript.Echo "OEMLogoBitmap: " & strOEMLogoBitmap
>>>> strOEMStringArray = Join(objItem.OEMStringArray, ",")
>>>> WScript.Echo "OEMStringArray: " & strOEMStringArray
>>>> WScript.Echo "PartOfDomain: " & objItem.PartOfDomain
>>>> WScript.Echo "PauseAfterReset: " & objItem.PauseAfterReset
>>>> strPowerManagementCapabilities =
>>>> Join(objItem.PowerManagementCapabilities, ",")
>>>> WScript.Echo "PowerManagementCapabilities: " &
>>>> strPowerManagementCapabilities
>>>> WScript.Echo "PowerManagementSupported: " &
>>>> objItem.PowerManagementSupported
>>>> WScript.Echo "PowerOnPasswordStatus: " &
>>>> objItem.PowerOnPasswordStatus
>>>> WScript.Echo "PowerState: " & objItem.PowerState
>>>> WScript.Echo "PowerSupplyState: " & objItem.PowerSupplyState
>>>> WScript.Echo "PrimaryOwnerContact: " & objItem.PrimaryOwnerContact
>>>> WScript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName
>>>> WScript.Echo "ResetCapability: " & objItem.ResetCapability
>>>> WScript.Echo "ResetCount: " & objItem.ResetCount
>>>> WScript.Echo "ResetLimit: " & objItem.ResetLimit
>>>> strRoles = Join(objItem.Roles, ",")
>>>> WScript.Echo "Roles: " & strRoles
>>>> WScript.Echo "Status: " & objItem.Status
>>>> strSupportContactDescription =
>>>> Join(objItem.SupportContactDescription, ",")
>>>> WScript.Echo "SupportContactDescription: " &
>>>> strSupportContactDescription
>>>> WScript.Echo "SystemStartupDelay: " & objItem.SystemStartupDelay
>>>> strSystemStartupOptions = Join(objItem.SystemStartupOptions, ",")
>>>> WScript.Echo "SystemStartupOptions: " & strSystemStartupOptions
>>>> WScript.Echo "SystemStartupSetting: " &
>>>> objItem.SystemStartupSetting
>>>> WScript.Echo "SystemType: " & objItem.SystemType
>>>> WScript.Echo "ThermalState: " & objItem.ThermalState
>>>> WScript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory
>>>> WScript.Echo "UserName: " & objItem.UserName
>>>> WScript.Echo "WakeUpType: " & objItem.WakeUpType
>>>> WScript.Echo "Workgroup: " & objItem.Workgroup
>>>> WScript.Echo
>>>> Next
>>>> Next
>>>>
>>>>
>>>>
>>>> Function WMIDateStringToDate(dtmDate)
>>>> WScript.Echo dtm:
>>>> WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
>>>> Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
>>>> & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" &
>>>> Mid(dtmDate,13, 2))
>>>> End Function
>>>>
>>>>
>>>
>>>
>>
>>