archive
/
windows-server-2003
mirror of https://github.com/selfrender/Windows-Server-2003
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 Commits
1 Branch
0 Tags
1.5 GiB
Tree: 5c6fe3db62
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '5c6fe3db62'
${ noResults }
windows-server-2003/admin/wmi/wbem/scripting/test/vbscript/stress/crash.vbs

25 lines
873 B
Raw Normal View History

commiting as it is
4 years ago
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
  1. on error resume next
  2. while true
  3. 'connect to sms
  4. Set Locator = CreateObject("WbemScripting.SWbemLocator")
  5. Set Context = CreateObject("WbemScripting.SWbemNamedValueSet")
  6. Set Services = Locator.ConnectServer("WSMS2", "Root\SMS\Site_WN2", "smsadmin", "Elvis1")
  8. 'Execute "GetSessionHandle" method and store result in our context object
  9. Context.Add "SessionHandle", Services.ExecMethod("SMS_SiteControlFile", "GetSessionHandle").SessionHandle
  11. 'Grab an SMS_SCI_Address object
  12. Set Address = Services.Get("SMS_SCI_Address", , Context).SpawnInstance_
  14. 'Set necessary properties
  15. Address.Addresstype = "MS_LAN"
  16. Address.DesSiteCode = "WN2"
  17. Address.ItemName = "WN2|MS_LAN"
  18. Address.ItemType = "Address"
  19. Address.SiteCode = "WN2"
  21. 'Put (crash occurs here)
  22. Set Path = Address.Put_(wbemChangeFlagCreateOnly, Context)
  24. WScript.Echo Path.RelPath
  25. wend