KACE Product Support

Supporting notes & examples for Kace Konference 2011 presentation:
Extending the Dell KACE K1000 System Management Appliance's Computer Inventory to Support User Profile Specific & Other Non-Inventoried Data

John C. Verbosky
Helpdesk Coordinator
Resco Products, Inc.
_________________________________________________________________________________

Hopefully all of this will help to clarify what is covered in my presentation, so that you can use this in your organization. 

Note - The ShellCommandTextReturn listed in step 5 below works in versions prior to 5.1 and post 5.3.47173.  The other versions (5.2 and earlier 5.3) have a bug that prevent this command from working properly.

Note - I'm not a scripting wizard and most of the scripts have been cobbled together via examples found via Google (along with a lot of trial & error testing).  I've tried to ensure that nothing hangs or crashes, but if you see things that can be improved, please share.

Note - There's a bug in the reports where the line breaks are not processed correctly during the text file import and they end up listed in the reports rather than being line breaks.  Tyler Gingrich has fixed this in the Computer Inventory screen so the results are clean, but the reports still exhibit this.  They are still usable, just an FYI.
_________________________________________________________________________________
_________________________________________________________________________________

Custom Inventory Items & Reporting for Scripts

1) Create a custom folder on all PCs for holding script output files (i.e. C:\Windows\KBOX)
 - this can be done using a vbs script and run from KBOX

2) Create a vbs script that outputs to a text file to a custom folder (i.e. C:\Windows\KBOX)
 - create cleanup routine in script for output file as necessary

3) Create a new item in Scripts - Scripts to deploy (see Scripting Settings for VBS Scripts below line break for ref)

4) Run/deploy script on a test PC and make sure file is output correctly to custom folder

5) Create a new Inventory - Software item

 Example:
 - Display Name        Screen Resolution
 - Custom Inv Rule    ShellCommandTextReturn(cmd /c type c:\WINDOWS\KBOX\screen_resolution.txt)

6) Force inventory update on a the test PC via Inventory - Computers screen

7) Check test PC's Custom Inventory Field to verify it is populated with text from script output file

8) Create a new report using Report Wizard
 
Example (old style reports):
- Report Title/Category & Description    anything
- Choose your topic            Computer
*next*
- Display Columns
    Computer Identity Information.System Name
    Computer Identity Information.IP Address
    Custom Fields.Screen Resolution
*next*
*next*  (no rules)
- OrderBy Columns
    Computer Identity Information.System Name
*next*
- click on *(Report Name)* and adjust page size, etc
- click on column headers and rename as desired
*save*

9) Run new report - should list all computers and have entry for test PC with text from script output file.
_________________________________________________________________________________
_________________________________________________________________________________

Scripting Settings for VBS Scripts
_________________________________________________________________________________

To create a scripting item using a vbs script:

1) Script Type        Offline KScript (or Online KScript if script needs to run as logged in user)
2) Enabled        checkbox has to be checked
3) Deployment        Specify one of these (all, specific PCs, label)
4) Supported OS     Microsoft Windows
5) Run As        Run As User logged in to console (if script needs to run as logged in user)
        * note - needs to have trap in vbs script for when no one logged into PC
6) Dependencies      Upload target vbs script here
7) Policy or Job Rules
Task 1
  Attempts    1
  On Failure    Break
  Verify        Always Fail
  Remediation
  On Success   
1) Launch a program
   Directory        $(KBOX_SYS_DIR)
   File            cscript.exe
   Check box for "Wait for startup" (yes)
   Parameters        "$(KACE_DEPENDENCY_DIR)\screen_resolution.vbs" (for example)

(optional - if you want to upload files to the kbox - be aware you can't report on these)
2) Upload a file
   Directory       Wherever vbs script outputs file (i.e. C:\Windows\KBOX)
       File            name of output file (i.e. screen_resolution.txt)

  On Remediation Success
Log message
   successfully ran screen_resolution script

  On Remediation Failure
Log message
   failed to run screen_resolution script

8) Save
_________________________________________________________________________________
_________________________________________________________________________________

Scripts shown in the presentation and used in my environment

All scripts are set to check for the presence of C:\Windows\KBOX, create it if it's not present, run the applicable WMI query, and output it to a text file.
_________________________________________________________________________________
_________________________________________________________________________________
screen_resolution.vbs
_________________________________________________________________________________

Dim objFSO, newfolder
Dim strComputer, objWMIService
Dim fso, fsHandle, objShell, LogFileName, colItems, objItem

set objFSO=CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists("c:\Windows\KBOX") Then
newfolder = objFSO.CreateFolder ("c:\Windows\KBOX")
End If

Set objShell = CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")

If objFSO.FileExists("c:\Windows\KBOX\screen_resolution.txt") Then
fso.DeleteFile "c:\windows\KBOX\screen_resolution.txt", True
End If

LogFileName= "C:\Windows\KBOX\screen_resolution.txt"
set fsHandle = fso.OpenTextFile (LogFileName,8,True)

Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight

fsHandle.Writeline intHorizontal & " * " & intVertical _

fsHandle.Writeblanklines 1
fsHandle.close
set objShell = Nothing
set fso = Nothing

Next
_________________________________________________________________________________
_________________________________________________________________________________

local_and_network_drives.vbs
_________________________________________________________________________________

Dim objFSO, newfolder
Dim strComputer, objWMIService
Dim fso, fsHandle, objShell,LogFileName, colItems, objItem

set objFSO=CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists("c:\Windows\KBOX") Then
newfolder = objFSO.CreateFolder ("c:\Windows\KBOX")
End If

Set objShell = CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")

If objFSO.FileExists("c:\Windows\KBOX\local_and_network_drives.txt") Then
fso.DeleteFile "c:\windows\KBOX\local_and_network_drives.txt", True
End If

LogFileName= "C:\Windows\KBOX\local_and_network_drives.txt"
set fsHandle = fso.OpenTextFile (LogFileName,8,True)

sUser = ConsoleUser(".") ' use "." for local computer

Function ConsoleUser(sHost)
' Returns name of user logged on to console
' If no users are logged on, returns ""
Dim oWMI, colProc, oProcess, sUser, sDomain
Set oWmi = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(debug)}!\\" _
& sHost & "\root\cimv2")

Set colProc = oWmi.ExecQuery("Select Name from Win32_Process" _
& " Where Name='explorer.exe' and SessionID=0")

ConsoleUser = ""
For Each oProcess In colProc
lRet = oProcess.GetOwner(sUser, sDomain)
If lRet = 0 Then
ConsoleUser = sUser
End If
Next
End Function

fsHandle.Writeline Now & " - " _
& "Logged in user:  " & suser _

fsHandle.Writeline "------------------------------------------------------"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDrives = objWMIService.ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType = 3")
For Each objDrive in colDrives

fsHandle.Writeline objDrive.Name & " " & "Local Hard Drive"

Next

Set colDrives = objWMIService.ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType = 5")
For Each objDrive in colDrives

fsHandle.Writeline objDrive.Name & " " & "CD/DVD Drive"

Next

Set colDrives = objWMIService.ExecQuery _
("Select * From Win32_LogicalDisk Where DriveType = 4")
For Each objDrive in colDrives

fsHandle.Writeline objDrive.Name & " " & objDrive.ProviderName _

Next

fsHandle.Writeblanklines 1
fsHandle.close

set objShell = Nothing
set fso = Nothing
_________________________________________________________________________________
_________________________________________________________________________________

memory_info.vbs
_________________________________________________________________________________

Dim objFSO, newfolder
Dim strComputer, objWMIService
Dim fso, fsHandle, objShell,LogFileName, colItems, objItem

set objFSO=CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists("c:\Windows\KBOX") Then
newfolder = objFSO.CreateFolder ("c:\Windows\KBOX")
End If

Set objShell = CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")

If objFSO.FileExists("c:\Windows\KBOX\memory_info.txt") Then
fso.DeleteFile "c:\windows\KBOX\memory_info.txt", True
End If

LogFileName= "C:\Windows\KBOX\memory_info.txt"
set fsHandle = fso.OpenTextFile (LogFileName,8,True)

fsHandle.Writeline "------------------------------------------------------"
fsHandle.Writeline Now
fsHandle.Writeline "------------------------------------------------------"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PhysicalMemoryArray")

For Each objItem in colItems
fsHandle.Writeline "Slots:                " & objItem.MemoryDevices
fsHandle.Writeline "Maximum Capacity:     " & (objItem.MaxCapacity / 1024) & " MB"
fsHandle.Writeline "------------------------------------------------------"

Next

Set col2Items = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")

For Each objItem in col2Items

Dim ff, mt

If  objItem.FormFactor = 0 THEN
ff = "Unknown"
ElseIf objItem.FormFactor = 1 THEN
ff = "Other"
ElseIf objItem.FormFactor = 2 THEN
ff = "SIP"
ElseIf objItem.FormFactor = 3 THEN
ff = "DIP"
ElseIf objItem.FormFactor = 4 THEN
ff = "ZIP"
ElseIf objItem.FormFactor = 5 THEN
ff = "SOJ"
ElseIf objItem.FormFactor = 6 THEN
ff = "Proprietary"
ElseIf objItem.FormFactor = 7 THEN
ff = "SIMM"
ElseIf objItem.FormFactor = 8 THEN
ff = "DIMM"
ElseIf objItem.FormFactor = 9 THEN
ff = "TSOP"
ElseIf objItem.FormFactor = 10 THEN
ff = "PGA"
ElseIf objItem.FormFactor = 11 THEN
ff = "RIMM"
ElseIf objItem.FormFactor = 12 THEN
ff = "SODIMM"
ElseIf objItem.FormFactor = 13 THEN
ff = "SRIMM"
ElseIf objItem.FormFactor = 14 THEN
ff = "SMD"
ElseIf objItem.FormFactor = 15 THEN
ff = "SSMP"
ElseIf objItem.FormFactor = 16 THEN
ff = "QFP"
ElseIf objItem.FormFactor = 17 THEN
ff = "TQFP"
ElseIf objItem.FormFactor = 18 THEN
ff = "SOIC"
ElseIf objItem.FormFactor = 19 THEN
ff = "LCC"
ElseIf objItem.FormFactor = 20 THEN
ff = "PLCC"
ElseIf objItem.FormFactor = 21 THEN
ff = "BGA"
ElseIf objItem.FormFactor = 22 THEN
ff = "FPBGA"
ElseIf objItem.FormFactor = 23 THEN
ff = "LGA"
End If

If objItem.MemoryType = 0 THEN
mt = "Unknown"
ElseIf objItem.MemoryType = 1 THEN
mt = "Other"
ElseIf objItem.MemoryType = 2 THEN
mt = "SIP"
ElseIf objItem.MemoryType = 3 THEN
mt = "DIP"
ElseIf objItem.MemoryType = 4 THEN
mt = "ZIP"
ElseIf objItem.MemoryType = 5 THEN
mt = "SOJ"
ElseIf objItem.MemoryType = 6 THEN
mt = "Proprietary"
ElseIf objItem.MemoryType = 7 THEN
mt = "SIMM"
ElseIf objItem.MemoryType = 8 THEN
mt = "DIMM"
ElseIf objItem.MemoryType = 9 THEN
mt = "TSOP"
ElseIf objItem.MemoryType = 10 THEN
mt = "PGA"
ElseIf objItem.MemoryType = 11 THEN
mt = "RIMM"
ElseIf objItem.MemoryType = 12 THEN
mt = "SODIMM"
ElseIf objItem.MemoryType = 13 THEN
mt = "SRIMM"
ElseIf objItem.MemoryType = 14 THEN
mt = "SMD"
ElseIf objItem.MemoryType = 15 THEN
mt = "SSMP"
ElseIf objItem.MemoryType = 16 THEN
mt = "QFP"
ElseIf objItem.MemoryType = 17 THEN
mt = "TQFP"
ElseIf objItem.MemoryType = 18 THEN
mt = "SOIC"
ElseIf objItem.MemoryType = 19 THEN
mt = "LCC"
ElseIf objItem.MemoryType = 20 THEN
mt = "PLCC"
ElseIf objItem.MemoryType = 21 THEN
mt = "BGA"
ElseIf objItem.MemoryType = 22 THEN
mt = "FPBGA"
ElseIf objItem.MemoryType = 23 THEN
mt = "LGA"
End If

fsHandle.Writeline "Memory Stick:         " & objItem.DeviceLocator
fsHandle.Writeline "Capacity:             " & (objItem.Capacity / 1024 / 1024) & " MB"
fsHandle.Writeline "Form Factor:          " & ff
fsHandle.Writeline "Memory Type:          " & mt
fsHandle.Writeline "Speed:                " & objItem.Speed & " MHz"
fsHandle.Writeline "Data Width:           " & objItem.DataWidth
fsHandle.Writeline "------------------------------------------------------"

Next

fsHandle.Writeblanklines 1
fsHandle.close

set objShell = Nothing
set fso = Nothing
_________________________________________________________________________________
_________________________________________________________________________________

printers_list.vbs (note - my original script was revised by billprew from ExpertsExchange so that it updates users' printers lists while scrubbing old entries)
_________________________________________________________________________________

' Script reads a current log file of users and printers, elliminates dupes,
' adds in the current user and their printers, and then rewrites the log file.
'
' This script uses a dictionary object to store the printers for each user.
' There will be one dictionary item per user, and then the "data" of that
' user's dictionary item will have the format:
'
' date-string|printer 1|printer 2|printer 3|...|

' Require variables to be defined before usage
Option Explicit

' Define constants
Const ForReading = 1
Const ForWriting = 2

' Define variable used in mainline of script
Dim strBaseDir, strListFile, objFSO, dicUsers

' Define base folder and log file name
strBaseDir = "C:\Windows\KBOX\"
strListFile = strBaseDir & "printers_list.txt"

' Create needed objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set dicUsers = CreateObject("Scripting.Dictionary")

' Create the base folder if it doesn't exist
If Not objFSO.FolderExists(strBaseDir) Then
objFSO.CreateFolder(strBaseDir)
End If

' If we have a prior log file, load the users and printers from it first
If objFSO.FileExists(strListFile) Then
GetHistory(strListFile)
End If

' Add printers for the current user to the dictionary
GetPrinters(GetUser("."))

' Dump the contents of the dictionary to the log file
WriteLog(strListFile)

' Subroutnie to load prior history, elliminate any duplicates
Sub GetHistory(strFile)
Dim objFile, strUser, strLine, arrTemp

' Open the log file for reading
Set objFile = objFSO.OpenTextFile(strFile, ForReading)

strUser = ""

' Read each line, looking for user or printer lines, skip blank and dash lines
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If strLine <> "" And Mid(strLine, 1, 10) <> "----------" Then
        If Instr(strLine, "Logged in user:") Then
            arrTemp = Split(Replace(strLine, "  ", " "), " ")
            strUser = arrTemp(7)
            ' Try to add this user to the dictionary
            AddUser strUser, arrTemp(0) & " " & arrTemp(1) & " " & arrTemp(2)
        Else
            If strUser <> "" Then
                ' Try to add this printer to the dictionary
                AddPrinter strUser, strLine
            End If
        End If
    End If
Loop

objFile.Close
Set objFile = Nothing
End Sub

' Subroutine to get all pronters for this user and add to dictionary
Sub GetPrinters(strUser)
Dim strComputer, objWMI, colPrinters, objPrinter

' Make sure we have a user
If strUser <> "" Then
    ' Add this user to the dictionary if needed
    AddUser strUser, FormatDateTime(Now)

    ' Identify all printers for this user
    strComputer = "."
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colPrinters =  objWMI.ExecQuery("Select * from Win32_Printer")
    For Each objPrinter in colPrinters
        ' Try to add each printer to dictionary
        AddPrinter strUser, objPrinter.Name
    Next

    Set colPrinters = Nothing
    Set objWMI = Nothing
End If
End Sub

' Subroutine to dump the accumulated data from the dictionary to the log file
Sub WriteLog(strFile)
Dim objFile, strUser, arrData, i

' Open the log file for writing
Set objFile = objFSO.OpenTextFile (strListFile, ForWriting, True)

' Process each user in the dictionary
For Each strUser in dicUsers
    arrData = Split(dicUsers.Item(strUser), "|")

    ' Header lines for a user
    objFile.Writeline arrData(0) & " - " & "Logged in user:  " & strUser
    objFile.Writeline "------------------------------------------------------"

    ' Loop through all printers for this user and write to log file
    If UBound(arrData) > 0 Then
        For i = 1 to UBound(arrData)-1
            objFile.Writeline arrData(i)
        Next
    End If
    objFile.WriteBlankLines 1
Next

objFile.Close
Set objFile = Nothing
End Sub

' Function to get the current user id
Function GetUser(strHost)
' Returns name of user logged on to console
' If no users are logged on, returns ""
Dim objWMI, colProc, objProcess, strUser, strDomain, intReturn

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(debug)}!\\" & strHost & "\root\cimv2")

Set colProc = objWMI.ExecQuery("Select Name from Win32_Process Where Name='explorer.exe' and SessionID=0")

GetUser = ""
For Each objProcess In colProc
    intReturn = objProcess.GetOwner(strUser, strDomain)
    If intReturn = 0 Then
        GetUser = strUser
    End If
Next

Set colProc = Nothing
Set objWMI = Nothing
End Function

' Subroutine to add a user to the dictionary (if it doesn't already exist)
Sub AddUser(strUser, strDate)
If dicUsers.Exists(strUser) Then
    dicUsers.Item(strUser) = strDate & "|"
Else
    dicUsers.Add strUser, strDate & "|"
End If
End Sub

' Subroutine to add a printer to the dictionary for a user (if it doesn't already exist)
Sub AddPrinter(strUser, strPrinter)
Dim strTemp
strTemp = dicUsers.Item(strUser)
If Instr(strTemp, "|" & strPrinter & "|") = 0 Then
    dicUsers.Item(strUser) = strTemp & strPrinter & "|"
End If
End Sub
_________________________________________________________________________________
_________________________________________________________________________________

printer_default.vbs (note - this is my reworking of billprew's script so that it captures the default printer)
_________________________________________________________________________________

' Script reads a current log file of users and printers, elliminates dupes,
' adds in the current user and the default printer, and then rewrites the log file.
'
' This script uses a dictionary object to store the printer for each user.
' There will be one dictionary item per user, and then the "data" of that
' user's dictionary item will have the format:
'
' date-string|printer 1|printer 2|printer 3|...|

' Require variables to be defined before usage
Option Explicit

' Define constants
Const ForReading = 1
Const ForWriting = 2

' Define variable used in mainline of script
Dim strBaseDir, strListFile, objFSO, dicUsers

' Define base folder and log file name
strBaseDir = "C:\Windows\KBOX\"
strListFile = strBaseDir & "printer_default.txt"

' Create needed objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set dicUsers = CreateObject("Scripting.Dictionary")

' Create the base folder if it doesn't exist
If Not objFSO.FolderExists(strBaseDir) Then
objFSO.CreateFolder(strBaseDir)
End If

' If we have a prior log file, load the users and printers from it first
If objFSO.FileExists(strListFile) Then
GetHistory(strListFile)
End If

' Add printers for the current user to the dictionary
GetPrinters(GetUser("."))

' Dump the contents of the dictionary to the log file
WriteLog(strListFile)

' Subroutnie to load prior history, elliminate any duplicates
Sub GetHistory(strFile)
Dim objFile, strUser, strLine, arrTemp

' Open the log file for reading
Set objFile = objFSO.OpenTextFile(strFile, ForReading)

strUser = ""

' Read each line, looking for user or printer lines, skip blank and dash lines
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If strLine <> "" And Mid(strLine, 1, 10) <> "----------" Then
        If Instr(strLine, "Logged in user:") Then
            arrTemp = Split(Replace(strLine, "  ", " "), " ")
            strUser = arrTemp(7)
            ' Try to add this user to the dictionary
            AddUser strUser, arrTemp(0) & " " & arrTemp(1) & " " & arrTemp(2)
        Else
            If strUser <> "" Then
                ' Try to add this printer to the dictionary
                AddPrinter strUser, strLine
            End If
        End If
    End If
Loop

objFile.Close
Set objFile = Nothing
End Sub

' Subroutine to get default printer for this user and add to dictionary
Sub GetPrinters(strUser)
Dim strComputer, objWMI, colPrinters, objPrinter

' Make sure we have a user
If strUser <> "" Then
    ' Add this user to the dictionary if needed
    AddUser strUser, FormatDateTime(Now)

    ' Identify all printers for this user
    strComputer = "."
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colPrinters =  objWMI.ExecQuery("Select * from Win32_Printer where Default = 'True'")
    For Each objPrinter in colPrinters
        ' Try to add each printer to dictionary
        AddPrinter strUser, objPrinter.Name
    Next

    Set colPrinters = Nothing
    Set objWMI = Nothing
End If
End Sub

' Subroutine to dump the accumulated data from the dictionary to the log file
Sub WriteLog(strFile)
Dim objFile, strUser, arrData, i

' Open the log file for writing
Set objFile = objFSO.OpenTextFile (strListFile, ForWriting, True)

' Process each user in the dictionary
For Each strUser in dicUsers
    arrData = Split(dicUsers.Item(strUser), "|")

    ' Header lines for a user
    objFile.Writeline arrData(0) & " - " & "Logged in user:  " & strUser
    objFile.Writeline "------------------------------------------------------"

    ' Loop through all printers for this user and write to log file
    If UBound(arrData) > 0 Then
        For i = 1 to UBound(arrData)-1
            objFile.Writeline arrData(i)
        Next
    End If
    objFile.WriteBlankLines 1
Next

objFile.Close
Set objFile = Nothing
End Sub

' Function to get the current user id
Function GetUser(strHost)
' Returns name of user logged on to console
' If no users are logged on, returns ""
Dim objWMI, colProc, objProcess, strUser, strDomain, intReturn

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(debug)}!\\" & strHost & "\root\cimv2")

Set colProc = objWMI.ExecQuery("Select Name from Win32_Process Where Name='explorer.exe' and SessionID=0")

GetUser = ""
For Each objProcess In colProc
    intReturn = objProcess.GetOwner(strUser, strDomain)
    If intReturn = 0 Then
        GetUser = strUser
    End If
Next

Set colProc = Nothing
Set objWMI = Nothing
End Function

' Subroutine to add a user to the dictionary (if it doesn't already exist)
Sub AddUser(strUser, strDate)
If dicUsers.Exists(strUser) Then
    dicUsers.Item(strUser) = strDate & "|"
Else
    dicUsers.Add strUser, strDate & "|"
End If
End Sub

' Subroutine to add a printer to the dictionary for a user (if it doesn't already exist)
Sub AddPrinter(strUser, strPrinter)
Dim strTemp
strTemp = dicUsers.Item(strUser)
If Instr(strTemp, "|" & strPrinter & "|") = 0 Then
    dicUsers.Item(strUser) = strTemp & strPrinter & "|"
End If
End Sub
_________________________________________________________________________________
_________________________________________________________________________________

Results in Computer Inventory screen:

'Script Start

Dim objFSO, newfolder

Dim strComputer, objWMIService 

Dim fso, fsHandle, objShell,LogFileName, colItems, objItem 

set objFSO=CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists("c:\Windows\KBOX") Then

  newfolder = objFSO.CreateFolder ("c:\Windows\KBOX")

End If

Set objShell = CreateObject("Wscript.Shell") 

Set fso = Wscript.CreateObject("Scripting.FilesystemObject") 

If objFSO.FileExists("c:\Windows\KBOX\security_software.txt") Then

fso.DeleteFile "c:\windows\KBOX\security_software.txt", True

End If

LogFileName= "C:\Windows\KBOX\security_software.txt" 

set fsHandle = fso.OpenTextFile (LogFileName,8,True) 

fsHandle.Writeline "------------------------------------------------------"

fsHandle.Writeline Now

fsHandle.Writeline "------------------------------------------------------"

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

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

Set colItems = objWMIService.ExecQuery _

("Select * from AntiVirusProduct")

For Each objItem in colItems

fsHandle.Writeline "Name:                " & objItem.displayName

fsHandle.Writeline "Status:    " & objItem.productstate

fsHandle.Writeline "------------------------------------------------------"

NEXT

fsHandle.Writeblanklines 1 

fsHandle.close

set objShell = Nothing 

set fso = Nothing 

'Script End