+ Post New Thread
Results 1 to 5 of 5
How do you do....it? Thread, Auditing how much laptops are being used. in Technical; Hi All, SLT here has requested infromation on how much student laptops are being used. What they want is a ...
  1. #1

    Join Date
    Jun 2008
    Location
    London
    Posts
    62
    Thank Post
    26
    Thanked 4 Times in 4 Posts
    Rep Power
    0

    Auditing how much laptops are being used.

    Hi All,

    SLT here has requested infromation on how much student laptops are being used. What they want is a breakdown, laptop trolley by laptop trolley, of the amount of time they are in use throughout the school week.
    Is anyone else doing this? If so, how do you do it?

    Cheers,
    Stu

  2. #2
    rad
    rad is offline
    rad's Avatar
    Join Date
    Jan 2009
    Location
    Middlesex
    Posts
    2,471
    Thank Post
    333
    Thanked 307 Times in 235 Posts
    Rep Power
    109
    Lock them in your office and wait for them to shout, they collect from you, and they return to you.

  3. #3

    Join Date
    Jun 2008
    Location
    London
    Posts
    62
    Thank Post
    26
    Thanked 4 Times in 4 Posts
    Rep Power
    0
    They won't fit.....

  4. #4

    Join Date
    Feb 2011
    Location
    Australia
    Posts
    109
    Thank Post
    0
    Thanked 10 Times in 10 Posts
    Rep Power
    9
    Standard "Mickey Mouse" request.

    Startup script -> Write computer name and time to file on a fileshare.
    Shutdown script -> Write computer name and time to file on a fileshare.

    Depending on the type of data they want, you can manipulate the data in excel to produce graphs etc.

  5. #5


    Join Date
    Mar 2009
    Location
    Leeds
    Posts
    6,577
    Thank Post
    228
    Thanked 853 Times in 732 Posts
    Rep Power
    294
    even add a bit more info

    Code:
    Option Explicit
    Dim objFSO, objFolder, objShell, objTextFile, objFile
    Dim strDirectory, strFile, strText
    Dim Message, result
    Dim Title, Text1, Text2, mydatestring, mytimestring, WshNetwork, wshShell, strComputerName
    
    
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set wshShell = WScript.CreateObject( "WScript.Shell" )
    
    myDateString = Date()
    mytimestring = Time()
    strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
    
    strDirectory = "\\server\someshare$\logondata"
    strFile = "\netbook usage.csv"
    'strText = ""
    
    ' Define dialog box variables.
    Message = "Why are you using this PC/Laptop"           
    Title = "PC Usage Survey"
    Text1 = "User input canceled"
    Text2 = "You entered:" & vbCrLf
    
    ' Ready to use the InputBox function ' InputBox(prompt, title, default, xpos, ypos) ' prompt:    The text shown in the dialog box
    ' title:     The title of the dialog box ' default:   Default value shown in the text box ' xpos/ypos: Upper left position of the dialog box 
    ' If a parameter is omitted, VBScript uses a default value.
    
    result = InputBox(Message, Title, "", 100, 100)
    
    ' Evaluate the user input.
    'If result = "" Then    ' Canceled by the user
    '    WScript.Echo Text1
    'Else 
    '    WScript.Echo Text2 & result
    'End If
    
    'writeout bits
    '
    ' Create the File System Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' Check that the strDirectory folder exists
    If objFSO.FolderExists(strDirectory) Then
       Set objFolder = objFSO.GetFolder(strDirectory)
    Else
       Set objFolder = objFSO.CreateFolder(strDirectory)
       WScript.Echo "Just created " & strDirectory
    End If
    
    If objFSO.FileExists(strDirectory & strFile) Then
       Set objFolder = objFSO.GetFolder(strDirectory)
    Else
       Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
       Wscript.Echo "Just created " & strDirectory & strFile
    End If 
    
    set objFile = nothing
    set objFolder = nothing
    ' OpenTextFile Method needs a Const value
    ' ForAppending = 8 ForReading = 1, ForWriting = 2
    Const ForAppending = 8
    
    Set objTextFile = objFSO.OpenTextFile _
    (strDirectory & strFile, ForAppending, True)
    
    ' Writes result every time you run this VBScript
    objTextFile.WriteLine("Pcname," & strComputerName & "," & "Username," & WshNetwork.UserName &"," &"Date," & myDateString &"," & "Time," & myTimeString & "," & "Reason," & Result)
    objTextFile.Close
    asks em why |(granted they can just close it and write a null string but still asks

    output

    Pcname,server,Username,me,Date,07/03/2012,Time,10:08:53,Reason,why not

SHARE:
+ Post New Thread

Similar Threads

  1. Replies: 14
    Last Post: 5th December 2011, 01:25 PM
  2. How much would these be worth?
    By mrbios in forum Hardware
    Replies: 4
    Last Post: 8th July 2011, 08:45 AM
  3. Software to show how many computers are in use.
    By Eroberts in forum AV and Multimedia Related
    Replies: 6
    Last Post: 17th February 2011, 03:10 PM
  4. How much will I be paid for this consultancy work?
    By creese in forum General Chat
    Replies: 70
    Last Post: 29th June 2010, 12:22 PM
  5. How much memory is Firefox using for you today?
    By Ric_ in forum General Chat
    Replies: 5
    Last Post: 12th March 2007, 02:35 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •