Odeslat dotaz

Prohledat fóra:

• Prohledat fórum Configuration Manager Admin Console
• Prohledat všechna fóra Microsoft TechNet

 

Here is script to delete drivers

• 22. října 2008 16:34Shawn Nelson

   
  

  0

  Přihlásit se a hlasovat

  I was having problems with corrupt drivers and decided to remove my NIC drivers and re-add them.  When I went to delete them I realized with over 100 drivers to delete you have to delete them one by one.  This can become a major pain and luckily on this forum there was someone who graciously provided a script that would remove ALL drivers from sccm.  With that being said I didn't want to delete over 1000 drivers and re-add all of them, I only wanted a select few.   To help others out there that aren't as script oriented I wanted to share my script that will go through and delete disabled drivers.  You can select multiple drivers and just click disable, then run this script and it will clear them out for you.  It worked quite nicely for me, and I hope it helps the next person!

   

   

   

  Code Snippet

  ' Connect to the SMS namespace

  siteNamespace = GetSiteNamespace()

   

  SET objWMIService = GetObject( "winmgmts:{impersonationLevel=impersonate}!"_
                                 &siteNamespace)

   

  SET drivers = objWMIService.ExecQuery("SELECT * From SMS_Driver")

   

  numDriversDeleted = 0

   

  ' Process the results

  FOR EACH driver in drivers

  IF driver.IsEnabled = 0 THEN
   driver.Delete_
   numDriversDeleted = numDriversDeleted +1
  END IF

  NEXT

   

  WScript.Echo "Successfully deleted "&numDriversDeleted&" drivers."

  
   

  '

  ' Utility function to search for the site namespace

  '

  FUNCTION GetSiteNamespace()

      ' Find SMS Provider

      SET objSMSNamespace = GetObject("winmgmts:{impersonationLevel="&_
                                      "impersonate}!\\.\root\sms")

      SET results = objSMSNamespace.ExecQuery("SELECT * From "&_
          "SMS_ProviderLocation WHERE ProviderForLocalSite = true")

   

      ' Process the results

      FOR EACH r in results   

          namespacePath = r.NamespacePath

      NEXT

   

      ' Fail if we did not find the site

      IF namespacePath = "" THEN

          WScript.Echo "Failed to locate SMS provider."

          WScript.Quit 1

      END IF

     

      ' Return

      GetSiteNamespace = namespacePath

  END FUNCTION

   

   

  
  

  • Reagovat
  • Citovat