在VBScript中编写关机程序，可以使用以下几种方法：
方法一：使用`WScript.Shell`对象
你可以使用`WScript.Shell`对象来调用Windows命令行中的`shutdown`命令。以下是一个示例代码：
```vbscript
Set ws = CreateObject（"WScript.Shell"）
ws.Run "cmd.exe /c shutdown -s -t 0 -f", 0, True
```
这段代码会立即关机，并且强制关闭所有打开的窗口。
方法二：使用`Win32_OperatingSystem`对象
如果你想要在用户输入的特定时间后关机，可以使用`Win32_OperatingSystem`对象来获取系统信息，并在指定时间后执行关机命令。以下是一个示例代码：
```vbscript
Function shut（）
Dim setTime
setTime = InputBox（"请输入多少时间后关机（单位：秒）","定时关机", "", 100, 100）
If setTime <> "" Then
If IsNumeric（setTime） Then
timeS = setTime * 1000
WScript.Sleep timeS
For Each objOperatingSystem in GetObject（"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"）.Win32_OperatingSystem
objOperatingSystem.Win32Shutdown（1）
Next
Else
WScript.Echo "输入错误，请重试"
shut（）
End If
Else
WScript.Echo "操作取消"
End If
End Function
```
方法三：创建批处理文件
另一种方法是创建一个批处理文件（.bat），并在VBScript中调用它。以下是一个示例代码：
```vbscript
Set ink = CreateObject（"WScript.Shell"）
ink.Run "cmd.exe /c shutdown -s -t 0 -f", 0, True
```
将上述代码保存为.vbs文件，然后双击运行即可。
方法四：使用任务计划程序
你还可以使用Windows任务计划程序来安排关机任务。以下是一个示例代码：
```vbscript
Set objShell = CreateObject（"WScript.Shell"）
objShell.Run "schtasks /create /tn " & chr（34） & "AutoShutdown" & chr（34） & " /tr ""C:\path\to\shutdown.bat"" /sc daily /st 00:00", 0, True
```
将上述代码保存为.vbs文件，然后运行它即可创建一个每天在指定时间执行关机的任务。
总结
以上是几种在VBScript中编写关机程序的方法。你可以根据自己的需求选择合适的方法。如果你想要在用户输入的特定时间后关机，建议使用方法一或方法二。如果你想要立即关机，使用方法一或方法三即可。如果你想要定期关机，使用方法四是一个不错的选择。