PCInfo without GUI

[Xenobiologist]

Hi @all,

I just finished my version 2.0 of my PCInfo script. It was made for supporters in our company. Maybe someone can use or improve it. If anybody can think of some interesting things to know about a pc for supporters - tell me.

(It is without GUI, because we use it with the system account from remote on a commandline. So we don´t need a GUI. For copying/starting the files and so on, I made a GUI, but it is very special and in German, so nearly nobody could use it.
The software we use is Netop / Atos)

I would be happy about some feedback.

So long,

Mega

P.S.: After starting the script it takes some time and then there will be a zip-file in the same folder ...!
 

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1 beta
; Author:        Thorsten Meger
;
; @ CommandLine parameter:
; Null 9 Files (all without folderTree)
; 1.para or 2.para = delete --> PcInfoTM.exe deletes itself
; 1.para or 2.para = folderTree --> all files including folderTree (takes a bit longer)
;
; Script Function:
;
; Gather some information and save them in 1 Zip file (10 txt-files).
; The script is made for supporters. They can gather information about a
; system and send them to the experts. It works on WIN XP SP2.
;
; ToDo: Error --> Logfile & some more information :-)
; ----------------------------------------------------------------------------

#include <Array.au3>
#include <file.au3>
#include <Process.au3>
#NoTrayIcon
$b = TimerInit(); Timer
; Array for the file-names
Dim $avArray[11]; incl Log-File Dim $avArray[12]
$avArray[1] = @ScriptDir & "\" & 'TM_FileAssoziation.txt'
$avArray[2] = @ScriptDir & "\" & 'TM_SystemInfo.txt'
$avArray[3] = @ScriptDir & "\" & 'TM_W
indows.txt'
$avArray[4] = @ScriptDir & "\" & 'TM_Environment.txt'
$avArray[5] = @ScriptDir & "\" & 'TM_ProcessList.txt'
$avArray[6] = @ScriptDir & "\" & 'TM_User.txt'
$avArray[7] = @ScriptDir & "\" & 'TM_AutoStart.txt'
$avArray[8] = @ScriptDir & "\" & 'TM_Software.txt'
$avArray[9] = @ScriptDir & "\" & 'TM_FolderTree.txt'
$avArray[10] = @ScriptDir & "\" & 'TM_HardwareInfo.txt'
;$avArray[11] = @ScriptDir & "\" & 'TM_Log.txt'     # future :-)

$file = FileOpen(@ScriptDir & "\" & 'TM_Software.txt', 2)
$file1 = FileOpen(@ScriptDir & "\" & 'TM_AutoStart.txt', 2)
$file2 = FileOpen(@ScriptDir & "\" & 'TM_User.txt', 2)
$file3 = FileOpen(@ScriptDir & "\" & 'TM_HardwareInfo.txt', 2)
;$file4 = FileOpen(@ScriptDir & "\" & 'TM_Log.txt' , 2)


FileWriteLine($file, "Software-component                                         " & "Version       " & "Publisher         " & "UninstallString")

If $CmdLine[0] > 0 And $CmdLine[1] = "folderTree" Then
    folderTree()
ElseIf $CmdLine[0] > 1 And $CmdLine[2] = "folderTree" Then
    folderTree()            ; tree-command for drive c:\@ProgramFilesDir
EndIf
installedSoftware()      ; Return array with all software intalled on the local system
hwInfo()                    ; Gather some hardware information
ipconfig()                ; ipconfig-command
autoStart()              ; detects the autostart-files
system()                    ; some system information
tasklist()                ; lists the processes
environment()              ; set-command
windows()                  ; some system information
systeminfo()                ; some system information
fileAssoziation()          ; assoziation file to program
FileClose($file)
FileClose($file1)
FileClose($file3)
FileWriteLine($file2, "************************************************************************************************

*****")
FileWriteLine($file2, "The report with PcInfo by Th.Meger took : " & Round(TimerDiff($b)) & " ms")
FileClose($file2)
;FileClose($file4)
If $CmdLine[0] > 0 And $CmdLine[1] = "folderTree" Then
    Sleep(20000)        ; give the system time to complete all the commands
Else
    Sleep(10000)
EndIf
If $CmdLine[0] > 1 And $CmdLine[2] = "folderTree" Then
    Sleep(20000)        ; give the system time to complete all the commands
Else
    Sleep(10000)
EndIf
zipTXT()                    ; zip the nine txt-files
deleteTxtFiles()            ; delete the nine txt-Files
Exit (0)

; ----------------------------------------------------------------------------
; Author:        Thorsten Meger
; Script Function: Func installedSoftware
; ----------------------------------------------------------------------------

Func installedSoftware()
    Local $Count = 1
    Local Const $regkey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'
    
    While 1
        $key = RegEnumKey($regkey, $Count)
        If @error <> 0 Then ExitLoop
        $line = RegRead($regkey & '\' & $key, 'Displayname')
        $line1 = RegRead($regkey & '\' & $key, 'DisplayVersion')
        $line2 = RegRead($regkey & '\' & $key, 'Publisher')
        $line3 = RegRead($regkey & '\' & $key, 'UninstallString')
        $line = StringReplace($line, ' (remove only)', '')
        $line = fullfill(60, $line, ' ')
        $line1 = fullfill(15, $line1, ' ')
        $line2 = fullfill(20, $line2, ' ')
        FileWriteLine($file, $line & $line1 & $line2 & $line3)
        If $line <> '' Then
            If Not IsDeclared('avArray') Then Dim $avArray[1]
            ReDim $avArray[UBound($avArray) + 1]
            $avArray[0] = UBound($avArray) - 1
            $avArray[UBound($avArray) - 1] = $line
        EndIf
        $Count = $Count + 1
    WEnd
    If Not IsDeclared('avArray') Then
        SetError(1)
        Return ('')
    Else
        SetError(0)
        Return ($avArray)
    EndIf
EndFunc  ;==>installedSoftware

; ----------------------------------------------------------------------------
; Author:        Thorsten Meger
; Script Function: Func fullfill
; ----------------------------------------------------------------------------

Func fullfill($maxLength, $string, $fullFillChar)
; $maxLength    = maximum string size
; $fullFillChar = char to fullfill the string
    While 1
        If StringLen($string) < $maxLength Then
            $string = $string & $fullFillChar
            ContinueLoop
        EndIf
        ExitLoop
    WEnd
    Return $string
EndFunc  ;==>fullfill

Func ipconfig()
    Run(@ComSpec & " /c " & "ipconfig /all > " & @ScriptDir & "\" & "TM_IPconfig.txt", "", @SW_HIDE)
EndFunc  ;==>ipconfig

; ----------------------------------------------------------------------------
; Author:        Thorsten Meger
; Script Function: Func autoStart
; ----------------------------------------------------------------------------

Func autoStart()
    Local $Count = 1
    Local Const $regkey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
    
    While 1
        $key = RegEnumVal($regkey, $Count)
        If @error <> 0 Then ExitLoop
        $line = RegRead($regkey, $key)
        FileWriteLine($file1, $line)
        If $line <> '' Then
            If Not IsDeclared('avArray') Then Dim $avArray[1]
            ReDim $avArray[UBound($avArray) + 1]
            $avArray[0] = UBound($avArray) - 1
            $avArray[UBound($avArray) - 1] = $line
        EndIf
        $Count = $Count + 1
    WEnd
    $search = FileFindFirstFile(@StartupCommonDir & "\*.*")
    If $search = -1 Then
        MsgBox(0, "Error", "No files/directories matched the search pattern")
        Exit
    EndIf
    While 1
        $foundFile = FileFindNextFile($search)
        If @error Then ExitLoop
        FileWriteLine($file1, $foundFile)
    WEnd
EndFunc  ;==>autoStart

; ----------------------------------------------------------------------------
; Author:        Thorsten Meger
; Script Function: Func system
; ----------------------------------------------------------------------------

Func system()
    $hdSizeC = DriveSpaceTotal( "c:\")
    $hdFreeSizeC = DriveSpaceFree( "c:\")
    $hdSizeD = DriveSpaceTotal( "d:\")
    $hdFreeSizeD = DriveSpaceFree( "d:\")
    FileWriteLine($file2, _
            "Hostname          : " & @ComputerName & @CRLF _
             & "Domain           : " & @LogonDomain & @CRLF _
             & "LogonServer     : " & @LogonServer & @CRLF _
             & "OS Type         : " & @OSTYPE & @CRLF _
             & "Version         : " & @OSVersion & @CRLF _
             & "ServicePack     : " & @OSServicePack & @CRLF _
             & "Drive C size       : " & Round($hdSizeC) & "MB" & @CRLF _
             & "Drive C free       : " & Round($hdFreeSizeC) & "MB" & @CRLF _
             & "Drive D size       : " & Round($hdSizeD) & "MB" & @CRLF _
             & "Drive D free       : " & Round($hdFreeSizeD) & "MB" & @CRLF _
             & "ScriptStarting User: " & @UserName)
    If IsAdmin() Then
        FileWriteLine($file2, "Account          : Administrator" & @CRLF)
    Else
        FileWriteLine($file2, "Account          : User" & @CRLF)
    EndIf
    $loggedInUser = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\", "AltDefaultUserName")
    FileWriteLine($file2, "Loggedin User      : " & $loggedInUser)
EndFunc  ;==>system

; ----------------------------------------------------------------------------
; Author:        Thorsten Meger
; Script Functions: Functions started in "DOS-Shell"
; ----------------------------------------------------------------------------

Func tasklist()
    Run(@ComSpec & " /c " & "tasklist /v > " & $avArray[5], "", @SW_HIDE)
EndFunc  ;==>tasklist

Func environment()
    Run(@ComSpec & " /c " & "set > " & $avArray[4], "", @SW_HIDE)
    Sleep(200)
    Run(@ComSpec & " /c " & "net use >> " & $avArray[4], "", @SW_HIDE)
EndFunc  ;==>environment

Func windows()
    Run(@ComSpec & " /c " & "netsh diag show os /v > " & $avArray[3], "", @SW_HIDE)
EndFunc  ;==>windows

Func systeminfo()
    Run(@ComSpec & " /c " & "systeminfo.exe > " & $avArray[2], "", @SW_HIDE)
EndFunc  ;==>systeminfo

Func fileAssoziation()
    Run(@ComSpec & " /c " & "assoc > " & $avArray[1], "", @SW_HIDE)
EndFunc  ;==>fileAssoziation

Func folderTree()
    Run(@ComSpec & " /c " & "tree " & @ProgramFilesDir & " /a > " & $avArray[9], "", @SW_HIDE)
EndFunc  ;==>folderTree

Func deleteTxtFiles()
    FileDelete(@ScriptDir & "\TM_*.txt")
EndFunc  ;==>deleteTxtFiles

; ----------------------------------------------------------------------------
; Author:        mozart90 + Thorsten Meger
; Script Function: Easy Zip compression under Win XP
; ----------------------------------------------------------------------------

Func zipTXT()
    $oShell = ObjCreate("Shell.Application")          ; Create s shell Object
    $ZipAchive = @ScriptDir & "\" & 'TM_PCInfo2.0.zip'
    If IsObj($oShell) Then
        initZip($ZipAchive)                        ; Create an emtpy zip file with header
        $oDir = $oShell.NameSpace ($ZipAchive)      ; Use the zip file as an "Folder"
        For $i = 10 To 1 Step - 1
            $oDir.CopyHere ($avArray[$i])            ; Copy the 10 files in the "Zip Folder"
        Next
        Sleep(700)                                  ; Give the Objekt a litte bit time to work
    Else
        MsgBox(0, "Error", "Error creating Object.")
    EndIf
EndFunc  ;==>zipTXT

Func initZip($zip_path_name)
    $init_zipString = Chr(80) & Chr(75) & Chr(5) & Chr(6)  ; Create the Header String
    For $n = 1 To 18
        $init_zipString = $init_zipString & Chr(0)       ; the Header
    Next
    $file = FileOpen($zip_path_name, 2)
    FileWrite($file, $init_zipString)                     ; Write the string in a file
    FileClose($file)
EndFunc  ;==>initZip

; ----------------------------------------------------------------------------
; Author:        Thorsten Meger
; Script Function: _SelfDelete if para "delete" is set as 1st or 2nd para
; ----------------------------------------------------------------------------

Func OnAutoItExit()
    If ($CmdLine[0] > 0 And $CmdLine[1] = "delete") Or ($CmdLine[0] > 1 And $CmdLine[2] = "delete") Then
        _SelfDelete()
    Else
        Exit (0)
    EndIf
EndFunc  ;==>OnAutoItExit

Func _SelfDelete()
    Local $cmdfile
    FileDelete(@TempDir & "\scratch.cmd")
    $cmdfile = ':loop' & @CRLF _
             & 'del "' & @ScriptFullPath & '"' & @CRLF _
             & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
             & 'del ' & @TempDir & '\scratch.cmd'
    FileWrite(@TempDir & "\scratch.cmd", $cmdfile)
    Run(@TempDir & "\scratch.cmd", @TempDir, @SW_HIDE)
EndFunc  ;==>_SelfDelete

; ----------------------------------------------------------------------------
; Author: Chaos2
; Script Function: output basic hardware info
; ----------------------------------------------------------------------------

Func hwInfo()
    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    
    $colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
    $colMemory = $objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
    $colCPU = $objWMIService.ExecQuery ("Select * from CIM_Processor")
    $colVideoinfo = $objWMIService.ExecQuery ("Select * from Win32_VideoController")

    $colSound = $objWMIService.ExecQuery ("Select * from Win32_SoundDevice")
    $colMouse = $objWMIService.ExecQuery ("Select * from Win32_PointingDevice")
    $colMonitor = $objWMIService.ExecQuery ("Select * from Win32_DesktopMonitor")
    $colNIC = $objWMIservice.ExecQuery ("Select * from Win32_NetworkAdapter WHERE Netconnectionstatus = 2")
    Dim $pcinfo
    For $object In $colCPU
        $pcinfo = $pcinfo & StringStripWS($object.Name, 1) & @CRLF
    Next
    
    For $objOperatingSystem In $colSettings
        $pcinfo = $pcinfo & $objOperatingSystem.Caption & " Build " & $objOperatingSystem.BuildNumber & " Servicepack " & $objOperatingSystem.ServicePackMajorVersion & "." & $objOperatingSystem.ServicePackMinorVersion & @CRLF
        $pcinfo = $pcinfo & "Available Physical Memory                   : " & String(Int(Number($objOperatingSystem.FreePhysicalMemory) / 1024)) & " Mb" & @CRLF
    Next
    
    For $object In $colMemory
        $pcinfo = $pcinfo & "Total Physical Memory                       : " & String(Int(Number($object.TotalPhysicalMemory) / (1024 * 1024))) & " Mb" & @CRLF
    Next
    
    $objFSO = ObjCreate("Scripting.FileSystemObject")
    $colDrives = $objFSO.Drives
    
    $Opticaldrives = "Opticaldrives                                       : "
    
    For $object In $colDrives
        If ($object.DriveType == 2) Then
            $pcinfo = $pcinfo & "Total space on                             : " & $object.DriveLetter & ":\  (" & $object.VolumeName & ")  = " & String(Round((Number($object.TotalSize) / (1024 * 1024 * 1024)), 2)) & " Gb" & @CRLF
            $pcinfo = $pcinfo & "Free space on                               : " & $object.DriveLetter & ":\  (" & $object.VolumeName & ")  = " & String(Round((Number($object.FreeSpace) / (1024 * 1024 * 1024)), 2)) & " Gb" & @CRLF
        Else
            $Opticaldrives = $Opticaldrives & $object.DriveLetter & ":\ "
        EndIf
    Next
    
    $pcinfo = $pcinfo & $Opticaldrives & @CRLF
    
    For $object In $colVideoinfo
        $pcinfo = $pcinfo & "Video card                                             : " & $object.Description & @CRLF
    Next
    
    For $object In $colSound
        $pcinfo = $pcinfo & "Sound device                                         : " & $object.Description & @CRLF
    Next
    
    For $object In $colMouse
        $pcinfo = $pcinfo & "Mouse                                       : " & $object.Description & @CRLF
    Next
    
    For $object In $colMonitor
        $pcinfo = $pcinfo & "Monitor                                            : " & $object.Description & @CRLF
    Next
    
    For $object In $colNIC
        $pcinfo = $pcinfo & $object.Name & @CRLF
    Next
    FileWrite($file3, "Hardware Information" & @CRLF & "********************" & @CRLF & @CRLF & $pcinfo)
EndFunc  ;==>hwInfo

PCInfoTM2.0.au3

Edited August 21, 2013 by Xenobiologist

[PerryRaptor]

nice script...

I use a different approach in a Domian Network.

When a user logs onto a workstation a script runs in the all users group. This script does nothing but call a script on a server.

The script on the server handles the RunAs() command and executes to collection of workstation and user information.

[Xenobiologist]

nice script...

I use a different approach in a Domian Network.

When a user logs onto a workstation a script runs in the all users group. This script does nothing but call a script on a server.

The script on the server handles the RunAs() command and executes to collection of workstation and user information.

Thanks, your approach is impossible for me, because I cannot store any file on the client for a long time. More precisely, I just need the script to copy it via ftp to the client, start it on a commandLine as system(account), copy the results back and then delete all my tracks.

After that our supporters are in the posotion to tell our customers on the phone, you are out of support because you changend 1. 2. on the system!

Our supporters love to know things, where the users couldn´t cover the tracks.

So long,

Mega

[Mosquitos]

Hello,

I have only 4 txtfiles in the zipfile.

I dont have the Ipconfig function and the tasklist function i a txtfile.

[Xenobiologist]

Hello,

I have only 4 txtfiles in the zipfile.

I dont have the Ipconfig function and the tasklist function i a txtfile.

Hi,

hmmh - that´s strange? Do you have administrator rights on your machine?

Maybe you are not allowed to do things like:

Func ipconfig()
    Run(@ComSpec & " /c " & "ipconfig /all > " & @ScriptDir & "\" & "TM_IPconfig.txt", "", @SW_HIDE)
EndFunc  ;==>ipconfig

or

Func tasklist()
    Run(@ComSpec & " /c " & "tasklist /v > " & $avArray[5], "", @SW_HIDE)
EndFunc  ;==>tasklist

When you type tasklist /v in a DosBox, does it fail?

Are you using Home Edition?

Greetings and so long,

Mega

[Mosquitos]

Yes i have administrator rights and ipconfig /all and tasklist /v works in dos.

Microsoft Windows XP [versie 5.1.2600]

© Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\Boenders - Van Belle>tasklist /v

Imagenaam Proces Sessienaam Sessienr Geheugengebr Status

Gebruikersnaam CPU-tijd Venstern

aam

========================= ====== ================ ======== ============ ========

======= ================================================== ============ ========

================================================================

System Idle Process 0 Console 0 16 kB Actief

NT AUTHORITY\SYSTEM 19:12:22 n.v.t.

System 4 Console 0 140 kB Actief

NT AUTHORITY\SYSTEM 0:02:34 n.v.t.

smss.exe 612 Console 0 108 kB Actief

NT AUTHORITY\SYSTEM 0:00:03 n.v.t.

csrss.exe 956 Console 0 2.664 kB Actief

NT AUTHORITY\SYSTEM 0:00:43 n.v.t.

winlogon.exe 980 Console 0 2.684 kB Actief

NT AUTHORITY\SYSTEM 0:00:05 n.v.t.

services.exe 1024 Console 0 2.096 kB Actief

NT AUTHORITY\SYSTEM 0:00:38 n.v.t.

lsass.exe 1036 Console 0 1.404 kB Actief

NT AUTHORITY\SYSTEM 0:00:04 n.v.t.

svchost.exe 1208 Console 0 1.928 kB Actief

NT AUTHORITY\SYSTEM 0:00:00 n.v.t.

svchost.exe 1300 Console 0 1.732 kB Actief

NT AUTHORITY\Netwerkservice 0:00:03 n.v.t.

svchost.exe 1424 Console 0 17.600 kB Actief

NT AUTHORITY\SYSTEM 0:00:53 n.v.t.

svchost.exe 1532 Console 0 3.784 kB Actief

NT AUTHORITY\Netwerkservice 0:01:51 n.v.t.

svchost.exe 1624 Console 0 1.328 kB Actief

NT AUTHORITY\Lokale service 0:00:00 n.v.t.

spoolsv.exe 1900 Console 0 1.728 kB Actief

NT AUTHORITY\SYSTEM 0:00:00 n.v.t.

explorer.exe 300 Console 0 16.244 kB Actief

BOENDERS\Boenders - Van Belle 0:03:14 n.v.t.

DadApp.exe 376 Console 0 584 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 Dell Acc

essDirect App

SynTPLpr.exe 384 Console 0 648 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 TouchPad

object helper window

SynTPEnh.exe 388 Console 0 1.868 kB Actief

BOENDERS\Boenders - Van Belle 0:00:04 TouchPad

object helper window

quickset.exe 440 Console 0 1.008 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 QuickSet

dadtray.exe 444 Console 0 552 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 DadTray

BCMSMMSG.exe 492 Console 0 392 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 BCM V.92

56K Modem Monitor

bdoesrv.exe 600 Console 0 528 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 n.v.t.

bdnagent.exe 628 Console 0 588 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 n.v.t.

bdswitch.exe 636 Console 0 452 kB Actief

BOENDERS\Boenders - Van Belle 0:00:01 BD Switc

h Agent

MsgPlus.exe 656 Console 0 892 kB Actief

BOENDERS\Boenders - Van Belle 0:00:01 MPWnd_Ho

oker

jusched.exe 664 Console 0 396 kB Actief

BOENDERS\Boenders - Van Belle 0:00:01 OleMainT

hreadWndName

acrotray.exe 668 Console 0 784 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 AcrobatT

rayIcon

LVCOMSX.EXE 688 Console 0 1.260 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 LVComSXW

nd

LogiTray.exe 716 Console 0 2.048 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 QuickCam

DVDLauncher.exe 724 Console 0 768 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 DVDLaunc

her

PCMService.exe 732 Console 0 4.240 kB Actief

BOENDERS\Boenders - Van Belle 0:00:03 Dummy Mi

xer CallBack Window

hpwuSchd2.exe 744 Console 0 516 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 HPWU

SpySweeper.exe 752 Console 0 5.816 kB Actief

BOENDERS\Boenders - Van Belle 0:00:07 n.v.t.

gcasServ.exe 824 Console 0 3.432 kB Actief

BOENDERS\Boenders - Van Belle 0:04:15 n.v.t.

I8kfanGUI.exe 840 Console 0 1.532 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 Dell Ins

piron 8000/8100/8200 fan control V2.2.0 - © 2004 by C. Diefer

LogitechDesktopMessenger. 864 Console 0 3.216 kB Actief

BOENDERS\Boenders - Van Belle 0:00:03 Logitech

Desktop Messenger Agent

isp.exe 884 Console 0 8.952 kB Actief

BOENDERS\Boenders - Van Belle 0:02:23 ISPMonit

or

FxSvr2.exe 888 Console 0 2.156 kB Actief

BOENDERS\Boenders - Van Belle 0:00:01 medusa_c

allbackpostmessage_579D20BC-1CFA-46b9-8A42-9D244829ABB5

TeaTimer.exe 852 Console 0 6.368 kB Actief

BOENDERS\Boenders - Van Belle 0:10:35 Spybot -

Search & Destroy

wwDisp.exe 556 Console 0 3.008 kB Actief

BOENDERS\Boenders - Van Belle 0:00:02 n.v.t.

gcasDtServ.exe 1248 Console 0 8.108 kB Actief

BOENDERS\Boenders - Van Belle 0:00:45 n.v.t.

nvsvc32.exe 1856 Console 0 684 kB Actief

NT AUTHORITY\SYSTEM 0:00:00 NVSVCPMM

WindowClass

StarWindService.exe 1844 Console 0 392 kB Actief

NT AUTHORITY\SYSTEM 0:00:00 n.v.t.

svchost.exe 496 Console 0 2.056 kB Actief

NT AUTHORITY\SYSTEM 0:00:02 n.v.t.

hpqtra08.exe 2220 Console 0 3.564 kB Actief

BOENDERS\Boenders - Van Belle 0:00:02 n.v.t.

hpqste08.exe 2572 Console 0 4.744 kB Actief

BOENDERS\Boenders - Van Belle 0:00:01 n.v.t.

hpqimzone.exe 2680 Console 0 3.180 kB Actief

BOENDERS\Boenders - Van Belle 0:00:02 n.v.t.

wdfmgr.exe 2752 Console 0 368 kB Actief

NT AUTHORITY\Lokale service 0:00:00 n.v.t.

wwSecure.exe 2812 Console 0 880 kB Actief

NT AUTHORITY\SYSTEM 0:00:00 n.v.t.

xcommsvr.exe 2928 Console 0 828 kB Actief

NT AUTHORITY\SYSTEM 0:00:00 n.v.t.

WRSSSDK.exe 3932 Console 0 6.980 kB Actief

NT AUTHORITY\SYSTEM 0:05:50 n.v.t.

hprblog.exe 2420 Console 0 668 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 OleMainT

hreadWndName

alg.exe 948 Console 0 1.080 kB Actief

NT AUTHORITY\Lokale service 0:00:00 n.v.t.

FirefoxPreloader.exe 4616 Console 0 2.216 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 Firefox

Preloader

firefox.exe 4928 Console 0 65.180 kB Actief

BOENDERS\Boenders - Van Belle 0:04:05 PCInfo w

ithout GUI - AutoIt Forums - Mozilla Firefox

livesrv.exe 5196 Console 0 2.784 kB Actief

NT AUTHORITY\SYSTEM 0:00:02 n.v.t.

bdss.exe 5916 Console 0 21.036 kB Actief

NT AUTHORITY\SYSTEM 0:03:23 n.v.t.

vsserv.exe 5508 Console 0 8.956 kB Actief

NT AUTHORITY\SYSTEM 0:00:23 n.v.t.

bdmcon.exe 2552 Console 0 12.760 kB Actief

BOENDERS\Boenders - Van Belle 0:00:22 BitDefen

der Firewall-waarschuwing

cmd.exe 6856 Console 0 2.540 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 C:\WINDO

WS\system32\cmd.exe - tasklist /v

tasklist.exe 6400 Console 0 5.512 kB Actief

BOENDERS\Boenders - Van Belle 0:00:00 OleMainT

hreadWndName

wmiprvse.exe 6724 Console 0 5.544 kB Actief

NT AUTHORITY\Netwerkservice 0:00:00 n.v.t.

[314]

hey man while trying to runt this i got this error

>"G:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "G:\au3\tut's\pc_info.au3" /autoit3dir "C:\Program Files\AutoIt3" /UserParams

>Running AU3Check params: from:G:\Program Files\AutoIt3\SciTE\au3check\

+>AU3Check ended.rc:0

>Running:(3.1.1.0):G:\Program Files\AutoIt3\autoit3.exe "G:\au3\tut's\pc_info.au3"

G:\au3\tut's\pc_info.au3 (306) : ==> Unable to parse line.:

$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

$colSettings = $objWMIService.E^ ERROR

->AutoIT3.exe ended.rc:1

>Exit code: 1 Time: 3.449

a lil help please

[Xenobiologist]

HI,

try run with beta.

So long,

Mega

[marfdaman]

Works well, though I think the people who will be helped with this tool would be glad to see at least a progress bar so they know your program is actually doing something, even while you say you don't want a GUI...just a suggestion...

[Xenobiologist]

Works well, though I think the people who will be helped with this tool would be glad to see at least a progress bar so they know your program is actually doing something, even while you say you don't want a GUI...just a suggestion...

HI,

thats the trick. I don't want them to show anything. The users shouldn't even recognize that I do something.

I connect to a remote client, copy the script, run it with system account rights, copy the zip back and delete the script.exe.

Of course I've written a script for that, too.

Just call it with the ip or hostname as a parameter et voila.

That's all. The progress bar for the complete process is included in the calling script, so that the helper gets informed about what is going on in the background of the users computer.

So long,

Mega

[marfdaman]

Haha ok, skip it then!

Just out of curiousity, why can the users not even know it is being run?

[Xenobiologist]

Haha ok, skip it then!

Just out of curiousity, why can the users not even know it is being run?

Hi,

because if the helpdesk people need some time to fix a problem, they run the script and look for some unsupported software or something else. Then say ask : Sorry, may it be true that you have installed ... ? They already know it, because of the output of the script Then they ' ve got some time ...

I think you know this game.

The users shouldn't get aware of the things how the helpdesk man got these infos.

So long,

Mega