Set oShell = CreateObject("WScript.Shell")

oShell.AppActivate "Configuration Manager Console"
WScript.Sleep 500

For i = 1 To 10
        oShell.SendKeys "{DOWN}"
        WScript.Sleep 250
        oShell.SendKeys "{DELETE}"
        WScript.Sleep 250
        oShell.SendKeys "{ENTER}"

        WScript.Sleep 2000
Next
MsgBox "Done!"
 

Set oLocator = CreateObject("WbemScripting.SWbemLocator")

‘ — Checking local WMI
WScript.Echo " Connect: root\CIMV2"
Set oWMIService = oLocator.ConnectServer(".", "root\CIMV2", "", "")

WScript.Echo "   Query: Select UUID from Win32_ComputerSystemProduct"
Set oWmiQuery = oWMIService.ExecQuery("Select UUID from Win32_ComputerSystemProduct")
For Each oUuid In oWmiQuery
        sUuid = oUuid.UUID
        WScript.Echo "Response: " & sUuid
        Exit For
Next
WScript.Echo ""

‘ — Figure out site code
WScript.Echo " Connect: root\sms"
Set oWMIService = oLocator.ConnectServer(".", "root\sms", "", "")

WScript.Echo "   Query: SELECT SiteCode FROM SMS_ProviderLocation WHERE ProviderForLocalSite=true"
Set oWmiQuery = oWMIService.ExecQuery("SELECT SiteCode FROM SMS_ProviderLocation WHERE ProviderForLocalSite=true")
For each currentSite in oWmiQuery
        sSccmSiteCode = currentSite.SiteCode
        WScript.Echo "Response: " & sSccmSiteCode
        Exit For
Next
WScript.Echo ""

‘ — Connect to site
WScript.Echo " Connect: root\sms\site_" & sSccmSiteCode
Set oWMIService = oLocator.ConnectServer(".", "root\sms\site_" & sSccmSiteCode, "", "")

WScript.Echo "   Query: Select Name, ResourceID FROM SMS_R_System WHERE SmbiosGuid = ‘" & sUuid & "’"
Set oWmiQuery = oWMIService.ExecQuery("Select ResourceID FROM SMS_R_System WHERE SmbiosGuid = ‘" & sUuid & "’")
For each myMachine in oWmiQuery
        WScript.Echo "Response: " & myMachine.ResourceID
        Exit For
Next

 

killProcess "TSprogressUI.exe"

Sub killProcess(sProcessToKill)
        Dim oProcesses, oProcess, oWMIService

        Set oWMIService = GetObject("winmgmts:\\.\root\CIMV2")
        Set oProcesses = oWMIService.ExecQuery("Select * from Win32_Process Where Name = ‘" & sProcessToKill & "’")
        For Each oProcess in oProcesses
                oProcess.Terminate()
        Next   
End Sub
 

‘————————————————————————————-
‘ Script to montior COM-obecjt call time
‘
‘                                         Rikard Rönnkvist / snowland.se / 2008-09-16
‘————————————————————————————-

‘Get the com+ call times
Set oTracker = CreateObject("egilh.ComTracker")
sResult = oTracker.getStatistics()
       
‘Display call times
Set oDOM = CreateObject("MSXML2.DomDocument.3.0")
oDOM.loadXML (sResult)

For Each oNode In oDOM.selectNodes("/applications/application/classes/class")
        ‘ Create performance data
        Set oPerfData = ScriptContext.CreatePerfData
        With oPerfData
                .ObjectName = "COM-Objects"
                .InstanceName = oNode.selectSingleNode("progID").Text
                .CounterName = "CallTime"
                .Value = oNode.selectSingleNode("responseTime").Text
        End With
        ScriptContext.Submit oPerfData
        Set oPerfData = Nothing
Next
 

bFound = False
Set oClients = oSMS.ExecQuery(sQuery)
For each oClient in oClients
        bFound = true
        iResourceID = oClient.ResourceID
        PXE.LogTrace "Found existing machine " & oClient.NetbiosName & " with ResourceID = " & iResourceID
        sNetBiosName = oClient.NetbiosName
        Exit For
Next
 

bFound = False
Set oClients = oSMS.ExecQuery(sQuery)
For each oClient in oClients
        If oClient.Obsolete = 1 Then
                PXE.LogTrace "Found obsolete machine " & oClient.NetbiosName & ", skipping"
        Else
                bFound = True
                iResourceID = oClient.ResourceID
                PXE.LogTrace "Found existing machine " & oClient.NetbiosName & " with ResourceID = " & iResourceID
                sNetBiosName = oClient.NetbiosName
                Exit For
        End If
Next
 

sOut = ""
For i = 0 to WScript.Arguments.Count-1
        sOut = sOut & "Arg " & i+1 & " : " & Wscript.Arguments(i) & vbCrLf
Next
MsgBox sOut
 

‘ //***************************************************************************
‘ // ***** Script Header *****
‘ //
‘ // Solution:  Microsoft Deployment Toolkit
‘ // File:      PXEFilter.vbs
‘ //
‘ // Purpose:   Decide what needs to be done for each PXE requests received
‘ //            by WDS.  If not present in the ConfigMgr database, add it.
‘ //
‘ // Usage:     (loaded automatically by Microsoft.BDD.PXEFilter DLL)
‘ //
‘ // Microsoft Solution Version:  4.1.501
‘ // Microsoft Script Version:    4.1.501
‘ // Customer Build Version:      1.0.0
‘ // Customer Script Version:     1.0.0
‘ //
‘ // Microsoft History:
‘ // 4.0.501 MTN  02/19/2008  Added header, additional logging, advertisement
‘ //                          verification for every request.
‘ //
‘ // Customer History:
‘ //
‘ // ***** End Header *****
‘ //***************************************************************************

‘//—————————————————————————-
‘//
‘//  Set global variables, used by the ZTIProcess function below.  (Note that
‘//  any changes to this script will require restarting the WDS service, since
‘//  the script is only loaded once and kept in memory as long as the service
‘//  is running.)
‘//
‘//  If ConfigMgr is running on the same server as WDS, the sProviderServer
‘//  value can be left blank and the sUsername and sPassword values must be
‘//  blank.
‘//—————————————————————————-

Option Explicit

Dim sProviderServer
Dim sSiteCode
Dim sNamespace
Dim sUsername
Dim sPassword
Dim sCollection

sProviderServer = ""
sSiteCode = "ABC"
sNamespace = "root\sms\site_" & sSiteCode
sUsername = ""
sPassword = ""
sCollection = "ABC00004"   ‘ This must be a collection ID, not a collection name

‘//—————————————————————————-
‘//  Main routine
‘//—————————————————————————-

ZTIProcess

Function ZTIProcess

        Dim sMacAddress
        Dim sIPAddress
        Dim sUUID
        Dim sNetBiosName
        Dim oLocator
        Dim oSMS
        Dim sQuery
        Dim bFound
        Dim iResourceID
        Dim re
        Dim oSite
        Dim oParams
        Dim oResult
        Dim oLastError
        Dim oClients
        Dim oClient
        Dim oCollection
        Dim oNewRule
        Dim oAdvertisement
        Dim bTrying
        Dim sAdvert
        Dim i

        ‘ Initialization

        sMacAddress = PXE.MacAddress
        sIPAddress = PXE.IPAddress
        sUUID = PXE.UUID

        Set re = New RegExp
        re.Pattern = ":"
        re.Global = true
        sNetBiosName = "MAC" & re.Replace(sMacAddress, "")

        ‘ Clear invalid UUID values

        If sUUID = "00000000-0000-0000-0000-000000000000" or sUUID = "FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF" then
                sUUID = ""
        End if

        ‘ Log details

        PXE.LogTrace "Processing request from MAC address = " & sMacAddress & ", IP address = " & sIPAddress & ", UUID = " & sUUID

        ‘//—————————————————————————-
        ‘//  Filter requests.  This may need to be customized if you only want some
        ‘//  network segments to be supported.
        ‘//—————————————————————————-

        ‘ Ignore ConfigMgr "ping" requests

        If PXE.IPAddress = "127.0.0.1" or PXE.MacAddress = "FF:FF:FF:FF:FF:FF" then
                PXE.LogTrace "Ignoring ConfigMgr ping request"
                Exit Function
        End if

        ‘//—————————————————————————-
        ‘//  Verify the computer is known to ConfigMgr
        ‘//—————————————————————————-

        ‘ Connect to the SMS provider

        Set oLocator = CreateObject("WbemScripting.SWbemLocator")
        Set oSMS = oLocator.ConnectServer(sProviderServer, sNamespace, sUsername, sPassword)

        ‘ Build the query

        sQuery = "SELECT * FROM SMS_R_System WHERE MacAddresses = ‘" & sMacAddress & "’"
        If sUUID <> "" then
                sQuery = sQuery & " OR SMBIOSGUID = ‘" & sUUID & "’"
        End if

        ‘ Process the query

        bFound = False
        Set oClients = oSMS.ExecQuery(sQuery)
        For each oClient in oClients
                bFound = true
                iResourceID = oClient.ResourceID
                PXE.LogTrace "Found existing machine " & oClient.NetbiosName & " with ResourceID = " & iResourceID
                sNetBiosName = oClient.NetbiosName
                Exit For
        Next

        ‘//—————————————————————————-
        ‘//  If necessary, add the computer to the ConfigMgr database
        ‘//—————————————————————————-

        If not bFound then

                PXE.LogTrace "Could not find machine with MAC address ‘" & sMacAddress & "’ or SMBIOS UUID ‘" & sUUID & "’."

                ‘ Add the computer

                Set oSite = oSMS.Get("SMS_Site")
                Set oParams = oSite.Methods_.Item("ImportMachineEntry").inParameters.SpawnInstance_()
                oParams.NetbiosName = sNetBiosName
                oParams.SMBIOSGUID = sUUID
                oParams.MACAddress = sMacAddress
                oParams.OverwriteExistingRecord = false

                On Error Resume Next
                Set oResult = oSite.ExecMethod_("ImportMachineEntry", oParams)
                If Err then
                        PXE.LogTrace "Error importing machine entry: " & Err.Description & " (" & Err.Number & ")"
                        Set oLastError = CreateObject("WbemScripting.SWbemLastError")
                        PXE.LogTrace "Last WMI error: " & oLastError.Description
                        Exit Function
                End if
                On Error Goto 0

                iResourceID = oResult.ResourceID
                PXE.LogTrace "Added new machine with ResourceID = " & iResourceID

        End if

        ‘//—————————————————————————-
        ‘//  Check if the computer is a member of the specified collection
        ‘//—————————————————————————-

        If bFound then

                ‘ Build the query

                sQuery = "SELECT * FROM SMS_CM_RES_COLL_" & sCollection & " WHERE ResourceID = " & iResourceId

                ‘ Process the query

                bFound = False
                Set oClients = oSMS.ExecQuery(sQuery)
                For each oClient in oClients
                        bFound = true
                        PXE.LogTrace "Machine is already in collection " & sCollection
                        Exit For
                Next

        End If

        ‘//—————————————————————————-
        ‘//  If necessary, add the computer to the specified collection
        ‘//—————————————————————————-

        If not bFound then

                ‘ Add the computer to the specified collection

                On Error Resume Next
                Set oCollection = oSMS.Get("SMS_Collection.CollectionID=’" & sCollection & "’")
                If Err then
                        PXE.LogTrace "Error retrieving collection " & sCollection & ": " & Err.Description & " (" & Err.Number & ")"
                        Set oLastError = CreateObject("WbemScripting.SWbemLastError")
                        PXE.LogTrace "Last WMI error: " & oLastError.Description
                        Exit Function
                End if
                On Error Goto 0

       
                Set oNewRule = oSMS.Get("SMS_CollectionRuleDirect").SpawnInstance_()
                oNewRule.ResourceClassName = "SMS_R_System"
                oNewRule.RuleName = sNetBiosName
                oNewRule.ResourceID = iResourceID

                On Error Resume Next
                oCollection.AddMembershipRule oNewRule
                If Err then
                        PXE.LogTrace "Error adding membership rule to " & sCollection & ": " & Err.Description & " (" & Err.Number & ")"
                        Set oLastError = CreateObject("WbemScripting.SWbemLastError")
                        PXE.LogTrace "Last WMI error: " & oLastError.Description
                        Exit Function
                End if
                On Error Goto 0
                PXE.LogTrace "Added new membership rule to collection " & sCollection

        End if

        ‘//—————————————————————————-
        ‘//  Wait until an advertisement is seen.
        ‘//—————————————————————————-

        ‘ Check for the advertisements

        Set oAdvertisement = oSMS.Get("SMS_Advertisement")
        i = 0
        bTrying = True
        Do While bTrying

                Set oParams = oAdvertisement.Methods_("GetAdvertisements").inParameters.SpawnInstance_()
                oParams.ResourceID = iResourceID

                Set oResult = oAdvertisement.ExecMethod_("GetAdvertisements", oParams)
                For each sAdvert in oResult.AdvertisementIDs
                        PXE.LogTrace "Found advertisement " & sAdvert
                        bTrying = False
                Next

                i = i + 1
                If bTrying and i > 10 then
                        PXE.LogTrace "Giving up after 30 seconds of checking for new advertisements."
                        bTrying = False
                End if

                PXE.Sleep 3000

        Loop

        PXE.LogTrace "Exiting PXEFilter.vbs"

End Function
 

‘————————————————————————————-
‘ Script to montior nof files in one folder
‘
‘                                         Rikard Ronnkvist / snowland.se / 2007-11-30
‘————————————————————————————-

Dim oFSO, oFolder, oFile, oPerfData
Dim folderName, perfData

Set oParams = ScriptContext.Parameters
folderName      = oParams.get("folderName")             ‘ "C:\Path"
Set oParams = Nothing

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(folderName)
Set oFile = oFolder.Files
perfData = oFile.Count
Set oFile = Nothing
Set oFolder = Nothing
Set oFSO = Nothing

Set oPerfData = ScriptContext.CreatePerfData
With oPerfData
        .ObjectName = cPerfObject
        .InstanceName = folderName
        .CounterName = cPerfCounter
        .Value = perfData
End With
ScriptContext.Submit oPerfData
Set oPerfData = Nothing
 

‘————————————————————————————-
‘ Script to write random perf-data
‘
‘                                         Rikard Rönnkvist / snowland.se / 2007-10-24
‘————————————————————————————-
‘ — Set up variables and objects
Option Explicit
Dim iMinRnd, iMaxRnd, perfData
Dim oArgs, oAPI, oBag

‘ — Get parameters
Set oArgs = WScript.Arguments
iMinRnd = Int(oArgs.Item(0))
iMaxRnd = Int(oArgs.Item(1))
Set oArgs = Nothing

‘ — Generate random number
Randomize
perfData = Int((iMaxRnd - iMinRnd + 1) * Rnd + iMinRnd)

‘ — Create properies in SCOM
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()

oBag.AddValue "minValue", iMinRnd
oBag.AddValue "maxValue", iMaxRnd
oBag.AddValue "Perfdata", perfData
oAPI.AddItem(oBag)
oAPI.ReturnItems

Set oAPI = Nothing
Set oBag = Nothing