Admin Tool

GaryFrost · October 12, 2005

This started as a way to learn more about wmi and ldap

Removed any info pertaining to my work-place, so info in ini will need to be changed

The ldap method worked, but was to slow amongst other things, so used net view to

get the browser info for systems online on the domain, haven't had time to figure out

a better way (maybe active directory)

link to external free tools used Sysinternals PSTools

Currently it (requires beta)

gets the list of pc's online on domain and populates a listview

populates 6 listviews

Tab 1:

Software that can be removed via msiexec command silently and remotely (right click,

select uninstall) (list populated using wmi)

Tab 2:

List of PID, process names, and paths, and (right click, select kill "uses wmi") remote

process (list populated using wmi)

Tab 3:

Services (list populated using wmi) (right click, select stop/start/pause/restart/delete service

using wmi)

Tab 4:

Some system info in editbox

List of Logged on users (using psloggedon from sysinternals)

Drive information (Drive Letter, type, size, free space, format type i.e ntfs using wmi), right

clicking on drive can explore remote drive (configured in ini to use iexplorer))

Tab 5:

List of all applications installed on the remote machine (using psinfo from sysinternals)

Plan on adding more, for example export of data.

Comments/suggestions/improvements are most welcome.

CODE

Edit: v1.9.1.4

Fixed up the IP Range Filtering Function (back-spacing, tabs, length)

Also fixed so that Filter is updated imediatly so that refresh can be done right away.

Edit: v1.9.1.3

Added IP Range Filtering

Edit: v1.9.1.2

Added a couple of context menu items, look for them in the machine list

Some code optimization, also took some of the code out of the main loop and put into functions

Edit: v1.9.1.1

Ping time out configurable

Checks to see what $Domain is, if it is equal to "your-domain" then

the domain configscreen will pop up (doesn't populate machine list

if it is equal to "your-domain").

Must change to your domains name.

Context menu for populate software instead of $GUI_EVENT_PRIMARYDOWN

Selecting machine through search does not automatically populate pc info anymore

(might have populate for one not wanted)

If machine filter changes, no longer automatically re-populates list, will have to

selectRefresh Machine List from context menu

Edit: v1.9.1.0

User now has choice of retrieving list of pcs by either ldap or net view, select config menu

some internal changes.

Edit: v1.9:

I replaced the net view with the retrievial of the pcs with ldap

Added the ip address to the machine list

All pcs will have the offline icon at this time, select one if it is pingable it changes the

icon to online

Edit:

corrected error with context menu on services

Edit: v1.8

added Change Start Mode to Services (Boot,System,Automatic,Manual,Disabled)

Edit: v1.7

now using all wmi for process and service tabs, no longer need pskill and psservice

from sysinternals, Changed from label to editbox read-only for system info on Tab 4

Edit: v1.6

since there seems to be some interest (47 downloads of 1st version) I decided to put

the latest up, added all the files need from sysinternals into the zip file.

Enjoy,

Gary

Edited December 28, 2012 by Jon

archrival · October 12, 2005

I did something like this a year ago, I haven't updated it in a while, although someone asked me to post the scripts again because the file manager no longer had them. It was pretty similar to this.

Domain PC Info

Rahul Rohela · October 14, 2005

Please post complete topic..

Or GUIListview.au3 file

GaryFrost · October 14, 2005

Please post complete topic..
Or GUIListview.au3 file

Beta

DaveF · October 14, 2005

This is pretty lavish, Gary. Nice work!

Comments/suggestions/improvements are most welcome.
Gary

StdoutRead makes everything better. I don't know if the Sysinternals tools use STDERR in the case of a problem (surely they do) but you could read the native error message with StderrRead if that were the case...

GaryFrost · October 14, 2005

This is pretty lavish, Gary. Nice work!
StdoutRead makes everything better. I don't know if the Sysinternals tools use STDERR in the case of a problem (surely they do) but you could read the native error message with StderrRead if that were the case...

Thanks

I forced one of the tools to error, but stderr didn't get any info

Updated AdminTool, see first post

Gary

Edited October 14, 2005 by gafrost

GaryFrost · October 14, 2005

v1.7 now using all wmi for process and service tabs, no longer need pskill and psservice from sysinternals

see 1st post

Enjoy,

Gary

BigDod · October 14, 2005

v1.7 now using all wmi for process and service tabs, no longer need pskill and psservice from sysinternals
see 1st post
Enjoy,
Gary

Is there an easy way to get it to work on a workgroup instead of a domain. All my customers use peer to peer networks as they are not large enough to require servers.

GaryFrost · October 14, 2005

I tried it at home (no domain), just MyHome workgroup, and it worked

BigDod · October 14, 2005

I tried it at home (no domain), just MyHome workgroup, and it worked

I must be doing something wrong, I will try again.

Edit

I have tried it again and it sees all three computers. It comes up with an error on one computer (see attached). It also cant ping the computer it is running on.

Edited October 14, 2005 by BigDod

GaryFrost · October 14, 2005

I was wrong, thought i had to setup this network up in workgroup, but it's a domain thru my router.

GaryFrost · October 14, 2005

v1.8 added Change Start Mode to Services (Boot,System,Automatic,Manual,Disabled)

Adding as I learn/figure things out.

see 1st post

Valuater · October 15, 2005

First

Looks real nice gafrost.... good job

Second

it did not work for me

Win Xp SP2

Shared network through router

I use "net send" and that works

Third

I tried this and it worked inside your script ... but still no info ???

I added these to your existing script because I did not know the answer to "your-domain"

Global Const $wbemFlagForwardOnly = 0x20
Dim $set_Domain, $s_Domain; ************ added this line
opt('MustDeclareVars', 1)

*************************** and *********************************

If $s_Domain = "your-domain" Then;*************** added from here
        Set_Domain()
        Local $domain_input = GUICtrlCreateCombo("your-domain", 20, 40, 250, 20)
        GUICtrlSetState(-1,$GUI_FOCUS) 
        GUICtrlSetData(-1,$set_Domain)
    Else    
        Local $domain_input = GUICtrlCreateInput($s_Domain, 20, 40, 250, 20)
    EndIf;**************to here
    $Save = GUICtrlCreateButton("Save", 20, 100, 120, 25)
    $CLOSE = GUICtrlCreateButton("Close", 160, 100, 120, 25)
    GUISetState()


************************* and ***********************************

; **************************** all of this function below

Func Set_Domain()

    Local $file, $line, $result, $blankpos,  $len
;delete last listing
Filedelete(@TempDir & "\b.tmp")

; make sure net send is running
RunWait("net start messenger","",@SW_HIDE)

;gets the computer list and a few other things
RunWait(@ComSpec & ' /c net view > ' & @TempDir & '\a.tmp',"", @SW_HIDE)
Sleep(300)
;open the file for working
$file = FileOpen(@TempDir & "\a.tmp", 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "QT - Error", "Unable to open file.")
    Exit
EndIf

;Creates new file in which the result will be written
FileOpen(@TempDir & "\b.tmp", 1)

; Read in lines of text until the EOF is reached in file a.tmp
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
  ;find the string "\\"
    $result = StringInStr($line,"\\")
      if $result = 1 Then 
     ;find next blank
      $blankpos = StringInStr($line," ")
    ;Find length of line
      $len = StringLen($line)
    ;calculate from what position to Trim string to the right
      $len = $len - $blankpos
    ;Trim all characters after the computer name
      $line = StringTrimRight($line, $len)
    ;Trim the //
      $line = StringTrimLeft($line,2)
    ;Write line to file, adding "|"
      FileWrite(@TempDir & "\b.tmp", $line & "|")
      EndIf

Wend

FileClose($file)
FileDelete(@TempDir & "\a.tmp")
$set_Domain = FileReadline(@TempDir & "\b.tmp", 1)


EndFunc

it worked... gave me choices and no errors... i saved it... closed it....

and again no info????

8)

GaryFrost · October 15, 2005

First

Looks real nice gafrost.... good job

Second

it did not work for me

Win Xp SP2

Shared network through router

I use "net send" and that works

Third

I tried this and it worked inside your script ... but still no info ???

I added these to your existing script because I did not know the answer to "your-domain"

Global Const $wbemFlagForwardOnly = 0x20
Dim $set_Domain, $s_Domain; ************ added this line
opt('MustDeclareVars', 1)

*************************** and *********************************

If $s_Domain = "your-domain" Then;*************** added from here
        Set_Domain()
        Local $domain_input = GUICtrlCreateCombo("your-domain", 20, 40, 250, 20)
        GUICtrlSetState(-1,$GUI_FOCUS) 
        GUICtrlSetData(-1,$set_Domain)
    Else    
        Local $domain_input = GUICtrlCreateInput($s_Domain, 20, 40, 250, 20)
    EndIf;**************to here
    $Save = GUICtrlCreateButton("Save", 20, 100, 120, 25)
    $CLOSE = GUICtrlCreateButton("Close", 160, 100, 120, 25)
    GUISetState()


************************* and ***********************************

; **************************** all of this function below

Func Set_Domain()

    Local $file, $line, $result, $blankpos,  $len
;delete last listing
Filedelete(@TempDir & "\b.tmp")

; make sure net send is running
RunWait("net start messenger","",@SW_HIDE)

;gets the computer list and a few other things
RunWait(@ComSpec & ' /c net view > ' & @TempDir & '\a.tmp',"", @SW_HIDE)
Sleep(300)
;open the file for working
$file = FileOpen(@TempDir & "\a.tmp", 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "QT - Error", "Unable to open file.")
    Exit
EndIf

;Creates new file in which the result will be written
FileOpen(@TempDir & "\b.tmp", 1)

; Read in lines of text until the EOF is reached in file a.tmp
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
;find the string "\\"
    $result = StringInStr($line,"\\")
      if $result = 1 Then 
    ;find next blank
      $blankpos = StringInStr($line," ")
  ;Find length of line
      $len = StringLen($line)
  ;calculate from what position to Trim string to the right
      $len = $len - $blankpos
  ;Trim all characters after the computer name
      $line = StringTrimRight($line, $len)
  ;Trim the //
      $line = StringTrimLeft($line,2)
  ;Write line to file, adding "|"
      FileWrite(@TempDir & "\b.tmp", $line & "|")
      EndIf

Wend

FileClose($file)
FileDelete(@TempDir & "\a.tmp")
$set_Domain = FileReadline(@TempDir & "\b.tmp", 1)


EndFunc

it worked... gave me choices and no errors... i saved it... closed it....

and again no info????

8)

no need to add to script, i just put a dummy domain name in the ini, either edit the ini and change to name of your domain or load program, because domain doesn't exist will take a few moments to finish loading

then select config, domain, then change it to your domain name

This has only been tested on WinXP Pro SP2 on a domain.

Gary

Edited October 26, 2005 by gafrost

Valuater · October 15, 2005

then... it wont work i guess

Win Xp Home Sp2

Shared access ( hand under hard-drives)

net-send working

anything i can try

?

8)

GaryFrost · October 15, 2005

try commenting out the

If $ping_time Then

and corresponding endif's

ping might be the problem, had that problem on one of my machines here at home, turned off the software firewall for a minute and the ping worked.

Valuater · October 15, 2005

i did this...no errors, but no info

 Local $ping_time = Ping($s_Machine)                     ;If $ping_time Then                        GUICtrlSetData($Status, $s_Machine & " roundtrip was:" & $ping_time & " ms")                        _GUICtrlListViewDeleteAllItems ($lv_software)                        _GUICtrlListViewDeleteAllItems ($lv_allsoftware)                        _GUICtrlListViewDeleteAllItems ($lv_pid)                        _GUICtrlListViewDeleteAllItems ($lv_services)                        _GUICtrlListViewDeleteAllItems ($lv_drives)                        _GUICtrlListViewDeleteAllItems ($lv_loggedin)                        GUICtrlSetData($Status, "Getting Role: " & $s_Machine)                        GUICtrlSetImage(_GUICtrlListViewGetItemText ($lv_pcs, -1, 1), @ScriptDir & "\OnLine.ico")                        GUISetState(@SW_LOCK)                        _GetRole ($s_Machine, $Status)                        GUISetState(@SW_UNLOCK)                        GUISetState(@SW_LOCK)                        _RetrieveSoftware ($lv_software, $s_Machine)                        _RetrieveAllSoftware ($lv_allsoftware, $s_Machine)                        _RetieveOSInfo ($eb_system, $s_Machine)                        _RetrieveProcessList ($lv_pid, $s_Machine)                        _RetrieveServices ($lv_services, $s_Machine)                        _RetrieveLoggedInUsers ($lv_loggedin, $s_Machine)                        _DriveInfo ($lv_drives, $s_Machine)                        GUISetState(@SW_UNLOCK)                    ; Else                        ;GUICtrlSetData($Status, $s_Machine & " is Offline")                        ;GUICtrlSetImage(_GUICtrlListViewGetItemText ($lv_pcs, -1, 1), @ScriptDir & "\OffLine.ico")                    ; EndIf                     GUISetCursor($Cursor_ARROW, 1)                  EndIf[code=auto:0]8)


            
                


    Edited October 15, 2005 by Valuater
    
    

            
        

        

        
            

    
        

        
            
        
    

        
    

    

    




    Link to comment
    
        
    
    
    

    
    Share on other sites
    

    
        
            

    

        
            

    

        
            

    

        
            

    

        
    


    
    More sharing options...

    


    

                    
                    
                    
                

                    

                    
                    





    

    

    
        
            
                


    
        
    

                
                
                    
                        

                    
                
            
        
        
            
                


Valuater
            
            
                Posted October 15, 2005
                
            
        
    
    
        


Valuater
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                MVPs
                
                    
                
            
            
                
                    
                        
                            
                                
                            
                                 11.1k
                            
                                
                            
                        
                        
                            
                                
                                    
                                        
                                        7
                                
                                    
                                
                            
                        
                    
                
            
            
                

            
        
    
    
        



    
        
            
                
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                            Share
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
            Posted October 15, 2005
            
            
                
                    (edited)
                
                
            
        
    

    

    

    
        
        
            this worked... no error

$var = Ping("BLINGBLING",250)
If $var Then; also possible:  If @error = 0 Then ...
    Msgbox(0,"Status","Online, roundtrip was:" & $var)
Else
    Msgbox(0,"Status","An error occured with number: " & @error)
EndIf

8)

EDIT

it also worked on my other two computers from BLINGBLING running the script

Edited October 15, 2005 by Valuater

GaryFrost · October 15, 2005

Are you getting a list of pcs in the left list?

if not, then try the following replacing MyHome with your domain name

net view /domain:MyHome

if so then try the following replacing GAF with your machine name:

Global Const $wbemFlagReturnImmediately = 0x10
Global Const $wbemFlagForwardOnly = 0x20
$s_Machine = "GAF"

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $s_Machine & "\root\cimv2")
If @error Then
 MsgBox(16, "Test wmi", "ObjGet Error: winmgmts")
 Exit
EndIf
$colSoftware = $objWMIService.ExecQuery ("Select * from Win32_Product", "WQL", _
  $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If @error Then
 MsgBox(16, "Test wmi", "ExecQuery Error: Select * from Win32_Product")
 Exit
EndIf
For $objSoftware In $colSoftware
 If $objSoftware.Caption <> "0" Then
  MsgBox(0, "Test wmi", "Caption: " & $objSoftware.Caption & @LF & _
    "Version: " & $objSoftware.Version & @LF & _
    "IdentifyingNumber: " & $objSoftware.IdentifyingNumber)
 EndIf
Next

Valuater · October 15, 2005

OK... we got some where

i changed this... net view /domain:MyHome

to my local network name

And **** Admin Tools **** worked

i got the three comp pics on the left and it gave me the info for BLINGBLING

... but it says "Unable to retrieve Role" at the bottom of the screen

****** then

i tried to get info on another comuter and it keep locking up with error messages... this is the first one

then the ProcessList error

then i had to hard stop it with ctrl-alt-del

but thats progress... right??

8)

.

ALSO

Your code above worked with BLINGBLING

Edited October 15, 2005 by Valuater

Admin Tool

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

GaryFrost

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members