Page 1 of 4 1234>
Topic Options
#139295 - 2005-05-07 01:24 AM My Computer Info for Helpdesk use Part 4
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11603
Loc: CA
Here is an updated version of the My Computer Info script.

KiXhelp home page

Download MyComputerInfo Script 4

Script last updated 5:51 PM 10/4/2005
Note that this version may have an error in the array code that needs to be corrected.

This is a complete re-write of the code, smaller, faster, and corrects or adds information from comments in the thread on
the last version.

  • Now includes requests such as:
  • Model
  • Mapped Printer info
  • Mapped Drive info
  • Home folder
  • Password age info
  • Single write to file for improved speed at end of log
  • Checks for WMI and quits if error detected


Previous Versions:
My Computer Info for Helpdesk use Part 2
Fri Oct 24 2003
http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=164083

My Computer Info for Helpdesk use Part 3
Fri Apr 09 2004
http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=116475

Here is a bit different idea and method that Jooel and I were working on a while back.
Work in progress by Lonkero for the Helpdesk / Computerinfo script. buildHTMLtree()
Sun Oct 24 2004
http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=127432

Mail the Software Inventory - Placing data into Excel
Wed Apr 07 2004
http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=116337




And here is a screen shot of an example Website that can be automatically
created and updated on a schedule with KiXtart and scheduler.





Edited by NTDOC (2011-02-17 09:06 AM)

Top
#139296 - 2005-05-07 01:52 PM Re: My Computer Info - for Help Desk use PART 4
mole Offline
Getting the hang of it

Registered: 2003-01-01
Posts: 74
Loc: Indian Head, Maryland, USA
Thanks very much for this Doc, its fantastic.

mole
_________________________
mole

Who is John Galt?

Top
#139297 - 2005-06-10 09:25 PM Re: My Computer Info - for Help Desk use PART 4
ADynes Offline
Starting to like KiXtart
*****

Registered: 2003-10-31
Posts: 184
Loc: Ohio
Quote:

Thanks very much for this Doc, its fantastic.



+1

Only thing I changed was I added a variable to turn on and off the display at the end and a variable for .htm file location so I can run it through login and have it place the file onto the server and not alert the user. Really great script, thanks.
_________________________
Kixtarter - KiXtart Script Editor
http://www.AllanDynes.com/

Top
#139298 - 2005-06-11 11:37 AM Re: My Computer Info - for Help Desk use PART 4
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
oh that bloated html code... oh oh...

[edit]
doc, do you happen to have that treeview code?
haven't been able to find it lately...


Edited by Lonkero (2005-06-11 12:11 PM)
_________________________
!

download KiXnet

Top
#139299 - 2005-06-11 05:57 PM Re: My Computer Info - for Help Desk use PART 4
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11603
Loc: CA
Hmmmm.... nice that you have such nice things to say Lonk

Anyways... the code we were working on in the past is located here on the board.

buildHTMLtree()
 

Top
#139300 - 2005-06-11 06:19 PM Re: My Computer Info - for Help Desk use PART 4
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
you must know that I can't say my comments "seriously" but do say them seriously-smiling.
_________________________
!

download KiXnet

Top
#139301 - 2005-07-12 05:40 PM Can you add a Feature
estradac Offline
Fresh Scripter
*

Registered: 2003-09-11
Posts: 18
Can someone assist me in adding a couple of features

1. Send the results to a central location Shared drive based on Comuter name\user name
2. Include a link to send via lotus notes and or outlook email (will be used to send information to my Helpdesk)
3. Print option on top of html page

Top
#139302 - 2005-07-12 06:36 PM Re: Can you add a Feature
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
lol...
I knew this was coming.

estradac, we could assist but don't see no thread by you where you state you have initiated this.
can't help if can't know in which to help.
_________________________
!

download KiXnet

Top
#139303 - 2005-07-12 07:18 PM Re: Can you add a Feature
estradac Offline
Fresh Scripter
*

Registered: 2003-09-11
Posts: 18
Huh I'm a newbie. What do I need to do?
Top
#139304 - 2005-07-12 07:34 PM Re: Can you add a Feature
estradac Offline
Fresh Scripter
*

Registered: 2003-09-11
Posts: 18
Oh yeah one more. Is there any possibility to add the output to a SQL or access database. This is truly an awesome script which can be improved to help administrators.
Top
#139305 - 2005-07-12 07:40 PM Re: Can you add a Feature
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
what you need to do?
lol.

be involved!
_________________________
!

download KiXnet

Top
#139306 - 2005-07-12 07:49 PM Re: Can you add a Feature
estradac Offline
Fresh Scripter
*

Registered: 2003-09-11
Posts: 18
Alright amigo. I can assist with how to send emial via lotus notes but I don't know how to add this to the code...

Call SendNotesMail( "this is a test subject" , "C:\Temp\NotesSendMail.vbs" , "Mr.Estradac","my message" , True)
Sub SendNotesMail(Subject , Attachment , Recipient , BodyText , SaveIt )
'Set up the objects required for Automation into lotus notes
Dim Maildb 'The mail database
Dim UserName 'The current users notes name
Dim MailDbName 'THe current users notes mail database name
Dim MailDoc 'The mail document itself
Dim AttachME 'The attachment richtextfile object
Dim Session 'The notes session
Dim EmbedObj 'The embedded object (Attachment)
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left(UserName, 1) & Right(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
'Set Maildb = Session.GETDATABASE("", "mail.box")
If Maildb.ISOPEN = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
'Set up the embedded object and attachment and attach it
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
'MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
'Send the document
MailDoc.SEND 0, Recipient
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub

'~~[/script]~~

Top
#139307 - 2005-07-12 08:39 PM Re: Can you add a Feature
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
well, you really can't as that's no kixtart code.
but, to remind you, you yourself said:
Quote:

Can someone assist me in adding a couple of features




in english, can we assist you to when you add these features.
now, like I said.
we can.
just hope you input some effort of your own instead of saying "I'm a newbie, give me your weapons"
_________________________
!

download KiXnet

Top
#139308 - 2005-08-26 11:30 AM Re: My Computer Info - for Help Desk use PART 4
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11603
Loc: CA
A bit too busy to update the code right now, but will try to add one of the IP UDFs to give the other NIC values which was recently requested.

As for the multiple requests I get to put this into SQL or MySQL - sorry but I don't have time to really setup a full fledged script and documentation on how to write all of this to a database. Search the board as there are UDFs and others have done similar, but will require some reading and experimenting to complete it.

If there are requests for other data to be added to the script please let me know and I'll try to add it as time allows.

Top
#139309 - 2005-10-05 03:54 AM Re: My Computer Info - for Help Desk use PART 4
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11603
Loc: CA
NOTICE: This script is no longer set to just show on the user's desk. The script has been modified to ONLY e-mail the file back to an Administrator via BLAT SMTP e-mailer.

There were too many e-mails to me asking for such that I've switched the script over to e-mail only. However you can easily remark out the send and have it launch locally as before if wanted.

The script now includes a MessageBox to let the user know the script is being e-mailed to Support. That to can be disabled if wanted.


; *********************************************
; ******** REVISION HISTORY ******************
; 2.01 *** 10/4/2005 6:02PM - By NTDOC
; ******** Modified to send to Admins as requested via e-mail using BLAT
; ******** DOWNLOAD BLAT: http://www.blat.net
; ******** Removed trailing decimal numbers from FREE SPACE.
; ******** Switched out GetIEVersion with GetIEVersion2 (previous udf was broken)
; ******** Added the $SO=SetOption('NoMacrosInStrings','On') option to the script
; ******** Renamed the script to: COMPINFO3.KIX

Please let me kow if anything got broken in this update or not. It appears to work well so far in my testing.

The zip file also includes a script to add a shortcut to the users Start Menu for requesting help.

Download MyComputerInfo script
 


Edited by NTDOC (2011-02-17 09:03 AM)

Top
#139310 - 2005-10-05 08:38 AM Re: Can you add a Feature
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11603
Loc: CA
Quote:

Include a link to send via lotus notes and or outlook email (will be used to send information to my Helpdesk)




 
Well it now sends via BLAT e-mail by default, but you could add an Outlook mailer instead if you want, it just won't be silent and the client must have Outlook installed and a profile setup already.
 

Code:
Function SendOutlookMail($To, $Subject, optional $Body, optional $Attachment)
Dim $objOutlook, $Msg, $Recip, $Attach, $Deliver
$objOutlook = CreateObject("Outlook.Application")
$Msg = $objOutlook.CreateItem(0)
$Msg.Subject = ($Subject)
$Msg.Body = ($Body + @CRLF)
$Recip = $Msg.Recipients.Add($To)
If Not $Recip.Resolve
$Msg.Display
EndIf
$Attach = $Msg.attachments.add($Attachment)
$Msg.Display
; $Deliver = $Msg.Send
$objOutlook = ""
EndFunction


 
As for the print, well there are methods to accomplish that as well if needed, just reply back.

Top
#139311 - 2005-10-05 11:30 PM Re: Can you add a Feature
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
I'm working on a KF client tool something like this



It runs in the tray and it can't be closed (except by ending task)

It will run the inventory automatically about 30 minutes after start, or manually upon clicking the refresh button

The Help button will open a subform with contact info for helpdesk.

etc... Still under development
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#139312 - 2005-10-06 02:18 AM Re: Can you add a Feature
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
I'm also thinking of adding a messaging component to it to retrieve possible messages from a a file on a share... something like a messagebox that pops up but requires 2 action to close the window and will log the OKs to a central file.

Something like a message that says "Mail server will be down at 3:00 today". saved as a file, then at some incremental time (10-15 minutes or so) it will read the file, display to the user in a KF textbox, and require a chekbox and a click to OK it, then log to an ini or something the time and username.

More reliable than a net send
more 'in your face' than an email

Suggestions??
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#139313 - 2005-10-06 04:38 AM Re: Can you add a Feature
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11603
Loc: CA
Sounds and looks like a good idea. I'd go ahead and start a new post with this though and some code if you're ready to beta test it.

High end would be to store it back to SQL, but might be overkill for most shops.

Top
#139314 - 2005-10-06 11:43 AM Re: Can you add a Feature
Co Offline
MM club member
***

Registered: 2000-11-20
Posts: 1338
Loc: NL
Maybe SQL is overkill but storing the information in a database is really a good idea. You could use this information for an audit on the CMDB
_________________________
Co


Top
Page 1 of 4 1234>


Moderator:  Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 153 anonymous users online.
Newest Members
dimi575, Drecksnacken, Nlill, webtools321, multiman
17734 Registered Users

Generated in 0.182 seconds in which 0.151 seconds were spent on a total of 12 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org