Solved

Help needed with script

Posted on 2008-06-12
7
343 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 65

Expert Comment

by:RobSampson
ID: 21774809
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
ID: 21776420
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
ID: 21776489
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
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:Dutchict
ID: 21776675
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
ID: 31466504
Solution is working great, i do have to trie to inderstand this method to add more scripts.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 21783321
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
ID: 21811579
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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
This article will inform Clients about common and important expectations from the freelancers (Experts) who are looking at your Gig.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
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…

726 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