Chinaunix首页 | 论坛 | 博客
  • 博客访问: 537804
  • 博文数量: 53
  • 博客积分: 6801
  • 博客等级: 少将
  • 技术积分: 1575
  • 用 户 组: 普通用户
  • 注册时间: 2004-10-04 11:00
个人简介

:)

文章分类

全部博文(53)

文章存档

2010年(4)

2009年(16)

2008年(33)

分类: WINDOWS

2008-07-08 13:05:38

Domain = "contoso"
Set objDomain = GetObject("WinNT://" & Domain )
objDomain.Filter = Array("computer")
For Each Computer In objDomain
   WScript.Echo Computer.Name
Next

阅读(1563) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2008-07-08 13:13:55

Set objOU = GetObject(“LDAP://ou=Domain Controllers, dc=fabrikam, dc=com”) objOU.Filter = Array(“Computer”) For Each objComputer in objOU Wscript.Echo objComputer.CN Nex