An independent discussion group for users of Intuit's Track-It! inventory/help desk management software. (Formerly BlueOcean Track-It!)

Berry, Morgan A. | 1 Apr 2006 01:01

30 minute PPT

I need to do a quickie (30 minute) overview of the basics of the Helpdesk and ticket screens. Does anyone have any PPT or other type of presentation they are willing to share?

Morgan Berry Help Desk Manager

Law Offices of Neal, Gerber & Eisenberg LLP
Direct. 312.269.8423| Cell. 312.731.2870
Fax. 312.750.8402
mberry-+1udaqhncy7QT0dZR+AlfA@public.gmane.org

YAHOO! GROUPS LINKS

Visit your group "Track-It_HelpDesk" on the web.
To unsubscribe from this group, send an email to:
Track-It_HelpDesk-unsubscribe-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

headers

Louie Meletlidis | 5 Apr 2006 20:40

Auditing & pulling Dell service tags ??

All,

anyone have a procedure where we can associate/view the inventoried new pc from the dell service tag

to the asset id ??

i did a few but it shows as asset id 425

thanks

Lou

YAHOO! GROUPS LINKS

Visit your group "Track-It_HelpDesk" on the web.
To unsubscribe from this group, send an email to:
Track-It_HelpDesk-unsubscribe-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

headers

Marty Yantzie | 5 Apr 2006 20:47

RE: Auditing & pulling Dell service tags ??

The asset id should be the Dell service if the service tag information is set in the bios. If audit32 cannot read the service tag info it will set the asset id the same as the TrackIT asset number. You need to make sure that the service tag is actually readable. I have attached a script that you can run on a remote computer to see if the service tag information is there. I also have a version that will check multiple computers and output to a csv file.

' Script to return asset tag from computers.

strComputer = InputBox("Enter computer name or ip address", _
"Enter computer name", "WS-")
If (IsNull(strComputer)) Or (strComputer = "") Then
MsgBox "Please computer name or ip address you wish to scan."
ExitScript
End If

'On Error Resume Next
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For each objItem in colItems
MSGBox ( objItem.IdentifyingNumber )
Next
Set objItem = nothing
Set objWMIService = nothing
else
MSGBox ( "Not Reachable" )
end if
Set strComputer = nothing

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

Private Sub ExitScript()
WScript.Quit
End Sub

Marty

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 1:40 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

All,

anyone have a procedure where we can associate/view the inventoried new pc from the dell service tag

to the asset id ??

i did a few but it shows as asset id 425

thanks

Lou

YAHOO! GROUPS LINKS

Visit your group "Track-It_HelpDesk" on the web.
To unsubscribe from this group, send an email to:
Track-It_HelpDesk-unsubscribe-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

headers

Louie Meletlidis | 5 Apr 2006 21:02

RE: Auditing & pulling Dell service tags ??

Awesome !!

thanks marty

so actually i can put that into a .bat file

and run from login script also ?

From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Marty Yantzie
Sent: Wednesday, April 05, 2006 2:47 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

The asset id should be the Dell service if the service tag information is set in the bios. If audit32 cannot read the service tag info it will set the asset id the same as the TrackIT asset number. You need to make sure that the service tag is actually readable. I have attached a script that you can run on a remote computer to see if the service tag information is there. I also have a version that will check multiple computers and output to a csv file.

' Script to return asset tag from computers.

strComputer = InputBox("Enter computer name or ip address", _
"Enter computer name", "WS-")
If (IsNull(strComputer)) Or (strComputer = "") Then
MsgBox "Please computer name or ip address you wish to scan."
ExitScript
End If

'On Error Resume Next
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For each objItem in colItems
MSGBox ( objItem.IdentifyingNumber )
Next
Set objItem = nothing
Set objWMIService = nothing
else
MSGBox ( "Not Reachable" )
end if
Set strComputer = nothing

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

Private Sub ExitScript()
WScript.Quit
End Sub

Marty

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 1:40 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

All,

anyone have a procedure where we can associate/view the inventoried new pc from the dell service tag

to the asset id ??

i did a few but it shows as asset id 425

thanks

Lou

YAHOO! GROUPS LINKS

Visit your group "Track-It_HelpDesk" on the web.
To unsubscribe from this group, send an email to:
Track-It_HelpDesk-unsubscribe-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

headers

Louie Meletlidis | 5 Apr 2006 21:04

RE: Auditing & pulling Dell service tags ??

the one that goes to a csv would be nice also if u can share.

regards,

From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Marty Yantzie
Sent: Wednesday, April 05, 2006 2:47 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

The asset id should be the Dell service if the service tag information is set in the bios. If audit32 cannot read the service tag info it will set the asset id the same as the TrackIT asset number. You need to make sure that the service tag is actually readable. I have attached a script that you can run on a remote computer to see if the service tag information is there. I also have a version that will check multiple computers and output to a csv file.

' Script to return asset tag from computers.

strComputer = InputBox("Enter computer name or ip address", _
"Enter computer name", "WS-")
If (IsNull(strComputer)) Or (strComputer = "") Then
MsgBox "Please computer name or ip address you wish to scan."
ExitScript
End If

'On Error Resume Next
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For each objItem in colItems
MSGBox ( objItem.IdentifyingNumber )
Next
Set objItem = nothing
Set objWMIService = nothing
else
MSGBox ( "Not Reachable" )
end if
Set strComputer = nothing

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

Private Sub ExitScript()
WScript.Quit
End Sub

Marty

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 1:40 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

All,

anyone have a procedure where we can associate/view the inventoried new pc from the dell service tag

to the asset id ??

i did a few but it shows as asset id 425

thanks

Lou

YAHOO! GROUPS LINKS

Visit your group "Track-It_HelpDesk" on the web.
To unsubscribe from this group, send an email to:
Track-It_HelpDesk-unsubscribe-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

headers

Marty Yantzie | 5 Apr 2006 21:09

RE: Auditing & pulling Dell service tags ??

the attached script was meant to be run on an admin's workstation with a user logged on that has admin privleges to connect to remote computers.

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 2:02 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

Awesome !!

thanks marty

so actually i can put that into a .bat file

and run from login script also ?

From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Marty Yantzie
Sent: Wednesday, April 05, 2006 2:47 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

The asset id should be the Dell service if the service tag information is set in the bios. If audit32 cannot read the service tag info it will set the asset id the same as the TrackIT asset number. You need to make sure that the service tag is actually readable. I have attached a script that you can run on a remote computer to see if the service tag information is there. I also have a version that will check multiple computers and output to a csv file.

' Script to return asset tag from computers.

strComputer = InputBox("Enter computer name or ip address", _
"Enter computer name", "WS-")
If (IsNull(strComputer)) Or (strComputer = "") Then
MsgBox "Please computer name or ip address you wish to scan."
ExitScript
End If

'On Error Resume Next
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For each objItem in colItems
  MSGBox ( objItem.IdentifyingNumber )
Next
Set objItem = nothing
Set objWMIService = nothing
else
MSGBox ( "Not Reachable" )
end if
Set strComputer = nothing

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

Private Sub ExitScript()
WScript.Quit
End Sub

Marty

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 1:40 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

All,

anyone have a procedure where we can associate/view the inventoried new pc from the dell service tag

to the asset id ??

i did a few but it shows as asset id 425

thanks

Lou

RE: Auditing & pulling Dell service tags ??

Here is the csv version. Make sure to read the comments to make in work for you. I am not much of a scriptor, but it works!

' A simple script to return asset tag from all computers in active directory domain
' The output is exported to a comma serparated file with the name "service-tags.csv"

' Do not open the csv file until the vbscript is done. You can make a copy of the file while

' the script is running and open the copy to see the results. I may work on making the script

' acutally export to an XLS file that can be viewed as the script is running
' Marty Yantzie - 9JUN2005 - myyaz33-PkbjNfxxIARBDgjK7y7TUQ@public.gmane.org

' you need to edit the local_domain variable to what ever your domain is

' you can limit the search to a specific OU by using the example directly below

'local_domain = LDAP://OU=Finance Computers,DC=yourdomain,DC=com

local_domain = "LDAP://DC=yourdomain,DC=com"

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name, Location from '" & local_domain & "' Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Sort On") = "name"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("service-tags.csv", True)
MyFile.Writeline ("Report started " & Now())
MyFile.Writeline ("Computer,Serial,Name,Vendor,Status")
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    On Error Resume Next
    strComputer = objRecordSet.Fields("Name").Value
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
  For each objItem in colItems
   MyFile.Writeline ( strComputer & "," & objItem.IdentifyingNumber & "," & objItem.Name & "," & objItem.Vendor & ",Reachable")
  Next
  Set objItem = nothing
  Set objWMIService = nothing
else
      MyFile.Writeline ( strComputer & ",,,,Unreachable")
    end if
    Set strComputer = nothing
    objRecordSet.MoveNext
Loop
MyFile.Writeline ("Report Ended " & Now())
MyFile.Close
MsgBox ("DONE")

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 2:05 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

the one that goes to a csv would be nice also if u can share.

regards,

From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Marty Yantzie
Sent: Wednesday, April 05, 2006 2:47 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

The asset id should be the Dell service if the service tag information is set in the bios. If audit32 cannot read the service tag info it will set the asset id the same as the TrackIT asset number. You need to make sure that the service tag is actually readable. I have attached a script that you can run on a remote computer to see if the service tag information is there. I also have a version that will check multiple computers and output to a csv file.

' Script to return asset tag from computers.

strComputer = InputBox("Enter computer name or ip address", _
"Enter computer name", "WS-")
If (IsNull(strComputer)) Or (strComputer = "") Then
MsgBox "Please computer name or ip address you wish to scan."
ExitScript
End If

'On Error Resume Next
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For each objItem in colItems
  MSGBox ( objItem.IdentifyingNumber )
Next
Set objItem = nothing
Set objWMIService = nothing
else
MSGBox ( "Not Reachable" )
end if
Set strComputer = nothing

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

Private Sub ExitScript()
WScript.Quit
End Sub

Marty

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 1:40 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

All,

anyone have a procedure where we can associate/view the inventoried new pc from the dell service tag

to the asset id ??

i did a few but it shows as asset id 425

thanks

Lou

How to sync Department name to User Defined Department

sorry gang, me again.........

i tried to run report Workstation by Department Graph

but the User Defined(where i assume the department is pulling from is all blank)

bu the Department under the General tab for User Information is all correct(i assumed it would pull dept from here)

anyway to sync these ?

thanks

RE: Auditing & pulling Dell service tags ??

Gr8 Thanks !!!

From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Marty Yantzie
Sent: Wednesday, April 05, 2006 3:21 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

Here is the csv version. Make sure to read the comments to make in work for you. I am not much of a scriptor, but it works!

' A simple script to return asset tag from all computers in active directory domain
' The output is exported to a comma serparated file with the name "service-tags.csv"

' Do not open the csv file until the vbscript is done. You can make a copy of the file while

' the script is running and open the copy to see the results. I may work on making the script

' acutally export to an XLS file that can be viewed as the script is running
' Marty Yantzie - 9JUN2005 - myyaz33-PkbjNfxxIARBDgjK7y7TUQ@public.gmane.org

' you need to edit the local_domain variable to what ever your domain is

' you can limit the search to a specific OU by using the example directly below

'local_domain = LDAP://OU=Finance Computers,DC=yourdomain,DC=com

local_domain = "LDAP://DC=yourdomain,DC=com"

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name, Location from '" & local_domain & "' Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Sort On") = "name"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("service-tags.csv", True)
MyFile.Writeline ("Report started " & Now())
MyFile.Writeline ("Computer,Serial,Name,Vendor,Status")
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    On Error Resume Next
    strComputer = objRecordSet.Fields("Name").Value
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
  For each objItem in colItems
   MyFile.Writeline ( strComputer & "," & objItem.IdentifyingNumber & "," & objItem.Name & "," & objItem.Vendor & ",Reachable")
  Next
  Set objItem = nothing
  Set objWMIService = nothing
else
      MyFile.Writeline ( strComputer & ",,,,Unreachable")
    end if
    Set strComputer = nothing
    objRecordSet.MoveNext
Loop
MyFile.Writeline ("Report Ended " & Now())
MyFile.Close
MsgBox ("DONE")

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 2:05 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

the one that goes to a csv would be nice also if u can share.

regards,

From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Marty Yantzie
Sent: Wednesday, April 05, 2006 2:47 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: RE: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

The asset id should be the Dell service if the service tag information is set in the bios. If audit32 cannot read the service tag info it will set the asset id the same as the TrackIT asset number. You need to make sure that the service tag is actually readable. I have attached a script that you can run on a remote computer to see if the service tag information is there. I also have a version that will check multiple computers and output to a csv file.

' Script to return asset tag from computers.

strComputer = InputBox("Enter computer name or ip address", _
"Enter computer name", "WS-")
If (IsNull(strComputer)) Or (strComputer = "") Then
MsgBox "Please computer name or ip address you wish to scan."
ExitScript
End If

'On Error Resume Next
if (IsConnectible(strComputer, "", "") OR (strComputer = ".")) Then
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For each objItem in colItems
  MSGBox ( objItem.IdentifyingNumber )
Next
Set objItem = nothing
Set objWMIService = nothing
else
MSGBox ( "Not Reachable" )
end if
Set strComputer = nothing

Function IsConnectible(sHost,iPings,iTO)
If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750
Set oShell = CreateObject("WScript.Shell")
Set oExCmd = oShell.Exec("ping -n " & iPings _
   & " -w " & iTO & " " & sHost)
Select Case InStr(oExCmd.StdOut.Readall,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
End Select
End Function

Private Sub ExitScript()
WScript.Quit
End Sub

Marty

-----Original Message-----
From: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org [mailto:Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org] On Behalf Of Louie Meletlidis
Sent: Wednesday, April 05, 2006 1:40 PM
To: Track-It_HelpDesk-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Subject: [Track-It_HelpDesk] Auditing & pulling Dell service tags ??

All,

anyone have a procedure where we can associate/view the inventoried new pc from the dell service tag

to the asset id ??

i did a few but it shows as asset id 425

thanks

Lou

YAHOO! GROUPS LINKS

Visit your group "Track-It_HelpDesk" on the web.
To unsubscribe from this group, send an email to:
Track-It_HelpDesk-unsubscribe-hHKSG33TihhbjbujkaE4pw@public.gmane.org
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

headers

mechanic_e | 6 Apr 2006 05:29

Re: Inventory Problem

In version 5.0 you have to delete it from "Deleted Items" as well.  
Right-Click in below your line items, select "Deleted Items", select 
that item and delete from there as well...

--- In Track-It_HelpDesk@..., "Marty Yantzie" 
<Marty.Yantzie <at> ...> wrote:
>
> Did you check the deleted items under the unassigned equipment?
> 
> Marty Yantzie
> 
> -----Original Message-----
> From: Track-It_HelpDesk@...
> [mailto:Track-It_HelpDesk@...] On Behalf Of srfougere
> Sent: Tuesday, March 28, 2006 8:52 AM
> To: Track-It_HelpDesk@...
> Subject: [Track-It_HelpDesk] Inventory Problem
> 
> 
> Hi Folks,
> 
> I'm having a problem with my Inventory module.  I am trying to add a
> serial number to one of my computers.  The serial number is being 
added
> under the General tab under Product.  When I try to add the serial
> number it says that the serial is already assigned to something in 
the
> Unassigned Equipment section.  I've been through there a dozen 
times now
> looking for the object without success.
> 
> Does anyone know where the Serial Number is stored in database?
> 
> Thanks in advance,
> Sheldon
> 
> 
> 
> 
> 
>  
> Yahoo! Groups Links
>

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/Track-It_HelpDesk/

<*> To unsubscribe from this group, send an email to:
    Track-It_HelpDesk-unsubscribe@...

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/

Program management software	Affiliate program software	Scheduling program software
Construction software program	Payroll software program	Email software program

Program management software	Affiliate program software	Scheduling program software
Construction software program	Payroll software program	Email software program

Program management software	Affiliate program software	Scheduling program software
Construction software program	Payroll software program	Email software program

Mon	Tue	Wed	Thu	Fri	Sat	Sun

					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

1	March 2013
4	November 2012
20	October 2012
35	September 2012
34	August 2012
36	July 2012
37	June 2012
31	May 2012
20	April 2012
31	March 2012
36	February 2012
41	January 2012
54	December 2011
20	November 2011
151	October 2011
275	September 2011
274	August 2011
31	July 2011
38	June 2011
52	May 2011
17	April 2011
26	March 2011
20	February 2011
21	January 2011
7	December 2010
18	November 2010
9	October 2010
4	September 2010
5	August 2010
8	July 2010
4	June 2010
10	May 2010
2	April 2010
2	March 2010
3	February 2010
9	January 2010
2	December 2009
1	November 2009
1	October 2009
3	September 2009
7	August 2009
5	July 2009
11	June 2009
2	May 2009
1	April 2009
1	March 2009
1	February 2009
4	January 2009
1	December 2008
11	November 2008
8	October 2008
29	September 2008
28	August 2008
70	July 2008
115	June 2008
56	May 2008
33	April 2008
49	March 2008
54	February 2008
35	January 2008
14	December 2007
17	November 2007
19	October 2007
15	September 2007
6	August 2007
7	July 2007
3	June 2007
6	May 2007
3	April 2007
21	March 2007
17	February 2007
14	January 2007
27	December 2006
9	November 2006
15	October 2006
20	September 2006
36	August 2006
28	July 2006
14	June 2006
68	May 2006
57	April 2006
66	March 2006
32	February 2006
47	January 2006
54	December 2005
33	November 2005
69	October 2005
36	September 2005
38	August 2005
77	July 2005
37	June 2005
68	May 2005
76	April 2005
50	March 2005
34	February 2005
28	January 2005
18	December 2004
3	November 2004
13	October 2004
17	September 2004
1	August 2004
10	June 2004
24	May 2004
11	April 2004
12	March 2004
2	February 2004
1	March 1999