Don Hite at myITforum.com

CSI-Windows VBScript UAC Function for Snooping Permissions

dhite — Wed, 17 Jun 2009 20:42:31 GMT

The CSI-Windows VBScript UAC Function for Snooping Permissions (IfUserPerms.vbs) Version 1.2 written by our pal Darwin Sanoy has been released and is available for download.

With this script you can quickly determine if your current session is capable of elevating to administrator rights AND whether the session is currently elevated. The beauty of the script is that you can first determine if you have the necessary privileges and credentials or rights to perform a task or start an executable. If your current rights are not elevated then you can take additional scripting actions to elevate (not a part of this particular sample).

Darwin developed this script because many UAC scripting solutions and samples do not take a proactive approach to examining the environment before deciding whether to attempt a privileged operation. Checking things out ahead of time allows for assured results, fewer errors and more intelligent status messages to logs or end users when the environment does not support the desired privileges.

Download 116_IfUserPerms.zip:

http://csi-windows.com/toolkit/ifuserperms

VBS Script To Send Clients Assigned And Installed Site Codes To Excel

dhite — Sat, 06 Jun 2009 17:05:30 GMT

This VBS Script will send your resources assigned and installed site codes to Excel.

VBS Script:

strServer = InputBox ("Enter Site Server Name")

strDatabase = InputBox ("Enter Three Letter Site Code")

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 = "Assigned Site"

objExcel.Cells(1, 3).Value = "Installed Site"

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =SMS_" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open _

" Select SD.Name0, A.SMS_Assigned_Sites0, I.SMS_Installed_Sites0" & _

" From v_R_System SD" & _

" Join v_RA_System_SMSAssignedSites A On SD.ResourceID = A.ResourceID" & _

" Join v_RA_System_SMSInstalledSites I On SD.ResourceID = I.ResourceID" _

, objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("Name0").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("SMS_Assigned_Sites0").Value

objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("SMS_Installed_Sites0").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

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

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Send A Specified Site Servers Roles To Excel

dhite — Sat, 06 Jun 2009 17:05:04 GMT

This VBS Script will take a remote site servers name and site code and will send the site servers roles to an Excel spreadsheet for your records.

VBS Script:

strComputer = InputBox("Enter Site Server Name")

strSiteCode = InputBox("Enter Site Code")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

objExcel.Cells(1, 2).Value = "Site Code"

objExcel.Cells(1, 3).Value = "Role Name"

Set objWMIService = GetObject("winmgmts://" & strComputer & "\root\sms\site_" & strSiteCode)

Set colItems = objWMIService.ExecQuery("Select * from SMS_SystemResourceList")

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.ServerName

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

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

intRow = intRow + 1

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Msgbox "Done"

VBS Script Send A remote Machines Windows Updates List To Excel

dhite — Sat, 06 Jun 2009 17:04:41 GMT

This VBS Script will send the Windows Updates from a specified machine name to excel.

VBS Script:

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 = "Update"

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

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

objExcel.Cells(1, 5).Value = "Source"

On Error Resume Next

Set objSession = CreateObject("Microsoft.Update.Session", strComputer)

Set objSearcher = objSession.CreateUpdateSearcher

intHistoryCount = objSearcher.GetTotalHistoryCount

Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)

For Each objEntry in colHistory

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

objExcel.Cells(intRow, 2).Value = objEntry.Title

Select Case objEntry.ResultCode

Case 0 ResultCode = "Not Started"

Case 1 ResultCode = "In Progress"

Case 2 ResultCode = "Success"

Case 3 ResultCode = "Error"

Case 4 ResultCode = "Failed"

Case 5 ResultCode = "Cancelled"

End Select

objExcel.Cells(intRow, 3).Value = ResultCode

objExcel.Cells(intRow, 4).Value = objEntry.Date

objExcel.Cells(intRow, 5).Value = objEntry.ClientApplicationID

intRow = intRow + 1

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("D1")

objRange.Sort objRange,2,,,,,,1

MsgBox "Done"

VBS Script Find SMS Services On A Remote Machine

dhite — Sat, 06 Jun 2009 17:03:34 GMT

This VBS Script will allow you to find SMS Services on a specified site server.

VBS Script:

strComputer = InputBox ("Enter Machine Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

objExcel.Cells(1, 2).Value = "Account Name"

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name like 'SMS_%'")

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.Name

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

intRow = intRow + 1

objExcel.Range("A1:B1").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 Last Hardware Scan Date Info To Excel

dhite — Thu, 12 Mar 2009 13:57:02 GMT

This VBS Script will send the following information for a specifies site server to excel: The Machine Name and whether it is Obsolete or Active and its last Hardware Scan Date.

VBS Script:

strServer = InputBox ("Enter Site Server Name")

strDatabase = InputBox ("Enter Three Letter Site Code")

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 = "Obsolete"

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

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

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =SMS_" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open _

" Select SD.Name0, SD.Obsolete0, SD.Active0," & _

" Convert(VarChar(11), WS.LastHwScan, 109)Date" & _

" From v_R_System SD" & _

" Join v_GS_WORKSTATION_STATUS WS On SD.ResourceID = WS.ResourceID" _

, objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("Name0").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("Obsolete0").Value

If objExcel.Cells(intRow, 2).Value = "1" Then

objExcel.Cells(intRow, 2).Value = "Yes"

Else

objExcel.Cells(intRow, 2).Value = "No"

End If

objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("Active0").Value

If objExcel.Cells(intRow, 3).Value = "1" Then

objExcel.Cells(intRow, 3).Value = "Yes"

Else

objExcel.Cells(intRow, 3).Value = "No"

End If

objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("Date").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

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

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Browse For A Folder And Delete All Files In It

dhite — Thu, 12 Mar 2009 13:56:11 GMT

This VBS Script will allow you to browse for a directory folder and will delete all of the files in it.

VBS Script:

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.BrowseForFolder (0, "Select The Folder To Enumerate :", (0))

If objFolder Is Nothing Then

Wscript.Quit

Else

Set objFolderItem = objFolder.Self

objPath = objFolderItem.Path

End If

Set objFso = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFso.GetFolder(objPath)

For each objFile in objFolder.Files

If objFolder.Files.Count > 0 Then

objFile.Delete True

End If

MsgBox "Done"

VBS Script To Send Machines Site Code And Domain Information From A List Of Machines To Excel

dhite — Thu, 12 Mar 2009 13:55:39 GMT

This VBS script will take a list of machine names from a text file called MachineList.Txt and will send the following information to an Excel spreadsheet taken from the “All Systems” Collection: Machine Name, Resource ID, Site Code and Domain name.

VBS Script:

On Error Resume Next

strComputer = InputBox ("Enter SMS Server Name")

strSiteCode = InputBox ("Enter Site Code")

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 = "Resource ID"

objExcel.Cells(1, 3).Value = "Site Code"

objExcel.Cells(1, 4).Value = "Domain"

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

Set objWMIService = GetObject("winmgmts://" & strComputer & "\root\sms\site_" & strSiteCode)

Set colItems = objWMIService.ExecQuery("Select * from SMS_CM_RES_COLL_SMS00001 Where Name = '" & strComputer & "'")

If Err.Number <> 0 Then

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

objExcel.Cells(intRow, 2).Value = "Not Found"

Err.Clear

End If

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.Name

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

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

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

intRow = intRow + 1

Loop

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"

Terminal Server Users VBS Script

dhite — Thu, 12 Mar 2009 13:55:04 GMT

LogonType 10 is RemoteInteractive and covers both Interactive and Remote Terminal Services sessions. This is not avalible for Windows 2000

VBS Script:

strComputer = InputBox("Enter Terminal Server Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

objExcel.Cells(1, 2).Value = "Full Name"

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

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colRts = objWMIService.ExecQuery _

("Select * from Win32_LogonSession Where LogonType = 10")

For Each objSession in colRts

Set colItems = objWMIService.ExecQuery("Associators of " _

& "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " _

& "Where AssocClass = Win32_LoggedOnUser Role = Dependent" )

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.Domain & "\" & objItem.Name

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

objExcel.Cells(intRow, 3).Value = ConvWbemTime(objSession.StartTime)

intRow = intRow + 1

Function ConvWbemTime(IntervalFormat)

sMonth = mid(IntervalFormat,5,2)

sDay = mid(IntervalFormat,7,2)

sYear = mid(IntervalFormat,1,4)

sHour = mid(IntervalFormat,9,2)

sMinutes = mid(IntervalFormat,11,2)

ConvWbemTime = sMonth & "-" & sDay & "-" & sYear & " " & sHour & ":" & sMinutes

End Function

objExcel.Range("A1:C1").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 Windows NT or Active Directory User Names To Excel

dhite — Fri, 27 Feb 2009 14:51:41 GMT

This VBS Script will send all of the NT or Active Directory (AD) domain user names to excel.

VBS Script:

strDomain = InputBox ("Enter Domain Name Or Machine Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

objExcel.Cells(1, 2).Value = "User Name"

Set colAccounts = GetObject("WinNT://" & strDomain & "")

colAccounts.Filter = Array("user")

For Each objUser In colAccounts

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

objExcel.Cells(intRow, 2).Value = objUser.Name

intRow = intRow + 1

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("B1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Send Windows NT or Active Directory Group Names To Excel

dhite — Fri, 27 Feb 2009 14:51:17 GMT

This VBS Script will send all of the NT or Active Directory (AD) domain group names to excel.

VBS Script:

strDomain = InputBox ("Enter Domain Name Or Machine Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

objExcel.Cells(1, 2).Value = "Group Name"

Set colGroups = GetObject("WinNT://" & strDomain & "")

colGroups.Filter = Array("group")

For Each objGroup In colGroups

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

objExcel.Cells(intRow, 2).Value = objGroup.Name

intRow = intRow + 1

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("B1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Add Multiple MMC 2.0 Snapins And Save It

dhite — Fri, 27 Feb 2009 14:50:53 GMT

This Script Requires MMC 2.0 and Above.

VBS Script:

Set objMMC = CreateObject("MMC20.Application")

objMMC.Show

objMMC.Document.snapins.add("Active Directory Users and Computers")

objMMC.Document.snapins.add("Active Directory Sites and Services")

objMMC.Document.snapins.add("Active Directory Domains and Trusts")

VBS Script To Add An MMC Snapin From An Input Box

dhite — Fri, 27 Feb 2009 14:50:32 GMT

This Script Requires MMC 2.0 And Above.

VBS Script:

strSnapin = InputBox("Enter Snapin Name")

Set objMMC = CreateObject("MMC20.Application")

objMMC.Show

objMMC.Document.snapins.add(strSnapin)

VBS Script To Monitor SQL Servers SQL Service

dhite — Mon, 16 Feb 2009 20:48:46 GMT

This VBS Script will allow you to monitor the SQL Server service state for machines in a text file called MachineList.Txt. If the service is stopped the color will be red.

VBS Script:

strServiceName = "MSSQLSERVER"

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 = "Results"

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name = '" & strServiceName & "'")

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.SystemName

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

If objExcel.Cells(intRow, 2).Value = "Stopped" Then

objExcel.Cells(intRow, 2).Font.ColorIndex = 3

End If

intRow = intRow + 1

loop

objExcel.Range("A1:B1").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 Clients Management Point Information To Excel

dhite — Mon, 16 Feb 2009 20:48:18 GMT

This VBS Script will take a list of machines in a text file called MachineList.Txt and will send their Management Point (MP) information to Excel

VBS Script:

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 = "Current Management Point"

objExcel.Cells(1, 3).Value = "Site Code"

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/ccm")

Set colItems = objWMIService.ExecQuery("Select * from SMS_Authority")

For Each objItem in colItems

strSiteCode = Replace(objItem.Name, "SMS:", "")

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

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

objExcel.Cells(intRow, 3).Value = strSiteCode

intRow = intRow + 1

loop

objExcel.Range("A1:C1").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 Find A Configuration Manager Collection ID For Specified Collection Name

dhite — Mon, 16 Feb 2009 20:47:54 GMT

This VBS Script will allow you to find the collection ID for a specified collection name.

VBS Script:

strComputer = InputBox ("Enter Site Server Name")

strSiteCode = InputBox ("Enter Site Code")

strName = InputBox ("Enter Collection Name")

Set objWMIService = GetObject("winmgmts://" & strComputer & "\root\sms\site_" & strSiteCode)

Set colItems = objWMIService.ExecQuery("Select * From SMS_Collection Where Name = '" & strName & "'")

For Each objItem in colItems

MsgBox "Collection ID: " & objItem.CollectionID _

& Chr(13) & "Collection Name: " & objItem.Name

VBS Script To Send Last Hardware Scan Date Information To Excel

dhite — Mon, 16 Feb 2009 20:47:38 GMT

This VBS Script will send last hardware scan information to Excel for your sites resources.

VBS Script:

strServer = InputBox ("Enter Site Server Name")

strDatabase = InputBox ("Enter Three Letter Site Code")

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 = "Resource ID"

objExcel.Cells(1, 3).Value = "Time Stamp"

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

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =SMS_" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open _

" Select SD.Name0, SD.ResourceID, WD.LastHWScan," & _

" Convert(VarChar(11), WD.LastHwScan, 109) CD " & _

" From v_R_System SD" & _

" Join v_Gs_Workstation_Status WD On SD.ResourceID = WD.ResourceID" _

, objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("Name0").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("ResourceID").Value

objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("LastHWScan").Value

objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("CD").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

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

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Send A Remote Machines Local Administrators List To Excel

dhite — Thu, 05 Feb 2009 18:56:24 GMT

VBS Script:

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 = "User Name"

Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In colGroups.Members

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

objExcel.Cells(intRow, 2).Value = objUser.Name

intRow = intRow + 1

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("B1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Send All Configuration Manager IP Subnet Boundaries To Excel

dhite — Thu, 05 Feb 2009 18:55:40 GMT

VBS Script:

strServer = InputBox ("Enter Primary Parent Site Server Name")

strDatabase = InputBox ("Enter Three Letter Site Code")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Site Code"

objExcel.Cells(1, 2).Value = "IP Subnet"

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =SMS_" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open " Select SiteCode, IpSubnet" & _

" From v_SiteBoundary_IPSubnet", objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("SiteCode").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("IpSubnet").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

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

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

SQL Server Versioning Information

dhite — Thu, 05 Feb 2009 18:55:06 GMT

Here you will find SQL Server 6.5 to SQL Server 2008 Version information to January 2009.

SQL Server 6.5

6.50.201 - SQL Server 6.5 Release To Manufacturing (RTM)

6.50.213 - SQL Server 6.5 Service Pack (SP) 1

6.50.240 - SQL Server 6.5 Service Pack (SP) 2

6.50.258 - SQL Server 6.5 Service Pack (SP) 3

6.50.281 - SQL Server 6.5 Service Pack (SP) 4

6.50.415 - SQL Server 6.5 Service Pack (SP) 5

6.50.416 - SQL Server 6.5 Service Pack (SP) 5A

SQL Server 7.0

7.00.623 - SQL Server 7.0 Release To Manufacturing (RTM)

7.00.699 - SQL Server 7.0 Service Pack (SP) 1

7.00.842 - SQL Server 7.0 Service Pack (SP) 2

7.00.961 - SQL Server 7.0 Service Pack (SP) 3

7.00.1063 - SQL Server 7.0 Service Pack (SP) 4

SQL Server 2000

8.00.194 - SQL Server 2000 Release To Manufacturing (RTM)

8.00.384 - SQL Server 2000 Service Pack (SP) 1

8.00.534 - SQL Server 2000 Service Pack (SP) 2

8.00.760 - SQL Server 2000 Service Pack (SP) 3

8.00.2039 - SQL Server 2000 Service Pack (SP) 4

SQL Server 2005

9.00.1399 - SQL Server 2005 Release To Manufacturing (RTM)

9.00.2047 - SQL Server 2005 Service Pack (SP) 1

9.00.3042 - SQL Server 2005 Service Pack (SP) 2

9.00.3042.01 - SQL Server 2005 Service Pack (SP) 2A

9.00.3054 - SQL Server 2005 KB934458 Fix

9.00.3152 - SQL Server 2005 SP2 Cumulative Update 1

9.00.3175 - SQL Server 2005 SP2 Cumulative Update 2

9.00.3186 - SQL Server 2005 SP2 Cumulative Update 3

9.00.3200 - SQL Server 2005 SP2 Cumulative Update 4

9.00.3215 - SQL Server 2005 SP2 Cumulative Update 5

9.00.3228 - SQL Server 2005 SP2 Cumulative Update 6

9.00.3233 - SQL Server 2005 QFE Security Update

9.00.3239 - SQL Server 2005 SP2 Cumulative Update 7

9.00.3257 - SQL Server 2005 SP2 Cumulative Update 8

9.00.3282 - SQL Server 2005 SP2 Cumulative Update 9

9.00.3294 - SQL Server 2005 SP2 Cumulative Update 10

9.00.3301 - SQL Server 2005 SP2 Cumulative Update 11

9.00.4035 - SQL Server 2005 SP3

9.00.4207 - SQL Server 2005 SP3 Cumulative Update 1

SQL Server 2008

10.00.1600 - SQL Server 2008 Release To Manufacturing (RTM)

10.00.1763 - SQL Server 2008 RTM Cumulative Update 1

10.00.1779 - SQL Server 2008 RTM Cumulative Update 2

10.00.1787 - SQL Server 2008 RTM Cumulative Update 3

By Request VBS Script To Delete All Files From A Specified Folder

dhite — Thu, 05 Feb 2009 18:54:40 GMT

VBS Script:

strDirectory = "C:\DirectoryFolderName"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = fso.GetFolder(strDirectory)

For Each objFile in objFolder.Files

objFile.Delete True

MsgBox "Done"

VBS Script To Send Basic Machine Information To Excel

dhite — Mon, 22 Dec 2008 15:40:53 GMT

This VBS Script will send the following information for a specified machine name to excel: Machine Name, User Name, Operating System, Build Version, Manufacturer and Model.

VBS Script:

strComputer = InputBox ("Enter Machine Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

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

objExcel.Cells(2, 1).Value = "User Name"

objExcel.Cells(3, 1).Value = "Operating System"

objExcel.Cells(4, 1).Value = "Build Version"

objExcel.Cells(5, 1).Value = "Manufacturer"

objExcel.Cells(6, 1).Value = "Model"

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objItem in colItems

objExcel.Cells(1, 2).Value = objItem.CSName

objExcel.Cells(3, 2).Value = objItem.Manufacturer

objExcel.Cells(4, 2).Value = objItem.Version & Space(1) & objItem.CSDVersion & " Build " & objItem.BuildNumber

objExcel.Cells(3, 2).Value = objItem.Caption

Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

For Each objItem in colItems

objExcel.Cells(2, 2).Value = objItem.UserName

objExcel.Cells(5, 2).Value = objItem.Manufacturer

objExcel.Cells(6, 2).Value = objItem.Model

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

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

MsgBox "Done"

VBS Script To Retrieve Machines And Their MAC Addresses From A Specified Site Server

dhite — Mon, 22 Dec 2008 15:40:32 GMT

This VBS script will retrieve machine names and their corresponding Media Access Control (MAC) addresses and send the results to an excel spreadsheet.

VBS Script:

strServer = InputBox ("Enter Site Server Name")

strDatabase = InputBox ("Enter Three Letter Site Code")

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 = "MAC Address"

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =SMS_" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open _

" Select SD.Name0,MAC.MAC_Addresses0" & _

" From v_R_System SD" & _

" Join v_RA_System_MacAddresses MAC On SD.ResourceID = MAC.ResourceID" _

, objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("Name0").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("MAC_Addresses0").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

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

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Retrieve Laptop Battery Information For A List Of Machines

dhite — Mon, 22 Dec 2008 15:40:09 GMT

This VBS script will read a text file called MachineList.Txt and will write battery information for each of the resources to an Excel spreadsheet.

VBS Script:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

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

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

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery")

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.SystemName

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

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

intRow = intRow + 1

Loop

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Retrieve BIOS Information For A List Of Machines

dhite — Mon, 22 Dec 2008 15:39:47 GMT

This VBS script will read a text file called MachineList.Txt and will write BIOS information for each of the machines to an Excel spreadsheet.

VBS Script:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

objExcel.Cells(1, 2).Value = "Manufacturer"

objExcel.Cells(1, 3).Value = "Serial Number"

objExcel.Cells(1, 4).Value = "Version"

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS")

For Each objItem in colItems

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

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

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

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

intRow = intRow + 1

Loop

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Delete Files Older Than Eight Hours

dhite — Mon, 22 Dec 2008 15:39:15 GMT

This VBS Script will delete files in a specified directory folder that are older than 8 hours.

VBS Script:

strFolder = "C:\Folder Name"

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Directory = Fso.GetFolder(strFolder)

Set Files = Directory.Files

For Each Modified in Files

If DateDiff("H", Modified.DateLastModified, Now) > 8 Then Modified.Delete

MsgBox "Done"

SQL Query To Count Installed Resources By Site

dhite — Mon, 22 Dec 2008 15:38:44 GMT

This SQL query will display the count for resources installed on a site.

SQL Query:

Select Count(SS.ResourceID) Resources,

Sc.SiteCode 'Site Code'

From v_RA_System_SMSInstalledSites SS

Join v_Site SC On SS.SMS_Installed_Sites0 = SC.SiteCode

Group by Sc.SiteCode

Order By Resources

SQL Query To Find Machine Resources With No SMS Unique Identifiers Or GUIDS

dhite — Mon, 22 Dec 2008 15:38:24 GMT

This SQL Query will list all of the machine resources that do not have an SMS Unique Identifier or GUID.

SQL Query:

Select

SD.Name0 'Machine Name'

From System_Disc SD

Join MachineIdGroupXRef ID

On SD.ItemKey = ID.MachineID

And IsNull (SD.Sms_Unique_Identifier0, '')

<> ISNULL(ID.Guid, '')

BigWig

dhite — Mon, 22 Dec 2008 15:38:02 GMT

The terms Bigwig, Big Wig or Big Wigs has its origins in 17th century France but was not popularized until it reached England in the 18th century. English nobles and others of importance such as priest, judges and lawyers wore wigs as did other professionals. The rich had more to spend on their wigs than those less fortunate. As a result their wigs contained more material and were taller or bigger hence the term Big Wig(s) came to be used to describe people of importance, wealth or those in charge.

Royal TS Freeware Terminal Services manager

dhite — Mon, 22 Dec 2008 15:37:46 GMT

Royal TS freeware is an alternative for the standard Terminal Services Snap-In that adds additional features, including connection specific display settings, stored login credentials and more. It allows you to connect to any server which supports RDP protocol, and the connections can be organized in custom categories for quick access. Additional features include console connections (Windows XP/2003 or later), custom RDP target port, display smart sizing, port redirection and more.

Overview:

http://www.code4ward.net/main/RoyalTS/Overview.aspx

Screen Shots:

http://www.code4ward.net/main/RoyalTS/Screenshots.aspx

Download:

http://www.code4ward.net/main/RoyalTS/Download.aspx