[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBS脚本创建SMS集合

  1. strSiteServer = InputBox ("站点服务器名")
  2. strSiteCode = InputBox ("站点代码")
  3. strCollName = InputBox ("新集合名称")
  4. strCollComment = InputBox ("集合描述")
  5. Set objLocator = CreateObject("WbemScripting.SWbemLocator")
  6. Set objService = objLocator.ConnectServer(strSiteServer, "root/sms/site_" & strSiteCode)
  7. Set objCollection = objService.Get("SMS_Collection").SpawnInstance_()
  8. objCollection.Name = strCollName
  9. objCollection.comment = strCollComment
  10. objCollection.OwnedByThisSite = TRUE
  11. Path = objCollection.Put_
  12. Set Collection = objService.Get(path)
  13. objCollectionid = Collection.CollectionID
  14. Set objCollectionRelation = objService.Get("SMS_CollectToSubCollect").SpawnInstance_()
  15. objCollectionRelation.parentCollectionID = "CollRoot"
  16. objCollectionRelation.subCollectionID = objCollectionID
  17. objCollectionRelation.Put_
  18. Set Token = objService.Get("Sms_St_RecurInterval")
  19. Token.HourSpan = 2
  20. Collection.RefreshSchedule = Array(Token)
  21. Collection.RefreshType = 2
  22. Collection.Put_
  23. MsgBox "Done"
复制代码


http://prain.blog.51cto.com/162681/245980

返回列表