vbScript to validate SMS/SCCM Sourcepaths

This Script will check the Sourcepath for each package in SMS or SCCM if it is valid.

view plainprint?

1. Siteserver = InputBox("Please enter the name of the SMS/SCCM Site Server")  
2. Sitecode = InputBox("Please enter the Site Code of the SMS/SCCM Site")  
3.    
4. Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")   
5. Dim objFile : Set objFile = objFSO.CreateTextFile("ValidatePkgSourcePath.log")  
6. Dim objSWbemLocator : Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
7. Dim objSWbemServices : Set objSWbemServices = objSWbemLocator.ConnectServer (Siteserver, "root\sms\site_" + Sitecode)  
8.   
9. Set colPackages=objSWbemServices.ExecQuery("SELECT * FROM SMS_Package")  
10.   
11. For Each objPackage In colPackages  
12.  strPackageName = objPackage.Manufacturer &" " &objPackage.Name &" " &objPackage.Version &" " &objPackage.Language  
13.  If objPackage.PkgSourcepath = "" Then  
14.   objFile.WriteLine strPackageName &" - Sourcepath is empty"  
15.  End If  
16.  If Not objFSO.FolderExists(objPackage.PkgSourcepath) Then  
17.   objFile.WriteLine strPackageName &" - Sourcepath is not valid (" &objPackage.PkgSourcepath &")"   
18.  End If  
19. Next  
20. WScript.Echo "Finished"  

Siteserver = InputBox("Please enter the name of the SMS/SCCM Site Server")
Sitecode = InputBox("Please enter the Site Code of the SMS/SCCM Site")
 
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject") 
Dim objFile : Set objFile = objFSO.CreateTextFile("ValidatePkgSourcePath.log")
Dim objSWbemLocator : Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Dim objSWbemServices : Set objSWbemServices = objSWbemLocator.ConnectServer (Siteserver, "root\sms\site_" + Sitecode)

Set colPackages=objSWbemServices.ExecQuery("SELECT * FROM SMS_Package")

For Each objPackage In colPackages
 strPackageName = objPackage.Manufacturer &" " &objPackage.Name &" " &objPackage.Version &" " &objPackage.Language
 If objPackage.PkgSourcepath = "" Then
  objFile.WriteLine strPackageName &" - Sourcepath is empty"
 End If
 If Not objFSO.FolderExists(objPackage.PkgSourcepath) Then
  objFile.WriteLine strPackageName &" - Sourcepath is not valid (" &objPackage.PkgSourcepath &")" 
 End If
Next
WScript.Echo "Finished"