修改 默认操作系统

Option Explicit

'切换默认操作系统（XP系统除外）

Sub RunScript

    Dim WshNetwork, fso, WshShell

    Set WshNetwork = CreateObject("WScript.Network")

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set WshShell = CreateObject("WScript.Shell")

    

    Dim SystemDrive, temp, temp_hxy, temp_hxy_bcdedittxt, file

    

    For Each SystemDrive In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

        SystemDrive = SystemDrive.SystemDrive

        Exit For

    Next

    

    temp = SystemDrive & "\Users\" & WshNetwork.UserName & "\AppData\Local\Temp"

    temp_hxy = temp & "\hxy"

    temp_hxy_bcdedittxt = temp_hxy & "\bcdedit.txt"

    

    

    Dim i, j, k

    i = 0

    Do While True

        If Not fso.FolderExists(temp_hxy) Then

            fso.CreateFolder(temp_hxy)

        ElseIf fso.FileExists(temp_hxy_bcdedittxt) Then

            fso.DeleteFile(temp_hxy_bcdedittxt)

        End If

    

        WshShell.Run "cmd.exe /c bcdedit >> " & temp_hxy_bcdedittxt, 0

    

        WScript.Sleep 1000

    

        Set file = fso.OpenTextFile(temp_hxy_bcdedittxt, 1, False)

        Do

            temp = file.ReadLine

        Loop Until InStr(temp, "displayorder            {")

        

        j = 0

        k = 0

        Do

            If j < i Then

                temp = file.ReadLine

                j = j + 1

            ElseIf InStr("{" & Split(temp, "{")(1), "{ntldr}") Then

                temp = file.ReadLine

                j = j + 1

                k = 1

            Else

                WshShell.Run "cmd.exe /c bcdedit /default " & "{" & Split(temp, "{")(1), 0

                k = 1

                Exit Do

            End If

        Loop Until InStr(temp, "toolsdisplayorder       {")

        file.Close

        Set file = Nothing

        

        If k = 0 Then Exit Do

        i = i + 1

        WScript.Sleep 5000

    Loop

    

    

    Set WshNetwork = Nothing

    Set fso = Nothing

    Set WshShell = Nothing

End Sub

'获取管理员权限

Dim objOS

For Each objOS in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

    If InStr(objOS.Caption, "XP") = 0 Then

        If WScript.Arguments.length = 0 Then

            Dim objShell : Set objShell = CreateObject("Shell.Application")

            objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1

        Else

            RunScript

        End If

    Else

        RunScript

    End If

Next

WScript.Quit