SCCM

Mof File for LowDisk Space Event ID based on NT Event during hardware inventory

by

      //——————————- LowDisk Space Event ID ———————————— #pragma namespace("\.rootcimv2")[Union, ViewSources{"Select * FROM Win32_NTLogEvent WHERE LogFile = 'System' AND EventCode = 2013"},ViewSpaces{"\.rootcimv2"}, dynamic,provider("MS_VIEW_INSTANCE_PROVIDER")] Class NTLogEvent{     [PropertySources("LogFile"), Key] string LogFile;     [PropertySources("RecordNumber"), Key] UINT32 Recordnumber;      [PropertySources("Message")] String Message;     [PropertySources("TimeGenerated")] DateTime TimeGenerated;}; //————————– Reporting Class———————————–#pragma namespace("\.rootCIMV2SMS") [SMS_Report(TRUE), SMS_Group_Name("Installed Updates"), SMS_Class_ID("MICROSOFT|Win32_NTLogEvent|1.0") ] Class NTLogEvent: SMS_Class_Template{     [SMS_Report(TRUE), Key] String … Read more

SCCM 2007 Performance Questions whitepaper published

by

This whitepaper has been published to the Web and is available for download at: https://download.microsoft.com/download/4/b/9/4b97e9b7-7056-41ae-8fc8-dd87bc477b54/Sample%20Configurations%20and%20Common%20Performance%20Related%20Questions.pdf ——————-Thanks,https://paddymaddy.blogspot.com/

File and Print Enable

by

  Set objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile Set colServices = objPolicy.ServicesSet objService = colServices.Item(0)objService.Enabled = True——————-Thanks,https://paddymaddy.blogspot.com/

System Info OS and Service Pack Level

by

' **************************' ServerInfo.vbs' Collects OS and SP info' List of systems must be in same directory as script' Run using cscript' **************************' Name of Input File strInputFile = "Syslist.txt"' Name of Output FilestrOutputFile = "ServerInfo.csv" ' Create file system objectset objFSO = CreateObject("Scripting.FileSystemObject")' Check for Existing Output file, Create output fileIf  objFSO.FileExists(strOutputFile) Then   Wscript.echo "You … Read more

WMI Connectivity Check

by

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 = "Status" objExcel.Cells(1, 3).Value = "Error Number" objExcel.Cells(1, 4).Value = "Hex Error Number" objExcel.Cells(1, 5).Value = "Error Description"   Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine   On … Read more

Admin$ check

by

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 = "Admin Share Exists"   Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine   On Error Resume Next Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colShares = … Read more

Remote Systems Discovery Data Collection Cycle Client agent initiate

by

On Error Resume NextDim oCPAppletMgrSet oCPAppletMgr = CreateObject("CPApplet.CPAppletMgr")Dim oClientActionsSet oClientActions = oCPAppletMgr.GetClientActions()Dim oClientActionFor Each oClientAction In oClientActions If oClientAction.Name = "Discovery Data Collection Cycle" ThenoClientAction.PerformActionEnd IfIf oClientAction.Name = "Request & Evaluate Machine Policy" Then oClientAction.PerformAction End IfNext ——————-Thanks,https://paddymaddy.blogspot.com/