Can someone tell me a function in Perl that I could use, or tell me how to get a hosts uptime and possibly get the amount of users logged on to it, or anything of that nature. Please help I need to get this information from a server but dont know how to go about doing it...
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Servers Uptime....
- Thread starter leo2180
- Start date
Simply enclose the system calls in backticks and catch the return value in a var.<br><FONT FACE=monospace><br>#!/usr/local/bin/perl<br>$uptime = `uptime`;<br>$who = `who`;<br>print "Server uptime : $uptime\n";<br>print "Current users : $who\n";<br></font><br>'Hope this helps. <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
- Thread starter
- #3
Oh! you mean remote hosts! I don't know.....sounds like a good time to go surf the CPAN module list.<br><br>I know you can open pipes to telnet to other machines and pass commands and info back and forth. But, there must be an out of the can approach out there. 'Might do a little looking tomorrow......<br><br>Sorry;^) <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
- Thread starter
- #5
found a few crumbs.....<br>There is a module, 'Net::Telnet' that may be what you are looking for......has this description.....<br><FONT FACE=monospace><br>Net::Telnet allows you to make client connections to a TCP port<br> and do network I/O, especially to a port using the TELNET<br> protocol. Simple I/O methods such as print, get, and getline are<br> provided. More sophisticated interactive features are provided<br> because connecting to a TELNET port ultimately means communicating<br> with a program designed for human interaction. These interactive<br> features include the ability to specify a timeout and to wait for<br> patterns to appear in the input stream, such as the prompt from a<br> shell.<br><br> Here's an example that prints who's logged-on to the remote host<br> sparky. In addition to a username and password, you must also<br> know the user's shell prompt, which for this example is bash$<br><br> use Net::Telnet ();<br> $t = new Net::Telnet (Timeout => 10,<br> Prompt => '/bash\$ $/');<br> $t->open("sparky"
;<br> $t->login($username, $passwd);<br> @lines = $t->cmd("/usr/bin/who"<br> print @lines;<br></font><br><br>See <A HREF=" TARGET="_new"> like it will do the 'who's logged on trick' and may be useful for 'uptime'.<br>This looks like fun....I may have to play with this one a little. If I get around to it, I'll let you know.<br><br>'hope this helps.....good luck<br><br><br> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
;<br> $t->login($username, $passwd);<br> @lines = $t->cmd("/usr/bin/who"<br> print @lines;<br></font><br><br>See <A HREF=" TARGET="_new"> like it will do the 'who's logged on trick' and may be useful for 'uptime'.<br>This looks like fun....I may have to play with this one a little. If I get around to it, I'll let you know.<br><br>'hope this helps.....good luck<br><br><br> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typoFirst answer was close actually, there are remote versions of <FONT FACE=monospace><b>who</font></b> and <FONT FACE=monospace><b>uptime</font></b> called <FONT FACE=monospace><b>rwho</font></b> and <FONT FACE=monospace><b>ruptime</font></b>.<br><br>The services <FONT FACE=monospace><b>rwhod</font></b> and <FONT FACE=monospace><b>ruptimed</font></b> need to be running on the remote machine first and, in some environments, <FONT FACE=monospace><b>rwhod</font></b> could be a security risk as it gives you a list of users on a remote machine and, therefore, a starting point for unauthorised access perhaps.<br><br>Look at <FONT FACE=monospace><b>man ruptime</font></b> and <FONT FACE=monospace><b>man rwho</font></b> for some more info. <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>
- Thread starter
- #8
- Thread starter
- #9
Oh another thing too is that, the server that Im trying to find all this information on is a NT machine. Now the rwho and the ruptime commands will not work due to this. Correct? Or else theres a way to have unix talk to NT without some middle man then fine. Now the Net::Telnet module I dont want to have to enter no username and password to get to this info, cause this script will be viewable to everyone on the network...
leo2180,<br><br>I've done some searching on CPAN (from <A HREF=" TARGET="_new"> and couldn't find anything relevant.<br><br>I was looking to see if someone had written a perl version of rwhod and or ruptimed that would run on NT - but nope, not as far as I could see.<br><br>It would certainly be <i>possible</i> to write your own versions of these UNIX daemons in VB or VC. That would require expertise in (at least) two areas, TCP/IP and Win32API, and would not be trivial. You would have to have a <i>pressing</i> need for these functions to justify writing them yourself.<br><br>Sorry I can't be of more help, if you still need to do this the best approach might be to look for a commercial package that implements Unix-Type services for NT. As far as I remember the Microsoft Unix package for NT does not include them but it's worth checking.<br> <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>
- Thread starter
- #11
- Status