Admin Tool

[Amaruq]

Thanks gafrost !

I haven't been able to check that cause I haven't been able to select a PC yet due to the problem posted.

But good to know it is in there

[RagnaroktA]

The latest and greatest: v2.1.5

Hint: If you have thousands of computers joined to your domain, export and modify the computer list to reflect only the computers you want to view. I'll add in a feature to add single computer names etc, but lately I've not had time to work on this.

Included in the .zip is the installer package. If you want source, I'll post that too. The installer includes a readme, and the readme states what features are not yet implimented. Let me know what you think, or if you have any suggestions for improvement.

Gary, what do you think?

Scott

[GaryFrost]

The latest and greatest: v2.1.5

Hint: If you have thousands of computers joined to your domain, export and modify the computer list to reflect only the computers you want to view. I'll add in a feature to add single computer names etc, but lately I've not had time to work on this.

Included in the .zip is the installer package. If you want source, I'll post that too. The installer includes a readme, and the readme states what features are not yet implimented. Let me know what you think, or if you have any suggestions for improvement.

Gary, what do you think?

Scott

I would like to see the source, from what I seen of the earlier version it was looking good, had some quirks, but nothing that couldn't be worked if they hadn't been.

Gary

[RagnaroktA]

I would like to see the source, from what I seen of the earlier version it was looking good, had some quirks, but nothing that couldn't be worked if they hadn't been.

Gary

I forgot to attach the source... hah, sorry. Yeah, it's got a few minor problems, and alot of addittions left unfinished, but it's getting there. Source and all icons used are linked in the zip. I couldnt attach the files, as they came out too large.

Scott

http://www.torz.org/rags/Upload/Administration%20Tool.zip

Edited January 13, 2006 by RagnaroktA

[Rahul Rohela]

I forgot to attach the source... hah, sorry. Yeah, it's got a few minor problems, and alot of addittions left unfinished, but it's getting there. Source and all icons used are linked in the zip. I couldnt attach the files, as they came out too large.

Scott

http://www.torz.org/rags/Upload/Administration%20Tool.zip

Given Source is not working.. Doing nothing... No errors..

Nothing appearing on screen.

[RagnaroktA]

Given Source is not working.. Doing nothing... No errors..

Nothing appearing on screen.

Is it possible that you have another instance open? The program will check to see if another copy is open (even minimized in the system tray) and if it finds one, it will exit. Is anyone else having this problem?

Scott

Edit: I've updated the source to pop a message box if the program is running, just in case.

Edited January 17, 2006 by RagnaroktA

[Rahul Rohela]

Hi please check this error.. & correct it in yours source.. Appearing on evry "Populate Info"

Edit:- Second error is ,,,,,

Please improve error handling... So that script should not exit in any case.

Hope this will help you..

Third error is appearing when we choose option "force logoff"

Edited January 19, 2006 by Rahul Rohela

[RagnaroktA]

Hi please check this error.. & correct it in yours source.. Appearing on evry "Populate Info"

Edit:- Second error is ,,,,,

Please improve error handling... So that script should not exit in any case.

Hope this will help you..

Third error is appearing when we choose option "force logoff"

The first error could mean a few things. It's either not getting passed the machine name correctly, or the machines dont have WMI enabled. I've only tested this on XP, as that is all that we have on our network here. As far as I know, there's no error handling that can be done to check this and keep the script from exiting. If anyone has ideas, please post them. I'll try to figure them out here as well.

The second error is my fault... I brainfarted and forgot to declare the Printer listview as a seperate variable. That piece of code is trying to determine what printer is the machines' default.

The third error I'm not so sure about. Maybe I've got the documentation wrong... I'm getting the same error you are, and I'll look into it. In the meantime, stay away from Force Log Off.

[Rahul Rohela]

The first error could mean a few things. It's either not getting passed the machine name correctly, or the machines dont have WMI enabled. I've only tested this on XP, as that is all that we have on our network here. As far as I know, there's no error handling that can be done to check this and keep the script from exiting. If anyone has ideas, please post them. I'll try to figure them out here as well.

I am agree with you this statement.. Its working fine on w2k network. But Network always have different type of servers (Like WIN NT or if person dont have access to specific server or workstation). So Script will show this type of error & no one can manage to run script again & wait for long time to retrieve full info of more than 1000 IPs.

Second he will have to remember that Problem IP. So Just add that it will display some customized error message in place of script error. This will help against unexpected Shutdown of script at any end.

Second Regarding Logoff options...

You are using wrong options Dear.. Here is VB script for your referance.

expandcollapse popup

function Ping(byval strName)
dim objFSO, objShell, objTempFile, objTS
dim sCommand, sReadLine
dim bReturn

set objShell = WScript.CreateObject("Wscript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")

'Set default return value
bReturn = false

'Create command line to ping and save results to a temp file
sCommand = "cmd /c ping.exe -n 3 -w 1000 " & strName & " > C:\temp.txt"

'Execute the command
objShell.run sCommand, 0, true

'Get the temp file
set objTempFile = objFSO.GetFile("C:\temp.txt")
set objTS = objTempFile.OpenAsTextStream(1)

'Loop through the temp file to see if "reply from" is found,
'if it is then the ping was successful
do while objTs.AtEndOfStream <> true
sReadLine = objTs.ReadLine
if instr(lcase(sReadLine), "reply from") > 0 then
bReturn = true
exit do
end if
loop

'Close temp file and release objects
objTS.close
objTempFile.delete
set objTS = nothing
set objTempFile = nothing
set objShell = nothing
set objFSO = nothing

'Return value
Ping = bReturn
end function
'/\/\/\/\/\/\/\/\/\/\/\/\/\/\ end function

'/\/\/\/\/\/\/\/\/\/\/\ Start Main body of script 
'Get computer name to operate on
ComputerName=InputBox("Enter the Machine name of the computer" & vbCRLF _
& "you wish to Shutdown / Reboot / Logoff", _
"Remote Shutdown / Reboot / Logoff", _
"ComputerName")

'if Cancel selected - exit 
If (ComputerName = "") Then Wscript.Quit

'change the name to uppercase
ComputerName=UCase(ComputerName)

'ping the computername to see if it is accessible
bPingtest = ping(Computername)

If bPingtest = FALSE Then
y = msgbox ("'" & ComputerName & "' is not accessible!" & vbCRLF _
& "It may be offline or turned off." & vbCRLF _
& "Check the name for a typo." & vbCRLF, _
vbCritical, ComputerName & " NOT RESPONDING")
Wscript.Quit
end IF

'Get the action desired
Action=InputBox( _
"Select Action to perform on " & ComputerName & vbCRLF & vbCRLF _
& " 1 - Logoff" & vbCRLF _
& " 2 - Force Logoff ( NO SAVE )" & vbCRLF _
& " 3 - Powerdown" & vbCRLF _
& " 4 - Force Powerdown ( NO SAVE )" & vbCRLF _
& " 5 - Reboot" & vbCRLF _
& " 6 - Force Reboot ( NO SAVE )" & vbCRLF & vbCRLF _
& "NOTE:" & vbCRLF _
& " Using Force will close windows" & vbCRLF _
& " without saving changes!", _
"Select action to perform on " & ComputerName, "")

'if Cancel selected - exit 
If (Action = "") Then Wscript.Quit

'error check input
If (INSTR("1234567",Action)=0) OR (Len(Action)>1) then
y = msgbox("Unacceptable input passed -- '" & Action & "'", _
vbOKOnly + vbCritical, "That was SOME bad input!")
Wscript.Quit
end if

'set flag to disallow action unless proper input achieved, 1 => go 0 => nogo
flag = 0

'set variables according to computername and action
Select Case Action
Case 1 'Logoff
x = 0
strAction = "Logoff sent to " & ComputerName
flag = 1
Case 2 'Force Logoff 
x = 4
strAction = "Force Logoff sent to " & ComputerName
flag = 1
Case 3 'Powerdown
x = 8
strAction = "Powerdown sent to " & ComputerName
flag = 1
Case 4 'Force Powerdown
x = 12
strAction = "Force Powerdown sent to " & ComputerName
flag = 1
Case 5 'Reboot
x = 2
strAction = "Reboot sent to " & ComputerName
flag = 1
Case 6 'Force Reboot
x = 6
strAction = "Force Reboot sent to " & ComputerName
flag = 1
Case 7 'Test dialog boxes
y = msgbox("Test complete", vbOKOnly + vbInformation, "Dialog Box Test Complete")
flag = 0
Case Else 'Default -- should never happen
y = msgbox("Error occurred in passing parameters." _
& vbCRLF & " Passed '" & Action & "'", _
vbOKOnly + vbCritical, "PARAMETER ERROR")
flag = 0
End Select

'check flag
' if equal 1 (TRUE) then perform Win32Shutdown action on remote PC
' and display a confirmation message
' if not equal 1 (FALSE) then skip the action and script ends
if flag then
Set OpSysSet=GetObject("winmgmts:{(Debug,RemoteShutdown)}//" _
& ComputerName & "/root/cimv2").ExecQuery( _
"Select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.Win32Shutdown(x)
y = msgbox(strAction,vbOKOnly + vbInformation,"Mission Accomplished")
next
end If

'Release objects
set OpSys = nothing
set OpSysSet = nothing

[RagnaroktA]

Rahul,

I pulled the original code from a VBScript and converted it to AutoIt. I can post the original, working script if you'd like. I also double checked the code here:

http://msdn.microsoft.com/library/default....atingsystem.asp

I'll try it your way and see what I get. The two methods should return the same results... Thanks!

Edit: Tried it, same results. Anybody else have ideas?

Edited January 20, 2006 by RagnaroktA

[Rahul Rohela]

Dear RagnaroktA,

I have check it if you use following options this will work.

1 for Logoff

2 for Force Logoff

3 for Powerdown

4 for Force Powerdown

5 for Reboot

6 for Force Reboot

I know that these are not as per Microsoft doc but working fine.

Second Please post your working script or mail to me rrohela@yahoo.com

Edited January 21, 2006 by Rahul Rohela

[RagnaroktA]

Dear RagnaroktA,

I have check it if you use following options this will work.

1 for Logoff

2 for Force Logoff

3 for Powerdown

4 for Force Powerdown

5 for Reboot

6 for Force Reboot

I know that these are not as per Microsoft doc but working fine.

Second Please post your working script or mail to me rrohela@yahoo.com

Rahul,

I tried changing the numbers in script to 1,2,3,4,5,6. It didnt take either. It seems to work in the standalone script outside of the Administration Tool script, so I'm going to try to narrow it down and fix the function when I get time. Thanks!

Scott

[Rahul Rohela]

Anything NEW in it???

[RagnaroktA]

Anything NEW in it???

Yes, several things.

Administration Tool v2.1.7

Added ability to export current computer list.

Added ability to determine Microsoft Office version, and Open Office version (2.0 only).

Added rebuild program hotkey (CTRL+ALT+R) to reset the program to defaults.

Improved memory usage .

Minor bug fixes.

Administration Tool v2.1.6

Added ability to export hardware and software information to plain text, and excel spreadsheets.

Added ability to populate specific tabs individually.

Added ability to refresh drives, users, monitor, and printer list views independently.

Added ability to specify individual machines.

Coming Soon

Export to Access Database and SQL Database.

Export data from all currently listed machines in any format.

Add advanced printer functions.

- Remotely add network and local printers

- Remotely add global printers to all profiles

- Remotely remove global printers from all profiles

- Remotely set default printer

- Remotely restart print spooler

Add automatic update feature

I'll post it when it's tested/ready.

[FeReNGi]

Download link for 2.1.7 ?

[RagnaroktA]

Download link for 2.1.7 ?

I still havent had time to code alot of the new features. If you want the current script, an unfinished version of 2.1.7, I've posted the latest exe (so that it will include all files needed to run) on my website. Linked below. Also linked is a zip.

I havent finished the readme, as I've made several changes, so it may not reflect the applications current state.

Compiled

Source

[FeReNGi]

I still havent had time to code alot of the new features. If you want the current script, an unfinished version of 2.1.7, I've posted the latest exe (so that it will include all files needed to run) on my website. Linked below. Also linked is a zip.

I havent finished the readme, as I've made several changes, so it may not reflect the applications current state.

Compiled

Source

For the services in this tool you can use code from my project :

http://www.911cd.net/forums//index.php?sho...72entry112272

A Toolbar would also very easy to implement. If you need help ....

For the remote control part with vnc you can use snippets from this project :

http://www.911cd.net/forums//index.php?showtopic=13372

For the diskpart section this code : http://www.911cd.net/forums//index.php?s=&...ndpost&p=108878

and last but not least for setting up a new pc unattended this code : http://www.911cd.net/forums//index.php?s=&...ndpost&p=106510

This could be an awesome tool with everything above integrated :-)

Edited May 9, 2006 by FeReNGi

[RagnaroktA]

I like the suggestions, I'll get to work on it. Most of this should be relatively easy to impliment, but a new release may not come for a while. Let me know if anyone else has suggestions.

Could I get the source from your project so that I can look at adding it to the code? You'll get full credit for the work.

Edited May 10, 2006 by RagnaroktA

[FeReNGi]

ServicesPE is not using WMI but direct from registry.

WMI is not present on a BartPE CD...

This way we change the way it can be used. BartPE CD, Real windows and a connection to another pc.

If you would like to improve the code go ahead :-)

Code in your mailbox. After release of v1.0 it will be public.

[Rahul Rohela]

Please post new codes..