'Copyright SMSUtils (2005)
'Send Feedback/Suggestions to matt.broadstock@gmail.com



Option Explicit
'On Error Resume Next

Dim objWMIService, SWBemlocator, UserName, Password
Dim strSMSServer, strSMSSite, strOutputFile
Dim objFSO, objOutputFile
Dim strPackageQuery
Dim colPackages, objPackage

Const ForReading = 1, ForWriting = 2, ForAppending = 8

strOutputFile = "SMS Package_No specific share named.txt"
strSMSServer = "stl-ic-sms1"
strSMSSite = "009"
UserName = ""
Password = ""

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = objFSO.CreateTextFile(strOutputFile, ForWriting)

'Add header to output file
objOutputFile.WriteLine("PackageID" & vbTab & "PackageName")

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strSMSServer,"\root\sms\site_" & strSMSSite,UserName,Password)

strPackageQuery = "Select * from SMS_Package where ShareType='1' and PkgSourceFlag<>'1'"
'ShareType = 1 means it doesn't have a specific sharename (will use SMSPKG folder)
'PkgSourceFlag = 1 means it doesn't have source files-need to exclude these
Set colPackages = objWMIService.ExecQuery(strPackageQuery,,48)

For Each objPackage in colPackages
	'WScript.Echo objPackage.PackageID & vbTab & objPackage.Name
	objOutputFile.WriteLine(objPackage.PackageID & vbTab & objPackage.Name)
Next

WScript.Echo "SMS Package_No specific share named script complete."