Solved

Help needed with script

Posted on 2008-06-12
7
332 Views
Last Modified: 2010-04-21
Hi there guys,

I have made some code in VB to make a fast report on a customer server. I would like to add memory information and cpu usage (suggestions?)

The bif question, i run this script from the Scriptomagic tool from scripting guys, but how can i run this from a file on windows with HTML output?

And how can i create a code to view critical en warnings from the event viewer from the last 2 weeks?

Thanks in advance!
On Error Resume Next
 

Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20
 

arrComputers = Array(".")

For Each strComputer In arrComputers

   WScript.Echo

   WScript.Echo "=========================================="

   WScript.Echo "<b>JMS</b>: " & "Checklist"

   WScript.Echo "=========================================="

WScript.Echo "<b>Informatie:</b>"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems

WScript.Echo"Klant: " & objItem.Organization

next

WScript.Echo"Datum: " & (FormatDateTime(Date(),1))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems

WScript.Echo"Server: " & objItem.CSName

next

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 

Set IPConfigSet = objWMIService.ExecQuery _

    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

 

For Each IPConfig in IPConfigSet

    If Not IsNull(IPConfig.IPAddress) Then 

        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

            WScript.Echo "IP adres: "& IPConfig.IPAddress(i)

        Next

    End If	

Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems

      WScript.Echo "OS: " & objItem.Caption

Next

Set oWMI = GetObject("winmgmts://./root/cimv2")

Set cI = oWMI.ExecQuery("Select * from Win32_OperatingSystem", , 48)

For Each oI in cI

	Dim sY, sM, sD, sH, sN, sS, dU, sT, iD, iH, iM, iSS

	'yyyymmddHHMMSS

	sY = Left(oI.LastBootUpTime,4)

	sM = Mid(oI.LastBootUpTime, 5, 2)

	sD = Mid(oI.LastBootUpTime, 7, 2)

	sH = Mid(oI.LastBootUpTime, 9, 2)

	sN = Mid(oI.LastBootUpTime,11, 2)

	sS = Mid(oI.LastBootUpTime,13, 2)

	dU = DateSerial(sY, sM, sD) + TimeSerial(sH, sN, sS)

	iM = DateDiff("n", dU, Now)

	iD = iM \ 1440

	iM = iM - (iD * 1440)

	iH = iM \ 60

	iM = iM - (iH * 60)

Next

WScript.Echo "Laatste boot: " & iD & " dagen, " & iH & " uren en " & iM & " minuten"

WScript.Echo"<b>Schijfbeheer:</b>"

Const HARD_DISK = 3

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _

    ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
 

For Each objDisk in colDisks

    Wscript.Echo "Partitie: "& objDisk.DeviceID       

    Wscript.Echo "Vrije disk ruimte: "& objDisk.FreeSpace

Next	
 

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _

    ("Select * from Win32_LogicalDisk Where DriveType = 3")

For Each objDisk in colDisks

    intFreeSpace = objDisk.FreeSpace

    intTotalSpace = objDisk.Size

    pctFreeSpace = intFreeSpace / intTotalSpace

    Wscript.Echo objDisk.DeviceID, FormatPercent(pctFreeSpace)

Next
 

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
 

WScript.Echo"<b>Processor:</b>"

   For Each objItem In colItems

            WScript.Echo "Processor: " & objItem.Name

            WScript.Echo

   Next

Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PageFileSetting", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

WScript.Echo"<b>Pagefile:</b>"

   For Each objItem In colItems

      WScript.Echo "Grootte: " & objItem.InitialSize

      WScript.Echo "Maximumgrootte: " & objItem.MaximumSize

      WScript.Echo "Locatie: " & objItem.Name

      WScript.Echo

   Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

WScript.Echo"<b>Operating System:</b>"

   For Each objItem In colItems

      WScript.Echo "Opstartschijf: " & objItem.BootDevice

      WScript.Echo "Bouwnummer: " & objItem.BuildNumber

      WScript.Echo "Operating System: " & objItem.Caption

      WScript.Echo "Service Pack: " & objItem.CSDVersion

      WScript.Echo "Computernaam: " & objItem.CSName

      WScript.Echo "Installatie Datum: " & WMIDateStringToDate(objItem.InstallDate)

      WScript.Echo "Bouwer: " & objItem.Manufacturer

      WScript.Echo "OS Locatie: " & objItem.Name

      WScript.Echo "Bedrijf: " & objItem.Organization

      WScript.Echo "Geregistreerd: " & objItem.RegisteredUser

      WScript.Echo "Serienummer: " & objItem.SerialNumber

      WScript.Echo "Versie: " & objItem.Version

      WScript.Echo "Windows Directory: " & objItem.WindowsDirectory

      WScript.Echo

   Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_MappedLogicalDisk", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
 

WScript.Echo" "

WScript.Echo"<b>Mappings:</b> "    

For Each objItem In colItems

       WScript.Echo "Drive: " & objItem.Caption

      WScript.Echo "Bestandssysteem: " & objItem.FileSystem

      WScript.Echo "Vrije ruimte: " & objItem.FreeSpace

      WScript.Echo "Doel: " & objItem.ProviderName

      WScript.Echo "Grootte: " & objItem.Size

      WScript.Echo "Drive naam: " & objItem.VolumeName

      WScript.Echo

   Next
 

Function WMIDateStringToDate(dtmDate)

WScript.Echo dtm: 

	WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _

	Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _

	& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))

End Function

Open in new window

0
Comment
Question by:Dutchict
  • 4
  • 3
7 Comments
 
LVL 65

Expert Comment

by:RobSampson
Comment Utility
Um, that's a lot of changes....can we just go with the most important part for now?  The rest might be best posted in new questions as we go along....

Rob.
0
 

Author Comment

by:Dutchict
Comment Utility
RobSampson, thanks for your reaction. Important is the HTML output. For the memory i found some samples myself, i guess i can find cpu to. My biggest problem is to get HTML output. If that is running i can create a *.exe from this script and place the script on the customer machine.
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
Comment Utility
OK, this is pretty basic, but try this.

Regards,

Rob.
On Error Resume Next

 

Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20

 

arrComputers = Array(".")

For Each strComputer In arrComputers

   strHTML = strHTML & VbCrLf & "<br>"

   strHTML = strHTML & VbCrLf & "<br>=========================================="

   strHTML = strHTML & VbCrLf & "<br><b>JMS</b>: " & "Checklist"

   strHTML = strHTML & VbCrLf & "<br>=========================================="

strHTML = strHTML & VbCrLf & "<br><b>Informatie:</b>"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems

strHTML = strHTML & VbCrLf & "<br><br>Klant: " & objItem.Organization

next

strHTML = strHTML & VbCrLf & "<br><br>Datum: " & (FormatDateTime(Date(),1))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems

strHTML = strHTML & VbCrLf & "<br><br>Server: " & objItem.CSName

next

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 

Set IPConfigSet = objWMIService.ExecQuery _

    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

 

For Each IPConfig in IPConfigSet

    If Not IsNull(IPConfig.IPAddress) Then 

        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

            strHTML = strHTML & VbCrLf & "<br>IP adres: "& IPConfig.IPAddress(i)

        Next

    End If	

Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems

      strHTML = strHTML & VbCrLf & "<br>OS: " & objItem.Caption

Next

Set oWMI = GetObject("winmgmts://./root/cimv2")

Set cI = oWMI.ExecQuery("Select * from Win32_OperatingSystem", , 48)

For Each oI in cI

	Dim sY, sM, sD, sH, sN, sS, dU, sT, iD, iH, iM, iSS

	'yyyymmddHHMMSS

	sY = Left(oI.LastBootUpTime,4)

	sM = Mid(oI.LastBootUpTime, 5, 2)

	sD = Mid(oI.LastBootUpTime, 7, 2)

	sH = Mid(oI.LastBootUpTime, 9, 2)

	sN = Mid(oI.LastBootUpTime,11, 2)

	sS = Mid(oI.LastBootUpTime,13, 2)

	dU = DateSerial(sY, sM, sD) + TimeSerial(sH, sN, sS)

	iM = DateDiff("n", dU, Now)

	iD = iM \ 1440

	iM = iM - (iD * 1440)

	iH = iM \ 60

	iM = iM - (iH * 60)

Next

strHTML = strHTML & VbCrLf & "<br>Laatste boot: " & iD & " dagen, " & iH & " uren en " & iM & " minuten"

strHTML = strHTML & VbCrLf & "<br><br><b>Schijfbeheer:</b>"

Const HARD_DISK = 3

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _

    ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")

 

For Each objDisk in colDisks

    strHTML = strHTML & VbCrLf & "<br>Partitie: "& objDisk.DeviceID       

    strHTML = strHTML & VbCrLf & "<br>Vrije disk ruimte: "& objDisk.FreeSpace

Next	

 

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _

    ("Select * from Win32_LogicalDisk Where DriveType = 3")

For Each objDisk in colDisks

    intFreeSpace = objDisk.FreeSpace

    intTotalSpace = objDisk.Size

    pctFreeSpace = intFreeSpace / intTotalSpace

    strHTML = strHTML & vbCrLf & objDisk.DeviceID & " " & FormatPercent(pctFreeSpace)

Next

 

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

 

strHTML = strHTML & VbCrLf & "<br><br><b>Processor:</b>"

   For Each objItem In colItems

            strHTML = strHTML & VbCrLf & "<br>Processor: " & objItem.Name

            strHTML = strHTML & VbCrLf & "<br><br>"

   Next

Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PageFileSetting", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

strHTML = strHTML & VbCrLf & "<br><br><b>Pagefile:</b>"

   For Each objItem In colItems

      strHTML = strHTML & VbCrLf & "<br>Grootte: " & objItem.InitialSize

      strHTML = strHTML & VbCrLf & "<br>Maximumgrootte: " & objItem.MaximumSize

      strHTML = strHTML & VbCrLf & "<br>Locatie: " & objItem.Name

      strHTML = strHTML & VbCrLf & "<br><br>"

   Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

strHTML = strHTML & VbCrLf & "<br><br><b>Operating System:</b>"

   For Each objItem In colItems

      strHTML = strHTML & VbCrLf & "<br>Opstartschijf: " & objItem.BootDevice

      strHTML = strHTML & VbCrLf & "<br>Bouwnummer: " & objItem.BuildNumber

      strHTML = strHTML & VbCrLf & "<br>Operating System: " & objItem.Caption

      strHTML = strHTML & VbCrLf & "<br>Service Pack: " & objItem.CSDVersion

      strHTML = strHTML & VbCrLf & "<br>Computernaam: " & objItem.CSName

      strHTML = strHTML & VbCrLf & "<br>Installatie Datum: " & WMIDateStringToDate(objItem.InstallDate)

      strHTML = strHTML & VbCrLf & "<br>Bouwer: " & objItem.Manufacturer

      strHTML = strHTML & VbCrLf & "<br>OS Locatie: " & objItem.Name

      strHTML = strHTML & VbCrLf & "<br>Bedrijf: " & objItem.Organization

      strHTML = strHTML & VbCrLf & "<br>Geregistreerd: " & objItem.RegisteredUser

      strHTML = strHTML & VbCrLf & "<br>Serienummer: " & objItem.SerialNumber

      strHTML = strHTML & VbCrLf & "<br>Versie: " & objItem.Version

      strHTML = strHTML & VbCrLf & "<br>Windows Directory: " & objItem.WindowsDirectory

      strHTML = strHTML & VbCrLf & "<br><br>"

   Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_MappedLogicalDisk", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

 

strHTML = strHTML & VbCrLf & "<br><br><b>Mappings:</b> "    

For Each objItem In colItems

       strHTML = strHTML & VbCrLf & "<br>Drive: " & objItem.Caption

      strHTML = strHTML & VbCrLf & "<br>Bestandssysteem: " & objItem.FileSystem

      strHTML = strHTML & VbCrLf & "<br>Vrije ruimte: " & objItem.FreeSpace

      strHTML = strHTML & VbCrLf & "<br>Doel: " & objItem.ProviderName

      strHTML = strHTML & VbCrLf & "<br>Grootte: " & objItem.Size

      strHTML = strHTML & VbCrLf & "<br>Drive naam: " & objItem.VolumeName

      strHTML = strHTML & VbCrLf & "<br><br>"

Next
 

Set objFSO = CreateObject("Scripting.FileSystemObject")

strHTMLFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "HTMLPage.html"

Set objHTMLFile = objFSO.CreateTextFile(strHTMLFile, True)

objHTMLFile.WriteLine "<HTML>"

objHTMLFile.WriteLine "<BODY>"

objHTMLFile.WriteLine strHTML

objHTMLFile.WriteLine "</BODY>"

objHTMLFile.WriteLine "</HTML>"

objHTMLFile.Close

Set objIE = CreateObject("InternetExplorer.Application")

objIE.visible = True

objIE.Navigate2 strHTMLFile
 

Function WMIDateStringToDate(dtmDate)

	WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _

	Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _

	& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))

End Function

Open in new window

0
Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

 

Author Comment

by:Dutchict
Comment Utility
Yes, it works great! So no more Wscript.Echo but strHTML, i award you the promised points, thanks again!
0
 

Author Closing Comment

by:Dutchict
Comment Utility
Solution is working great, i do have to trie to inderstand this method to add more scripts.
0
 
LVL 65

Expert Comment

by:RobSampson
Comment Utility
Yes, that's right.  You basically just need to store the HTML code in a variable as you go along with your output (you could write each line directly to the file, but I find this cleaner).

Then at the end of the script, you just write the HTML code to a file.

Thanks for the grade.  Let me know if you post any more related questions to this.  I will try to help out.  Just post a link to that question here.

Rob.
0
 

Author Comment

by:Dutchict
Comment Utility
Hi, well, i have the same trouble to another script, only the change wscript.echo to strhtml and place it into the other file woudnt help..
' Search for Software Updates
 
 

Set objSearcher = CreateObject("Microsoft.Update.Searcher")

Set objResults = objSearcher.Search("Type='Software'")

Set colUpdates = objResults.Updates
 

For i = 0 to colUpdates.Count - 1

    Wscript.Echo "Title: " & colUpdates.Item(i).Title

    Wscript.Echo "Autoselect on Web sites: " & _

        colUpdates.Item(i).AutoSelectOnWebSites
 

    For Each strUpdate in colUpdates.Item(i).BundledUpdates

        Wscript.Echo "Bundled update: " & strUpdate

    Next

    Wscript.Echo "Can require source: " & colUpdates.Item(i).CanRequireSource

    Set objCategories = colUpdates.Item(i).Categories
 

    For z = 0 to objCategories.Count - 1

        Wscript.Echo "Category name: " & objCategories.Item(z).Name

        Wscript.Echo "Category ID: " & objCategories.Item(z).CategoryID

        For Each strChild in objCategories.Item(z).Children

            Wscript.Echo "Child category: " & strChild

        Next

        Wscript.Echo "Category description: " & _

            objCategories.Item(z).Description

        Wscript.Echo "Category order: " & objCategories.Item(z).Order

        Wscript.Echo "Category type: " & objCategories.Item(z).Type

    Next
 

    Wscript.Echo "Deadline: " & colUpdates.Item(i).Deadline

    Wscript.Echo "Delta compressed content available: " & _

        colUpdates.Item(i).DeltaCompressedContentAvailable

    Wscript.Echo "Delta compressed content preferred: " & _

        colUpdates.Item(i).DeltaCompressedContentPreferred

    Wscript.Echo "Description: " & colUpdates.Item(i).Description

    Wscript.Echo "EULA accepted: " & colUpdates.Item(i).EULAAccepted

    Wscript.Echo "EULA text: " & colUpdates.Item(i).EULAText

    Wscript.Echo "Handler ID: " & colUpdates.Item(i).HandlerID
 

    Set objIdentity = colUpdates.Item(i).Identity

    Wscript.Echo "Revision number: " & objIdentity.RevisionNumber

    Wscript.Echo "Update ID: " & objIdentity.UpdateID
 

    Set objInstallationBehavior = colUpdates.Item(i).InstallationBehavior

    Wscript.Echo "Can request user input: " & _

        objInstallationBehavior.CanRequestUserInput

    Wscript.Echo "Impact: " & objInstallationBehavior.Impact

    Wscript.Echo "Reboot behavior: " & objInstallationBehavior.RebootBehavior

    Wscript.Echo "Requires network connectivity: " & _

        objInstallationBehavior.RequiresNetworkConnectivity

    Wscript.Echo "Is beta: " & colUpdates.Item(i).IsBeta

    Wscript.Echo "Is hidden: " & colUpdates.Item(i).IsHidden

    Wscript.Echo "Is installed: " & colUpdates.Item(i).IsInstalled

    Wscript.Echo "Is mandatory: " & colUpdates.Item(i).IsMandatory

    Wscript.Echo "Is uninstallable: " & colUpdates.Item(i).IsUninstallable
 

    For Each strLanguage in colUpdates.Item(i).Languages

        Wscript.Echo "Supported language: " & strLanguage

    Next
 

    Wscript.Echo "Last deployment change time: " & _

        colUpdates.Item(i).LastDeploymentChangeTime

    Wscript.Echo "Maximum download size: " & colUpdates.Item(i).MaxDownloadSize

    Wscript.Echo "Minimum download size: " & colUpdates.Item(i).MinDownloadSize

    Wscript.Echo "Microsoft Security Response Center severity: " & _

        colUpdates.Item(i).MsrcSeverity

    Wscript.Echo "Recommended CPU speed: " & _

        colUpdates.Item(i).RecommendedCPUSpeed

    Wscript.Echo "Recommended hard disk space: " & _

        colUpdates.Item(i).RecommendedHardDiskSpace

    Wscript.Echo "Recommended memory: " & colUpdates.Item(i).RecommendedMemory

    Wscript.Echo "Release notes: " & colUpdates.Item(i).ReleaseNotes

    Wscript.Echo "Support URL: " & colUpdates.Item(i).SupportURL

    Wscript.Echo "Type: " & colUpdates.Item(i).Type

    Wscript.Echo "Uninstallation notes: " & _

        colUpdates.Item(i).UninstallationNotes
 

    x = 1

    For Each strStep in colUpdates.Item(i).UninstallationSteps

        Wscript.Echo x & " -- " & strStep

        x = x + 1

    Next
 

    For Each strArticle in colUpdates.Item(i).KBArticleIDs

        Wscript.Echo "KB article: " & strArticle

    Next
 

    Wscript.Echo "Deployment action: " & colUpdates.Item(i).DeploymentAction

    Wscript.Echo

Next

Open in new window

0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Suggested Solutions

Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now