Code Script .co.uk

Home | Scripts | Tutorials | Disclaimer | Sitemap | Contact

   Dell Bios Set Boot Device Order
 

Vbscript / Operating System / Dell Bios Set Boot Device Order

This script sets the Dell BIOS boot device order such that the onboard hard drive boots first and disables all other boot devices. Requires that Dell Open Manage Client Instrumentation (OMCI) is installed.


strComputerName = "."
strNameSpace = "root/Dellomci"
strClassName = "Dell_BootDeviceSequence"

intKeyVal = 0
intBootOrder = 2

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,AuthenticationLevel=pktprivacy}\" & strComputerName & "\root\dellomci")
Set ColSystem=objWMIService.execquery ("Select * from Dell_BootDeviceSequence")

For Each objSystem in ColSystem

 Set objInstance = GetObject("WinMgmts:{impersonationLevel=impersonate,AuthenticationLevel=pktprivacy}\" & _
 strComputerName & "/" & strNameSpace & ":" & strClassName & "=" & _
 Chr(34) & intKeyVal & Chr(34))

  intKeyVal = intKeyVal + 1

 strDeviceName = objInstance.Properties_.Item("BootDeviceName").Value
 strDeviceOrder = objInstance.Properties_.Item("BootOrder").Value
 strDeviceStatus = objInstance.Properties_.Item("Status").Value

 objInstance.Properties_.Item("Status").Value = 0
 objInstance.Put_

 strDeviceStatus = objInstance.Properties_.Item("Status").Value
 strDeviceOrder = objInstance.Properties_.Item("BootOrder").Value

 strMsg = "Disabled " & strDeviceName
 strMsg = strMsg & ". Position: " & strDeviceOrder
 strMsg = strMsg & ". Status: " & strDeviceStatus
 
 If strDeviceOrder = 1 Then
  objInstance.Properties_.Item("BootOrder").Value = intBootOrder
  objInstance.Put_
  intBootOrder = intBootOrder + 1
 End If
  
 If strDeviceName = "Onboard SATA Hard Drive" OR strDeviceName = "Internal HDD" OR strDeviceName = "Hard-Disk Drive C:" Then
 
  objInstance.Properties_.Item("BootOrder").Value = 1
  objInstance.Properties_.Item("Status").Value = 1
  objInstance.Put_
  strDeviceOrder = objInstance.Properties_.Item("BootOrder").Value
  strDeviceStatus = objInstance.Properties_.Item("Status").Value
  strMsg = "Enabled " & strDeviceName
  strMsg = strMsg & ". Position: " & strDeviceOrder
  strMsg = strMsg & ". Status: " & strDeviceStatus
 
 End If
 

 WScript.Echo strMsg

Next





Please note that a disclaimer applies to any code on this page.
 
   Actions
  Go Back
  Bookmark
  Print Page


   Menu
 
- Links
- Reference
- Script Editors
- Tutorials
- Vbscript
     - Active Directory
     - Exchange
     - Files And Folders
     - General
     - Ms Office
     - Operating System
          - Add Remove Windows Server 2003 Components
          - Add Remove Windows Vista Components
          - Add Remove Windows Xp Components
          - Autologon And Runonce
          - Change Display Resolution
          - Change Location I386 Setup Files
          - Change Offline Folder Cache Location
          - Dell Bios Set Boot Device Order
          - Dell Bios Set Configuration Settings
          - Dell Bios View Configuration Settings
          - Dell Bios View Device Boot Order
          - Disable Vista User Account Control
          - Enumerate Cd Drives
          - Enumerate Computer Drives
          - Enumerate Disk Volumes
          - Enumerate Registry Keys
          - Flush Remote Dns Cache
          - Get Machine Hardware Model
          - Read Registry Key
          - Rename Computer
          - Rename Dell Machine By Service Tag
          - Set Internet Explorer Homepage
          - Set Random Desktop Wallpaper On Startup
          - Start And Stop A Service
          - Windows Login Timer
     - Processes And Services
     - Text Processing
     - User Interaction
     - Web Servers