SCCM / SMS VBScript

VB Script Drive Space Check on list of System

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 = "Drive" objExcel.Cells(1, 3).Value = "Total Size" objExcel.Cells(1, 4).Value = "Used Space" objExcel.Cells(1, 5).Value = "Free Space" objExcel.Cells(1, 6).Value = "Free Space Percentage"   Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("MachineList.txt", 1)   … Read more

vb script To Clear SCCM / SMS CCM / Cache Folder

by

To Clear SCCM / SMS CCM / Cache Folder     ' Script to Clear SMS cache files on error resume next dim oUIResManager dim oCache dim oCacheElement dim oCacheElements set oUIResManager = createobject("UIResource.UIResourceMgr") if oUIResManager is nothing then '      wscript.echo "Couldn't create Resource Manager – quitting"      wscript.quit end if set oCache=oUIResManager.GetCacheInfo() if oCache … Read more

SMS / SCCM Cleint health find Script

by

here is the Batch file script for SCCM / SMS Clients health along with Last hardware scan report sent time and lastheartbeat time stamp it will show you in the command window this will help you to know the status of Client agent.   ==================================================================================== @echo off@echo Client Version  Last Hardware Inventory  Hours Since Last HINVosql.exe -S … Read more

SCCM Client Installation Script:– batch file program

by

SCCM Client Installation Script:–   here is my SCCM Client Installation batch file script.   ================================================================================================================================================================================ ECHO *********** %1 runing X copy kil.exe xcopy /y kill.exe %1admin$ psexec %1 -c  kill.exe "kill.exe ccmexec.exe" ECHO *********** %1 Copy dependent files to client admin$ xcopy /y ccmsetup.exe %1admin$ ECHO *********** %1 Uninstall SCCM Cleint psexec %1 -c  kill.exe … Read more

SCCM Client SUP registry Value Check Script

by

To find SCCM Client have the SUP server Registry key value status   This script will check Weather the Client system is scanning properly with SUP server or not ============================================================================================================================================================================================================================================================ On Error Resume NextConst HKEY_LOCAL_MACHINE = &H80000002 Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine Set objRegistry = … Read more

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