14 replies to this topic

[archrival]

I finished the first draft of my Domain PC Info program. Unfortunately it uses way too much vbscript. But at the moment, AutoIt doesn't do what I need. I'm not doubting it will in the future though! Ok. Here's what this is. It will display all the machine names in your domain in a listbox, you can click on the machine name and it will tell you the OS, Service Pack, IP address, installation date and the currently logged on user. That's mostly retrieved via VB Script. After displaying that information, it presents you with a list of all of the services on that remote machine. From there you can get the current status of the service, start and stop them. I have plans for more in the future, but this is what I've done in my free time over the last week here at work. I'm also embarassed by my code, but it works and that was my goal for now. It performs very few checks and I'm sure it doesn't work too well on a 95/98/Me machine or on a machine not on a domain, it will eventually.

Edit:
Here's an extracted version from the compiled version I had lying around, it contains all of the includes, but at least it's a start. My current version is all mangled up right now, I'm rewriting all of the vb script, removing temp file output, improving existing functions. Don't have much time to work on it though. I've now posted enough that you should be able to get this working.

 domainview1.au3   36.84K   1726 downloads

 subnet.au3   3.77K   1158 downloads
 services_net.au3   18.22K   1106 downloads
 AU3XtraTest.dll   5.5K   902 downloads

Edited by archrival, 17 October 2005 - 03:09 PM.

[archrival]

Updated Services Interface, looks a little prettier. Is there any interest in something like this? I have plans to add retrieval of much more windows and hardware information and the ability to disable a service, search for what machines a user is logged on to, remove hardware from Device Manager, etc. I know there are other tools out there that do this, but I didn't write them and I'm doing this for me at first and if anyone else is interested or has feature requests I will add them. I haven't implemented any sanity checks yet, I've had reports of it going full screen without the possibility of being resized and the progress bar doesn't always fill 100%, I added it for the odd case that you have 4000 machines in your domain and the list takes a little while to finish, you'll at least have some sort of a clue as to how much longer you have to wait for the list to finish.

[Tom]

Very well done. Seems to work nice & fast. The only nit I have seen so far is the progress bar not completing. Thanks for sharing your code.

Edited by Tom, 22 December 2004 - 04:33 PM.

[BasicOs]

Very well done. Seems to work nice & fast. The only nit I have seen so far is the progress bar not completing. Thanks for sharing your code.

<{POST_SNAPBACK}>

the progress bar is not a problem, more, it could be nice to order by active and inactive services, and have or hidden microsoft or not microsoft services in the list.
Thanks

[afsar]

I finished the first draft of my Domain PC Info program. Unfortunately it uses way too much vbscript. But at the moment, AutoIt doesn't do what I need. I'm not doubting it will in the future though! Ok. Here's what this is. It will display all the machine names in your domain in a listbox, you can click on the machine name and it will tell you the OS, Service Pack, IP address, installation date and the currently logged on user. That's mostly retrieved via VB Script. After displaying that information, it presents you with a list of all of the services on that remote machine. From there you can get the current status of the service, start and stop them. I have plans for more in the future, but this is what I've done in my free time over the last week here at work. I'm also embarassed by my code, but it works and that was my goal for now. It performs very few checks and I'm sure it doesn't work too well on a 95/98/Me machine or on a machine not on a domain, it will eventually.

Here's a sample of the new output, it's a little more refined:


Edit:
Changed to links to AutoIt Source

Compiled exe:
http://www.autoitscript.com/fileman/users/public/archrival/domainview.exe

AutoIt Source
http://www.autoitscript.com/fileman/users/public/archrival/domainview.au3

Remote Services UDF by pacman
http://www.autoitscript.com/fileman/users/public/archrival/services-net.au3

My sloppily thrown together but functional vb scripts.
http://www.autoitscript.com/fileman/users/public/archrival/vbscript.au3

hi,

can u post again the domainview.au3 file again..

when i try to view it is not opening..

thanx
bye
Afsar

[MSLx Fanboy]

Yea, I'm getting 404 errors on the au3 scripts

[w0uter]

the old fileman got relocated during the last "attacks"
these links where made on Dec 23 2004.

(i dont know if they are still on the old file-man though)

[Wooltown]

Archrival !

Can you submit your scripts again, it looks like the script i am looking for.


Regards
Sven

[archrival]

Archrival !

Can you submit your scripts again, it looks like the script i am looking for.
Regards
Sven

Sure, I'll remove the vbscript stuff and make sure it's up to date with the current autoit state. Give me a little time to convert it.

[archrival]

Sure, I'll remove the vbscript stuff and make sure it's up to date with the current autoit state. Give me a little time to convert it.

Posted original source in first post on this topic.

[ptrex]

Hey Guys, this might inspire you all.

This is the Free Swiss Army knfe !!!

System Information for Windows


Btw nice job archrival

[tazdev]

AutoIT will do a quick and dirty Software inventory to a TXT file:

Plain Text        expandcollapse  popup

func appsinvlocal()
    $y = 1
    $k = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    $pcl = StringLeft(@Computername, 2)
    $d = ( @MON & "\" & @MDAY & "\" & @YEAR & " - " & @HOUR & ":" & @MIN)
    $li386 = ("C:\I386")
    $fn = (@TempDir & "\" & @ComputerName & "-programs.txt")
    If FileExists( $fn ) then
        FileDelete( $fn )
    EndIf
    $f = FileOpen( $fn, 1)
; Check if file opened for writing OK
    If $f = -1 Then
        Exit
    EndIf
    FileWrite($f, $d & @CRLF)
    Do
        $a = RegEnumKey($k, $y);gets the key
        $as = Stringleft($a, 1)
        $sv = RegRead($k & "\" & $a, "DisplayVersion")
        $sn = RegRead($k & "\" & $a , "DisplayName")
        If $as = "{" then
            $y = $y + 1
            $a2 = ($sn & " - " & $sv)
            FileWrite($f, $y & " - App: " & $a2 & @CRLF)
        Else
            If $a = "" Then
                FileWrite($f, @CRLF)
                $y = $y + 1
            Else
                FileWrite($f, $y & " - App: " & $a & " - " & $sv & @CRLF)
                $y = $y + 1
            EndIf
        EndIf
    Until $a = ""
    FileClose($f)
EndFunc

I use this to create a text file in the I386 folder based on the PC's name. It will list all the apps that the registry has listed in it. With some tweaking you could make this work from your PC to a remote PC if you wanted but you would need to change a couple of vars.

Edited by tazdev, 12 October 2005 - 07:55 PM.

[Rahul Rohela]

Its not working showing error
Line 830 (File "c:\Domain\Domainview.au3")

$netview[$i] = ($aDllRet[1] & @LF)
^Error
Error: Array variable has incorrect number of subscripts or subscript diamaension range exceeded..

Please post new files...

[RagnaroktA]

I'm showing an error while running...

Line 25 (File "C:\DevLib\Tools\DomainView\Subnet.au3"):

$netmaskdec = ($netmaskarray[1] * 16777216) + ($netmaskarray[2] * 65536) + ($netmaskarray[3] * 256 + $netmaskarray[4]
$netmaskdec = ($netmaskarray[1] * 16777216) + (^ERROR

Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

I havent modified any of the posted scripts... has anyone else had a problem with them?

[feilong]

Thinks for sharing your code Archrival.

I have search this sort of code since long time.