Leaked source code of windows server 2003

57 lines
2.1 KiB

  1. VERSION 5.00
  2. Begin VB.Form Form1
  3. Caption = "Form1"
  4. ClientHeight = 3195
  5. ClientLeft = 60
  6. ClientTop = 345
  7. ClientWidth = 4680
  8. LinkTopic = "Form1"
  9. ScaleHeight = 3195
  10. ScaleWidth = 4680
  11. StartUpPosition = 3 'Windows Default
  12. End
  13. Attribute VB_Name = "Form1"
  14. Attribute VB_GlobalNameSpace = False
  15. Attribute VB_Creatable = False
  16. Attribute VB_PredeclaredId = True
  17. Attribute VB_Exposed = False
  18. Private Sub Form_Load()
  19. Dim Service As SWbemServices
  20. Set Service = GetObject("winmgmts:")
  21. Debug.Print Service.Security_.AuthenticationLevel & ":" & _
  22. Service.Security_.ImpersonationLevel
  23. Dim Service2 As SWbemServices
  24. Set Service2 = GetObject("winmgmts:{impersonationLevel=impersonate}")
  25. Debug.Print Service2.Security_.AuthenticationLevel & ":" & _
  26. Service2.Security_.ImpersonationLevel
  27. Dim Class As SWbemObject
  28. Set Class = GetObject("winmgmts:win32_logicaldisk")
  29. Debug.Print Class.Security_.AuthenticationLevel & ":" & _
  30. Class.Security_.ImpersonationLevel
  31. Dim Class2 As SWbemObject
  32. Set Class2 = GetObject("winmgmts:{impersonationLevel=impersonate}!win32_logicaldisk")
  33. Debug.Print Class2.Security_.AuthenticationLevel & ":" & _
  34. Class2.Security_.ImpersonationLevel
  35. 'Dim Class3 As SWbemObject
  36. 'Set Class3 = GetObject("winmgmts:{impersoationLevel=impersonate}!win32_logicaldisk")
  37. Dim Class4 As SWbemObject
  38. Set Class4 = GetObject("winmgmts:{ impersonationLevel = impersonate }!win32_logicaldisk")
  39. Debug.Print Class4.Security_.AuthenticationLevel & ":" & _
  40. Class4.Security_.ImpersonationLevel
  41. Dim Class5 As SWbemObject
  42. Set Class5 = GetObject("winmgmts:{ impersonationLevel = impersonate }!root/default:__cimomidentification=@")
  43. Debug.Print Class5.Security_.AuthenticationLevel & ":" & _
  44. Class5.Security_.ImpersonationLevel
  45. Debug.Print Class5.Path_.DisplayName
  46. End Sub