ConfigMgr 2007: 8/9/09

14 August 2009

JAI HIND JAI HIND

JAI H
JAI HIN JA
JAI HIND JAI HI
JAI HIND JAI H
JAI HIND JAI HI
JAI HIND JAI
JAI HIND JAI
JAI HIND JAI
JAI HIND
JAI HIND J
JAI HIND JAI H
JAI HIND JAI HIN
JAI HIND JAI HIN JAI H
JAI HIND JAI HIND J JAI HIND J
JAI HIND JAI HIND JAI H J JAI HIND J
JAI HIND JAI HIND JAI HIND JAI JA JAI HIND JAI
JAI HIND JAI HIND JAI HIND JAI HIND J JA JAI HIND
JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI HIN
JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND J JAI HIND JAI
JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI
JAI HI JAI HIND JAI HIND JAI HIND JAI HIND JAI HIN JAI HI
JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI H
JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI JAI
JAI HIND JAI HIND JAI HIND JAI HIND JAI HIND JAI HIN J
JAI HI JAI HIND JAI HIND JAI HIND JAI HIND JAI
JAI H JAI HIND JAI HIND JAI HIND JAI HIND J
JAI HIND JAI HIND JAI HIND JAI HIND
JAI HIND JAI HIND JAI HIND JAI HIND
JAI HIND JAI HIND JAI HIND JAI
JAI HIND JAI HIND JAI HIND JAI
JAI HIND JAI HIND JAI HIND J
JAI HIND JAI HIND JAI HIND
JAI HIND JAI HIND JAI HIN
JAI HIND JAI HIND JAI HI
JAI HIND JAI HIND JA
JAI HIND JAI HIND J
JAI HIND JAI HIN
JAI HIND JAI HIN
JAI HIND JAI HI
JAI HIND JAI H
JAI HIND JAI
JAI HIND JAI
JAI HIND JAI
JAI HIND
JAI HIN
JAI HI
JAI H
JAI

JAI HIND JAI HIND

'VBS Script To Send A Remote Machines Hot Fix Information To Excel

'VBS Script To Send A Remote Machines Hot Fix Information To Excel
strComputer = InputBox ("Enter Machine Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Machine Name"

objExcel.Cells(1, 2).Value = "Hot Fix ID"

objExcel.Cells(1, 3).Value = "Description"

objExcel.Cells(1, 4).Value = "Install Date"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering Where HotFixID <> 'File 1'")

For Each objItem In colItems

objExcel.Cells(intRow, 1).Value = UCase(strComputer)

objExcel.Cells(intRow, 2).Value = objItem.HotFixId

objExcel.Cells(intRow, 3).Value = objItem.Description

objExcel.Cells(intRow, 4).Value = objItem.InstalledOn

intRow = intRow + 1

objExcel.Range("A1:D1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

MsgBox "Done"

'VBS Script To Send A Remote Machines Hot Fix Information To Excel

'VBS Script To Send A Remote Machines Hot Fix Information To Excel
strComputer = InputBox ("Enter Machine Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Machine Name"

objExcel.Cells(1, 2).Value = "Hot Fix ID"

objExcel.Cells(1, 3).Value = "Description"

objExcel.Cells(1, 4).Value = "Install Date"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering Where HotFixID <> 'File 1'")

For Each objItem In colItems

objExcel.Cells(intRow, 1).Value = UCase(strComputer)

objExcel.Cells(intRow, 2).Value = objItem.HotFixId

objExcel.Cells(intRow, 3).Value = objItem.Description

objExcel.Cells(intRow, 4).Value = objItem.InstalledOn

intRow = intRow + 1

objExcel.Range("A1:D1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

MsgBox "Done"

11 August 2009

Collection of Computers based on Users

SMS has a nice feature that allows you to create a collection based on users. That way when a users logs into a computer SMS will then run an advertisement for whatever computer they are on. The problem is maybe you want to have a collection of computers not the users. The worst flaw this the collection query I have created below and using collections based on users is that if a person logs in to another machine, for whatever reason, SMS will find them and push software to them.
That in mind, here is a collection that will take any OU group of users and create a collection of computers.

---------------------------------------
select SMS_R_System.ResourceID,SMS_R_System.ResourceType,SMS_R_System.Name,SMS_R_System.SMSUniqueIdentifier,SMS_R_System.ResourceDomainORWorkgroup,SMS_R_System.Client from SMS_R_System inner join SMS_G_System_COMPUTER_SYSTEM on SMS_G_System_COMPUTER_SYSTEM.ResourceID = SMS_R_System.ResourceId where SMS_G_System_COMPUTER_SYSTEM.UserName in (select UniqueUserName from SMS_R_User where UserOUName = "xxxx /SECURITY USERS & GROUPS" )
--------------------------------------
Windows User account and group discovery must be enabled and run on your server to use this.

How does this work. It first grabs the list of users. Then matches them to the comptuers that SMS currently sees them logged into. To change this to Last Logged in user you need to change the SMS_G_System_Computer_System to SMS_R_System.LastLogonUserName for computers. This will give you last logged in user.

"Limit to Collection" for all your computer Workstations or further limit it to based on departments

If you don't know what group then you can create a query of just (select UniqueUserName from SMS_R_User where UserOUName = "") click values until you have the value you need and paste it into the larger query.
-------------------
Thanks,
http://sccm07.blogspot.com/