Xenobiologist Posted February 4, 2006 Posted February 4, 2006 (edited) 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 Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times
PerryRaptor Posted February 4, 2006 Posted February 4, 2006 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 Posted February 5, 2006 Author Posted February 5, 2006 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 Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times
Mosquitos Posted March 7, 2006 Posted March 7, 2006 Hello, I have only 4 txtfiles in the zipfile. I dont have the Ipconfig function and the tasklist function i a txtfile. Sapiente vince, rex, noli vincere ferro!
Xenobiologist Posted March 7, 2006 Author Posted March 7, 2006 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 Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times
Mosquitos Posted March 7, 2006 Posted March 7, 2006 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. Sapiente vince, rex, noli vincere ferro!
314 Posted June 8, 2006 Posted June 8, 2006 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 Posted June 8, 2006 Author Posted June 8, 2006 HI, try run with beta. So long, Mega Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times
marfdaman Posted June 8, 2006 Posted June 8, 2006 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... Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Xenobiologist Posted June 8, 2006 Author Posted June 8, 2006 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 Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times
marfdaman Posted June 8, 2006 Posted June 8, 2006 Haha ok, skip it then! Just out of curiousity, why can the users not even know it is being run? Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Xenobiologist Posted June 8, 2006 Author Posted June 8, 2006 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 Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now