background preloader

Remote

Facebook Twitter

Automation

Desktop. Control. Vnc. Wakeonlan. Network Monitoring with Zenoss: A Reluctant Administrator's Guide. My wife and I have been using (and collecting) computers for years, and we've shared this interest very effectively with our children. Now I am the victim of my own success: my household now has four physical computers, one of them dual boot. All are on a single internal Local Area Network (LAN) with five real users plus sundry administrative ones on each. Some of the computers are also running services. I also have two computers sitting in a box, which will probably be added to this mess soon, plus my wife plans to get a laptop. Like it or not, I now manage a network bigger than many small businesses! But I can't afford to pay a system administrator, and the tedium of "network plumbing" is my least favorite part of computer technology. Enter Zenoss... I've been very conservative about setting up my network.

Figure 1: The soon-to-be state of my home network, including a shop computer which I've recently pulled from storage. Remote scripting first steps -- Managing Windows networks using scripts, Part 6. In previous articles in this series we explored what we could do with the Win32_NetworkAdapterConfiguration class and getting over the "hump" that many Windows administrators face when learning how to script. Now let's go back to the script ChangeIPAddress.vbs that we developed to change the IP address of a network adapter: {*style:<i>Option Explicit Dim objWMIService Dim objNetAdapter Dim strComputer Dim strAddress Dim arrIPAddress Dim arrSubnetMask Dim colNetAdapters Dim errEnableStatic </i>*} {*style:<i>If WScript.Arguments.Count = 0 Then Wscript.Echo "Usage: ChangeIPAddress.vbs new_IP_address" WScript.Quit End If </i>*} {*style:<i>strComputer = ".

" strAddress = Wscript.Arguments.Item(0) arrIPAddress = Array(strAddress) arrSubnetMask = Array("255.255.255.0") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter in colNetAdapters Next </i>*}