Friday, August 14, 2009
JAI HIND JAI HIND
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
'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
Next
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"
Tuesday, August 11, 2009
Collection of Computers based on Users
Collection of Computers based on Users
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/