cejs/application/OS/Windows/WMI.js

A JavaScript module framework that is simple to use.

��

/**

 * @name	CeL function for WMI

 * @fileoverview

 * ,g�jHhS+T�N Windows Management Instrumentation �v functions0

 * @since	

 */



'use strict';

if (typeof CeL === 'function')

CeL.run({name:'application.OS.Windows.WMI',

code:function(library_namespace) {



//	nothing required





/**

 * null module constructor

 * @class	WMI �v functions

 */

var _// JSDT:_module_

= function() {

	//	null module constructor

};



/**

 * for JSDT: 	g prototype Mbg\KNvu\O Class

 */

_// JSDT:_module_

.prototype = {

};















//	WMI set	==================



/*	2007/5/22 23:34:43

	WMI: Windows Management Instrumentation

	http://www.codecomments.com/archive298-2004-5-203306.html

	http://msdn2.microsoft.com/en-us/library/Aa394616

	http://msdn2.microsoft.com/en-us/library/aa389290.aspx

	http://msdn2.microsoft.com/en-us/library/aa389763.aspx

	http://msdn2.microsoft.com/en-us/library/aa393854.aspx	SWbemServices

	http://msdn2.microsoft.com/en-us/library/ms525320.aspx

	http://www.serverwatch.com/tutorials/article.php/1476831

	http://www.serverwatch.com/tutorials/article.php/1476861

	http://www.serverwatch.com/tutorials/article.php/1476871

	http://www.serverwatch.com/tutorials/article.php/1476941



string moniker:

	[[/root/]cimv2:][from[.v]]	[/|\\]root[/|\\]



object moniker:

{

	prefix:'WinMgmts:',	//	moniker prefix

	security:'{impersonationLevel=impersonate}!',

	computer:'.',	//	Computer string(localhost '.')

	p:'cimv2',	//	'/root/' will auto added

	path:'/root/cimv2',	//	Namespace e.g., \root\default



	from:,	//	select from ~

	where:,	//	select from where ~	** You MUST check the string yourself!! This function won't do it!

	v:,	//	value to get

	value:,	//	value used in moniker



	flag:48,	//	flag to call SWbemServices.ExecQuery Method

}



	prefix+security+computer+path+':'+from+'='+value	http://msdn2.microsoft.com/en-us/library/aa389292.aspx



TODO:

Y!k|T�SgsOS

*/

function WMI_data(moniker,func){	//	moniker, for each do function

	var i,oWMIS,_m={

			prefix:'WinMgmts:'

			,security:'{impersonationLevel=impersonate}!'

			,computer:'.'

			,p:'cimv2'

			,path:''

			,from:''

			,value:''

			,v:''

			,flag:48	//	32: wbemFlagForwardOnly + 16: wbemFlagReturnImmediately

	};

	if(!moniker)

		moniker='';



	if(typeof moniker=='string'){

		//	parse moniker

		_m.from=moniker;

		//	�S�_path

		if(i=_m.from.match(/^([^:]+):([^\/\\]*)$/)){

			if(/^[\/\\]/.test(i[1]))_m.path=i[1];else _m.p=i[1];

			_m.from=i[2];

		}

		//	�S�_from[.v]

		if(i=_m.from.match(/^([^.]+)\.(.*)$/))_m.from=i[1],_m.v=i[2];

	}else for(i in moniker)_m[i]=moniker[i];



	//	create object

	try{

		//with(_m)alert(prefix+security+'//'+computer+(path||'/root/'+p)+(value||value===0?':'+from+'='+value:''));

		with(_m)oWMIS=GetObject(prefix+security+'//'+computer+(path||'/root/'+p)

				//+(func||v?'':(from?':'+from+(value||value==0?'':'='+value):''))	//		gfunc||_m.vBf!q�h�Nhc�h�0R�_b��Qd0

				+(value||value===0?':'+from+'='+value:'')

		);

		//oLoc=new ActiveXObject("WbemScripting.SWbemLocator");oSvc=oLoc.ConnectServer(sComputer||null,"root\\default");oReg=oSvc.Get("StdRegProv");	//	http://msdn.microsoft.com/library/en-us/wmisdk/wmi/swbemobject_execmethod_.asp

	}catch(e){

		return;

		/*	useless?

  try{

   with(new ActiveXObject("WbemScripting.SWbemLastError"))	//	Error Handling

    return {ProviderName:ProviderName,ParameterInfo:ParameterInfo,Operation:Operation,Description:Description};

  }catch(_e){throw e;}

		 */

	}

	if(!func&&!_m.from)return oWMIS;



	//	do search

	var oE;

	try{

		//	http://msdn2.microsoft.com/en-us/library/aa393866.aspx

		oE=oWMIS.ExecQuery('Select * From '+_m.from+(_m['where']?' Where '+_m.where:'')

				,'WQL'	//	String that contains the query language to be used. If specified, this value must be "WQL".

				,_m.flag

		);

	}catch(e){

		//	z_�^*g{v�0

		//	dkBf typeof oWMIS=='object'

		popErr(e,0,'WMI_data: error occurred!');

		//if(438!=(e.number&0xFFFF))return;

		return;	//	return {item:function(){}};	//	or return a object using wbemQueryFlagPrototype

	}

	oE=new Enumerator(oE);	//	wbemFlagForwardOnly:32+wbemFlagReturnImmediately:16

	//if(func)for(;!oE.atEnd()&&!func(oE.item());oE.moveNext());

	if(func)while(!oE.atEnd()&&!func(oE.item()))oE.moveNext();

	else return _m.v||_m.v===0?oE.item()?oE.item()[_m.v]:null:oE;

};



/*	(u(W\ WMI date I�b javascript date, old: WMIDateStringToDate

	http://www.microsoft.com/technet/scriptcenter/resources/qanda/sept04/hey0907.mspx

	http://www.microsoft.com/technet/scriptcenter/resources/qanda/aug05/hey0802.mspx



TODO:

return ms

*/

WMI_data.DateStringToDate=function(t){

 if(!t)return new Date();

 var m=(''+t).match(/^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\.\d+)?([+ \-]\d+)?$/);

 //	http://msdn2.microsoft.com/en-us/library/474de325.aspx

 return m?new Date(m[1],m[2]-1,m[3],m[4],m[5],m[6],m[7]*1e3):t;	//	localeg��]��te

};



/*	(u(W�S�_ WMI object KN property

	http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/other/wmi/

	http://msdn.microsoft.com/en-us/library/aa393741%28VS.85%29.aspx

*/

WMI_data.getProperties = function(o, is_VBA, is_Date) {

	var oP = new Enumerator(o.Properties_), ph = {}, p;

	while (!oP.atEnd()) {

		o = p = oP.item();



		if (0 && o.Name === 'IPAddress') {

			alert(p);

			alert('' + p + '\n[' + (typeof p) + ']\n'

					// +(new VBArray(p)).toArray()

					+ Object.prototype.toString.call(p));

			for (var i in p)

				alert('' + Object.prototype.toString.call(p[i]) + '\n' + i + '	' + p[i]);

		}



		// ��R%R�eg

		if (typeof p == 'object' && /^\d{14}(\.\d+)?([+ \-]\d+)?$/.test('' + p))

			p = this.DateStringToDate(p);

		// ��R%R VBA

		else if (typeof p == 'unknown')

			// from VBA_to_JSA()

			try {

				p = new VBArray(p).toArray();

			} catch (e) {

			}

		;

		ph[o.Name] = p;

		oP.moveNext();

	}



	// o=[];for(p in ph)o.push(p+': '+ph[p]);sl(o.join('\n'));

	return ph;

};





_.WMI_data=WMI_data;



/*	cause error!	requires Windows 2003 DNS

	http://forums.devshed.com/dns-36/dns-through-wmi-in-net-140427.html

	http://www.activexperts.com/activmonitor/windowsmanagement/scripts/networking/dns/server/

	http://www.113317.com/blog/article.asp?id=543

	http://blogs.msdn.com/mpoulson/archive/2006/05/10/594950.aspx

	http://www.ureader.com/message/3258511.aspx

	http://www.scriptinganswers.com/forum/forum_posts.asp?TID=516&PID=3124

if(0){

 var qHost='213.22.211.in-addr.arpa',qIP=WMI_data({p:'MicrosoftDNS',from:'MicrosoftDNS_PTRType',where:"OwnerName='"+qHost+"'"}).item();

 alert(qIP.RecordData);

}

*/









/*

	http://msdn2.microsoft.com/en-us/library/aa394239.aspx

	http://tech.163.com/05/0406/10/1GL8FUG200091589.html



test:

with(getSysInfo())alert(Caption+' '+CSDVersion+' '+OtherTypeDescription+'(SP '+ServicePackMajorVersion+'.'+ServicePackMinorVersion+') [Version '+Version+']'

	+'\nWindowsDirectory: '+WindowsDirectory

	+'\nSystemDirectory: '+SystemDirectory

	+'\nFreePhysicalMemory: '+to_KiB(FreePhysicalMemory)+'/'+to_KiB(PhysicalMemory)+' ('+PhysicalMemory+' bytes)'

	+'\nOSLanguage: '+OSLanguage+' (0x'+hex(OSLanguage)+')'	//	http://msdn.microsoft.com/zh-tw/library/system.globalization.cultureinfo%28VS.80%29.aspx

	+'\nCountryCode: '+CountryCode

	+'\nCodeSet: CP'+CodeSet	//	http://en.wikipedia.org/wiki/Code_page	http://msdn.microsoft.com/en-us/library/dd317756%28VS.85%29.aspx

	+'\nLocale: '+Locale

	+'\nCurrentTimeZone: '+gDate(CurrentTimeZone*60*1000)

	+'\nMUILanguages: '+MUILanguages

	+'\nBootUpTime: '+LastBootUpTime.toLocaleString()

	+'\nLocalDateTime: '+LocalDateTime.toLocaleString()

	+'\n�|q}K�L� Uptime: '+gDate(Uptime)//+' ms'

	+'\n�|q} counter: '+Timestamp+' s'

	+'\nCSName: '+CSName

	+'\nRegisteredUser: '+RegisteredUser

);WScript.Quit();

*/



//getSysInfo[generateCode.dLK]='WMI_data';

function getSysInfo(){

 var o=WMI_data('Win32_OperatingSystem').item(),

 //

 r={

	Caption:o.Caption.replace(/\s+$/,''),	//	�|q}

	Name:o.Name,

	CSDVersion:o.CSDVersion,

	ServicePackMajorVersion:o.ServicePackMajorVersion||(isNaN(o.ServicePackMajorVersion)?'':0),

	ServicePackMinorVersion:o.ServicePackMinorVersion||(isNaN(o.ServicePackMinorVersion)?'':0),

	OtherTypeDescription:o.OtherTypeDescription||'',

	Version:o.Version,	//	�|q}Hr,g



	WindowsDirectory:o.WindowsDirectory,

	SystemDirectory:o.SystemDirectory,



	CSName:o.CSName,

	RegisteredUser:o.RegisteredUser,



	CurrentTimeZone:o.CurrentTimeZone,

	//	�|q}g�_N!k_U�R�vBf��

	//	see: WMI_data('Win32_PerfRawData_PerfOS_System.SystemUpTime')

	LastBootUpTime : WMI_data.DateStringToDate(o.LastBootUpTime),

	LocalDateTime : WMI_data.DateStringToDate(o.LocalDateTime),

	OSLanguage : o.OSLanguage,

	CountryCode : o.CountryCode,

	CodeSet : o.CodeSet,

	Locale : o.Locale,

	MUILanguages : VBA_to_JSA(o.MUILanguages),



	FreePhysicalMemory : o.FreePhysicalMemory,

	PhysicalMemory : WMI_data('Win32_PhysicalMemory').item().Capacity,



	// ms:	maybe null!

	//	http://msdn2.microsoft.com/en-us/library/aa394272.aspx

	//	http://snippets.dzone.com/posts/show/5472

	Uptime : (WMI_data('Win32_PerfRawData_PerfOS_System.Timestamp_Object')

			- WMI_data('Win32_PerfRawData_PerfOS_System.SystemUpTime')) * 1e3

			/ WMI_data('Win32_PerfRawData_PerfOS_System.Frequency_Object'),

	//	o�:y�|q}vuNBf��KNpS� (NOT Uptime!)	�PK�L�Bf��/f�_'`���xehV-Nrs�_�v64MOte�Wxe�
Ng�Q�s(W49.7)Y�_�n�Q�v�`�l0

	//	http://www.dx21.com/SCRIPTING/WMI/SUBCLASS.ASP?CID=201

	//	maybe NaN

	Timestamp : WMI_data('Win32_PerfRawData_PerfOS_System.Timestamp_Sys100NS')

				/ WMI_data('Win32_PerfRawData_PerfOS_System.Frequency_Sys100NS')

 };

 //alert(WMI_data('Win32_PerfRawData_PerfOS_System.Timestamp_Sys100NS')+'/'+WMI_data('Win32_PerfRawData_PerfOS_System.Frequency_Sys100NS'));



 if (!r.Uptime)

	 r.Uptime = (new Date() - r.LastBootUpTime);



 return r;

};





/*	http://support.microsoft.com/kb/328874/zh-tw

	http://msdn.microsoft.com/en-us/library/aa394520(VS.85).aspx

	http://msdn.microsoft.com/en-us/library/aa390456(VS.85).aspx	http://school.21tx.com/2004/06/16/11568_4.html

	If this method succeeds and the ActivationRequired property is 1 (one), the method returns 0 (zero). Otherwise, the method returns one of the WMI error constants.



TODO:

$R%R OS

*/

//getWinID[generateCode.dLK]='WMI_data';

function getWinID(pKey){

 var o=WMI_data('Win32_WindowsProductActivation')

	//,WshShell=WScript.CreateObject("WScript.Shell")

	;

 if(!o){alert('getWinID: Cannot get Win32_WindowsProductActivation!');return;}

 o=o.item();

 if(o.ActivationRequired){

  //	*g_U(u Windows MR, (u/����^_�g�Q/�

  alert('Activation Required.');

  return;

 }

 if(pKey)try{

  //	SetProductKey: �O9e"u�Tёp�CD-KEY�^_�, return 0:OK, else error

  var e=o.SetProductKey(pKey.replace(/[\s\-]/g,''));

  if(e)throw e;

 }catch(e){

  alert('Update failed for ['+pKey+']:\n'+e.description);	//	for old version 	g�S���!qHe�v�d\O, dkBf� delete OOBETimer registry value

  //	TODO: delete OOBETimer registry value for XP 2600: ݑ
\^� Windows XP SP1 b��eHr Windows XP O(u��O\P(u Windows0

  //WshShell.RegDelete("HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\WPAEvents\\OOBETimer");

 }

 return o.GetInstallationID(pKey);//||pKey;	//	!q�l�Ndk�e�lrs�_ ID

}



/*

	Win32_ComputerSystem:

	http://msdn2.microsoft.com/en-us/library/aa394224.aspx



	Win32_NetworkAdapterConfiguration:

	http://msdn2.microsoft.com/en-us/library/aa394217.aspx

	http://www.microsoft.com/china/technet/community/scriptcenter/topics/networking/01_atnc_intro.mspx

	http://www.codeproject.com/vbscript/ipaddress.asp?df=100&forumid=3295&exp=0&select=123580





test:

with(get_net_info())alert(UserName+'\n'+Name+'\n'+Workgroup+'\n'+Domain+'\n'+BootupState);



with(get_net_info(2)){

 alert(UserName+'\n'+Name+'\n'+Domain+'\n'+BootupState+'\nAll '+netif.length+' interfaces get');

 for(i=0;i<netif.length;i++)with(netif[i])

  sl(Caption+'\n'

	+DNSDomain+'\n'

	+DHCPServer+'\n'

	+DNSHostName+'\n'

	+DNSServerSearchOrder+'\n'

	+IPSubnet+'\n'

	+DefaultIPGateway+'\n'

	+IPAddress+'\n'



	+IPEnabled+'\n'

	+DHCPEnabled+'\n'

	+SettingID+'\n'



	+MACAddress

	);

}

WScript.Quit();



*/

_// JSDT:_module_

.

/**

 * �S�_�}aS-��[�vIP0W@W

 * @param type	default type: ip setting interfaces only, 1: all interfaces, 2: �[Ԛ net interfaces(�}�aS�!q�})

 * @returns

 * @example

 * IP=get_net_info().netif[0].IPAddress[0];

 * with(get_net_info())alert(UserName+'\n'+Name+'\n'+Workgroup+'\n'+Domain+'\n'+BootupState);

 * @requires	WMI_data,VBA_to_JSA

 * @_memberOf	_module_

 */

get_net_info = function(type) {

	var r = WMI_data('Win32_ComputerSystem');

	if (!r || !r.item()) {

		r = null;

		throw new Error('Cannot get Win32_ComputerSystem!\nIs this old system or the function is limited?');

		r = {};

	} else {

		r =

		// WMI_data({computer:IP||'.',from:'Win32_ComputerSystem'}).item()

		WMI_data.getProperties(r.item());

		if (!r.Workgroup)

			//	Windows 2000 and Windows NT: Workgroup is not available. Domain: If the computer is not part of a domain, then the name of the workgroup is returned.

			r.Workgroup = r.Domain;

	}



/*	waste time

 with(WMI_data('Win32_NTDomain').item()){

  r.Caption=Caption,r.Description=Description;

  if(!r.Name)r.Name=Name;

 }

*/



	r.netif = [];

	WMI_data(

			{

				from : 'Win32_NetworkAdapterConfiguration',

				where : type === 1 ? ''

						// �$R%R�l
N/f�_}Y

						//	DHCPEnabled � IPEnabled �S�NTBf�p TRUE

						: type === 2 ? 'MACAddress!=NULL AND (DHCPEnabled=TRUE OR IPEnabled=TRUE)'// OR IPXEnabled=TRUE

						: 'IPEnabled=TRUE' // 'NetEnabled=True': Vista only code?

			}, function(o) {

				// (WDHCP�S���_0RiQF{TIPKNdata.

				// MACAddress: getmac.exe, arp -a, nbtstat -a 192.168.0.1

				r.netif.push(WMI_data.getProperties(o));

			});

	return r;

};







_// JSDT:_module_

.

/**

 * get CIDR data

 * @param {Number} CIDR	CIDR mask bits, 0~32

 * @param {String} IP	IPv4, e.g., 1.2.3.4

 * @return	CIDR data

 * @since	2010/4/21 22:56:16

 * @_memberOf	_module_

 */

CIDR_to_IP = function (CIDR, IP) {

	if (isNaN(CIDR) || CIDR < 0 || CIDR > 32)

		return;



	if (typeof IP === 'string')

		IP = IP.split('.');

	else if (!Array.isArray(IP))

		IP = [];



	var i = 0, r = {

		//	geteway IP

		geteway : [],

		//	subnet mask

		mask : [],

		//	wildcard mask

		wildcard : [],

		//	subnet start IP,the entire network

		subnet : [],

		//	subnet end IP, broadcast address

		broadcast : [],

		//	Maximum Addresses, range IP count

		//	.count now = Maximum Subnets

		count : 1 << (32 - CIDR)

	};



	for (; i < 4; i++) {

		if (CIDR > 7) {

			CIDR -= 8;

			r.wildcard[i] = 0;

			r.mask[i] = 255;

			r.subnet[i] = r.broadcast[i] = IP[i] || 0;

		} else if (CIDR) {

			r.broadcast[i] = (IP[i] || 0) | (r.wildcard[i] = CIDR = (1 << (8 - CIDR)) - 1);

			r.subnet[i] = (IP[i] || 0) & (r.mask[i] = 255 - CIDR);

			CIDR = 0;

		} else

			r.broadcast[i] = r.wildcard[i] = 255,

			r.subnet[i] = r.mask[i] = 0;

	}



	if (r.count > 2)

		r.count -= 2;

	r.geteway = r.broadcast.join(',').split(',');

	//	[the entire network, .., geteway, broadcast address]

	r.geteway[3] -= 1;



	//alert(r.geteway + '\n' + r.subnet + '\n' + r.broadcast + '\n' + r.wildcard + '\n' + r.subnet + '\n' + r.count);

	return r;

};





_// JSDT:_module_

.

/**

 * 9e���}aS�vIP0W@W: change IP, set IP

 * @param to_s	IP or {IP:''||[], CIDR:24||.CIDR_notation, Subnet:''||[], DNS:''||[], Gateway:254||[], GatewayOrder:''||[]}

 * @param from	IP or netif No.

 * @since

 * 2009/5/7 0:24:5	�R7_

 * 2010/3/3 10:41:17	a work version

 * @see

 * <a href="http://msdn.microsoft.com/en-us/library/aa394217%28VS.85%29.aspx" accessdate="2010/3/3 13:15">Win32_NetworkAdapterConfiguration Class (Windows)</a>

 * <a href="http://www.yongfa365.com/item/Use-WMi-Change-IP-VBS-yongfa365.html" accessdate="2010/3/3 13:14">�Ǐ WMI 9e�SQaS�vIP0W@W ChangeIP.vbs - �g8l�l(yongfa365)'Blog</a>

 * <a href="http://www.microsoft.com/technet/scriptcenter/topics/networking/01_atnc_intro.mspx">Automating TCP/IP Networking on Clients: Part 1: Introduction</a>

 * <a href="http://www.dotblogs.com.tw/PowerHammer/archive/2008/03/24/2060.aspx" accessdate="2010/3/3 13:15">O(u WMI �f9eIP
0P[�}�n�i
0��S�
0DNS - 7_�R��-� VB BLOG - ޞ�=�</a>

 * Using NetSh.exe (no reboot required): <a href="http://techsupt.winbatch.com/webcgi/webbatch.exe?techsupt/tsleft.web+WinBatch/How~To+Change~Ip~Address.txt" accessdate="2010/3/3 13:12">WWW Tech Support/WinBatch/How To\Change Ip Address.txt</a>

 * @example

 * set_net_info({IP:'163.16.20.212',Gateway:254});

 * sl(set_net_info({IP:'163.16.20.30',Gateway:254}));WScript.Quit();

 * @requires	WMI_data,VBA_to_JSA,JSArrayToSafeArray,CIDR_to_IP

 * @_memberOf	_module_

 */

set_net_info = function (to_s, from) {



	var _f = set_net_info, r, count, IPA, i = function(ip) {

		if (!Array.isArray(ip))

			if (/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/.test(ip = '' + ip))

				ip = [ ip ];

			else

				return;

		return JSArrayToSafeArray(ip);

	};



	if (typeof to_s === 'string'

			&& (r = to_s.match(/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(\/(\d{1,2}))?$/))) {

		count = r[1];

		to_s = {

			IP : count

		};



		if ((r = r[3]) > 15) {

			r = _.CIDR_to_IP(r, count);

			to_s.Gateway = r.geteway.join('.');

			to_s.Subnet = r.mask.join('.');

		}



	}else if (typeof to_s !== 'object' || Array.isArray(to_s))

		// treat as IP

		to_s = {

			IP : to_s

		};



	if (!isNaN(to_s.Gateway))

		to_s.Gateway = (Array.isArray(to_s.IP) ? to_s.IP.join('.') : to_s.IP)

				.replace(/\d+$/, to_s.Gateway);



	//	SubnetMask: Subnet masks that complement the values in the IPAddress parameter. Example: 255.255.0.0. 

	if (!('Subnet' in to_s) || !isNaN(to_s.Subnet)) {

		r = _.CIDR_to_IP(to_s.Subnet || _f.CIDR_notation, to_s.IP);

		to_s.Subnet = r.subnet.join('.');

	}



	//sl('set_net_info:\n[' + from + '] �! [' + to_s.IP + '/' + to_s.Subnet + ']\nGateway: [' + to_s.Gateway + ']\nDNS: [' + ('DNS' in to_s ? to_s.DNS : _f.default_DNS) + ']');

	// return -1;



	to_s.Subnet = i(to_s.Subnet);

	to_s.IP = i(to_s.IP);

	to_s.DNS = i('DNS' in to_s ? to_s.DNS : _f.default_DNS);



	if ((to_s.Gateway = i(to_s.Gateway)))

		if (!to_s.GatewayOrder)

			for (i = 1, to_s.GatewayOrder = [ 0 ], r = Array.isArray(to_s.Gateway) ? to_s.Gateway.length

					: 0; i < r;)

				to_s.GatewayOrder.push(++i);

		else if (!Array.isArray(to_s.GatewayOrder))

			to_s.GatewayOrder = [ to_s.GatewayOrder ];



	r = -1;

	count = 0;

	if (!from)

		from = 0;



	WMI_data(

			{

				from : 'Win32_NetworkAdapterConfiguration',

				// �$R%R�l
N/f�_}Y

				//	DHCPEnabled � IPEnabled �S�NTBf�p TRUE

				where : 'MACAddress!=NULL AND (IPEnabled=TRUE OR DHCPEnabled=TRUE)'// OR IPXEnabled=TRUE

			},

			function(o) {

				// alert('Get if: ' + o.Caption + '\n' + from + ',' + count);

				// �8^bP
Ng-��[!q�}#��}

				if(/wireless/i.test(o.Caption))

					return;



				if (isNaN(from) || from === count++) {

				for (i = 0, IPA = from ? VBA_to_JSA(o.IPAddress) : [ 1 ]; i < IPA.length; i++) {

					if (!from || IPA[i] === from) {

						r = typeof to_s.IP === 'undefined' ? o.EnableDHCP()

								: o

										.EnableStatic(

												to_s.IP,

												typeof to_s.Subnet === 'undefined' ? o.IPSubnet

														: to_s.Subnet)

										|| typeof to_s.Gateway !== 'undefined'

										&& o.SetGateways(to_s.Gateway,

												to_s.GatewayOrder)

										|| typeof to_s.DNS !== 'undefined'

										&& o.SetDNSServerSearchOrder(to_s.DNS);

						//alert('Set if:\n'+o.Caption+'\nto: '+to_s.IP+'\nerrno: '+r);

							// TODO: error detection

							return 1;

						}

					}

				}

			});



	// not found / error

	// http://msdn.microsoft.com/en-us/library/aa390383%28VS.85%29.aspx

	return r;

};



_// JSDT:_module_

.

// default DNS

// 168.95.1.1,8.8.4.4

set_net_info.default_DNS = '8.8.8.8';



_// JSDT:_module_

.

// http://en.wikipedia.org/wiki/CIDR_notation

set_net_info.CIDR_notation = 24;











/*	get IP of Windows Host

	http://www.scriptinganswers.com/forum/forum_posts.asp?TID=516&PID=3124

	Wscript.Network



ping:

	http://blog.blueshop.com.tw/hammerchou/archive/2006/07/08/32205.aspx

1.

GetObject("winmgmts:").Get("NetDiagnostics=@").Ping(strAddr, Ping)

2.

objCls = GetObject("winmgmts:\\" & strMachine & "\root\CIMV2").Get("NetDiagnostics")

objInPara = objCls.Methods_("Ping").inParameters.SpawnInstance_()

objInPara.Properties_("sInAddr") = "www.google.com.tw" // -��[ Ping �vMOn

// Ping �p �e�l , ExecMethod �p �WL��e�l ( �b�Sxe
�eQ�WL� )

objOutPara = objWMIsvc.ExecMethod("NetDiagnostics=@", "Ping", objInPara)

// �S�V8��Q�Sxe ( Ping �vP}�g ): objOutPara.ReturnValue = True GR Ping b�R , �SKNGR1YWe

objOutPara.sOutArg





test:

var h='Public',ip=getIPofHost(h);alert(ip?h+':\n'+ip:'Computer [\\'+h+'] is unreachable!');



*/

//getIPofHost[generateCode.dLK]='WMI_data';

function getIPofHost(h) {

	var qIP = WMI_data( {

		from : 'Win32_PingStatus',

		where : "Address='" + h + "'"

	}).item();

	if (!qIP.StatusCode && qIP.StatusCode != null)

		return qIP.ProtocolAddress;

}



//	B}bk2�z	http://msdn2.microsoft.com/en-us/library/aa393907.aspx

//killProcess[generateCode.dLK]='WMI_data';

function killProcess(n, isPID) {

	var k = 0;

	if (typeof isPID == 'undefined')

		isPID = !isNaN(n);

	WMI_data('Win32_Process', function(p) {

		with (p)

		if (isPID)

			if (ProcessId == n) {

				Terminate();

				k = 1;

				return 1;

			} else if (Caption == n)

				Terminate(), k++;

	});

	return k;

}





/*	R	�2�z	http://msdn2.microsoft.com/en-us/library/aa394372.aspx



test:

alert(get_process()['EXPLORER.EXE'].CommandLine);

for(i=0,p=get_process();i<p.length;i++)with(p[i])

 alert(i+' / '+p.length+'\n['+ProcessId+'] '+Caption+(Name==Caption?'':' ('+Name+')')+'\n'+(Description==Caption?'':Description+'\n')+CSName+'\n'

	+'Open files: '+HandleCount+'\n'

	//+OSName+'\n'

	+'memory: '+MinimumWorkingSetSize+'-'+MaximumWorkingSetSize+'\n'	//	memory pages visible to the process in physical RAM

	+'Time in kernel mode: '+KernelModeTime+' ms\n'+ExecutablePath+'\n'+CommandLine+'\n'+CreationDate.toLocaleString()

	);

*/

//get_process[generateCode.dLK]='WMI_data';

function get_process() {

	var r = [];

	WMI_data('Win32_Process', function(p) {

		with (p)

		r[Caption] = r[r.push( {

			ProcessId : ProcessId,

			Caption : Caption,

			ExecutablePath : ExecutablePath,

			CommandLine : CommandLine,

			Name : Name, // ==Caption

			Description : Description, // ==Caption

			CSName : CSName,

			HandleCount : HandleCount,

			OSName : OSName,

			MinimumWorkingSetSize : MinimumWorkingSetSize,

			MaximumWorkingSetSize : MaximumWorkingSetSize,

			KernelModeTime : p.KernelModeTime / 1e5, //	100000ms

			CreationDate : WMI_data

			.DateStringToDate(CreationDate)

		}) - 1];

	});

	return r;

}







/*	R	�
g�R

	http://msdn2.microsoft.com/en-us/library/aa394418.aspx

	http://www.microsoft.com/taiwan/technet/scriptcenter/topics/vista/indexer.mspx



test:

alert(get_service()['Event Log'].Description);

for(i=0,s=get_service();i<s.length;i++){t=i+' / '+s.length;for(j in s[i])t+='\n'+j+': '+s[i][j];alert(t);}

*/

//get_service[generateCode.dLK]='WMI_data';

function get_service() {

	var r = [];

	WMI_data('Win32_Service', function(s) {

		with (s)

		r[Caption] = r[r.push( {

			AcceptPause : AcceptPause,

			AcceptStop : AcceptStop,

			Caption : Caption,

			Description : Description,

			DisplayName : DisplayName,

			ExitCode : ExitCode,

			InstallDate : WMI_data.DateStringToDate(InstallDate),

			Name : Name,

			Pathname : Pathname,

			ProcessId : ProcessId,

			ServiceSpecificExitCode : ServiceSpecificExitCode,

			Started : Started,

			StartMode : StartMode,

			StartName : StartName,

			State : State,

			Status : Status,

			SystemName : SystemName

		}) - 1];

	});

	return r;

}









/*	shutdown/reboot computer	2007/5/8-9 0:8:52

	http://www.robvanderwoude.com/index.html

	http://www.ericphelps.com/batch/samples/reboot.txt



	http://www.semcase.com/docus/iis/prog_wmi_tut_03_01.htm	http://www.semcase.com/docus/iis/iis.htm

	http://support.microsoft.com/kb/913538	vu�`O(ug��R	�z_ir�N(W Microsoft Windows Server 2003 b Microsoft Windows XP (u6b�z��f�
N2�L�gQ�����v Windows Management Instrumentation (WMI) �R��Bf�R	�z_ir�N�e(u6b�z��f�\*g�[bO(uR	�z_ir�N�v�R\OBf�sSm��S�m0dkY�WMI �R�����S���P�V/����x0



mode:

0	poweroff (if supported by the hardware)

null,1	reboot

	restart

	logoff

	shutdown

	suspend, sleep, hibernate

	lock

//	standby	http://www.tutorials-xe.com/SCRIPTING/Restart-service/

16	force



	open the shutdown dialog



time: seconds

*/

var shutdownF={poweroff:0,reboot:1,restart:2,logoff:3,shutdown:4,suspend:5,lock:6,force:16,dialog:32};

//set_Object_value('shutdownF','poweroff,reboot,restart,logoff,shutdown,suspend,lock,force=16,dialog=32',1);

//shutdown[generateCode.dLK]='initialization_WScript_Objects,shutdownF,Sleep';

function shutdown(mode,time/*,message*/){

 if(isNaN(mode))mode=shutdownF.reboot;



 var f,sComputer="."

	,_s,s=function(t){

		if(t)return _s;

		if(time&&!_s)Sleep(time);

		_s=1;

	}

	,force=mode&shutdownF.force

	,sF=function(a){f={};for(var i=0;i<a.length;i+=2)f[a[i]]=a[i+1];}

	,oWMIS

	;



 if((mode-=force)==shutdownF.dialog)try{

  s();

  WinShell.ShutdownWindows();

  r