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
Branch: master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
windows-server-2003/admin/wmi/wbem/scripting/test/vbscript/crash.vbs

22 lines
833 B
Raw Permalink Normal View History

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