[Guestユーザーを有効にする]

Guest ユーザーを有効にします。
初期状態では Guest ユーザーは、無効に設定されています。
（通常は有効にしないほうが良いです）

【ソースコード】

[tips0194.vbs]
Option Explicit
On Error Resume Next

Dim strComputerName ' コンピュータ名
Dim strGuestPath    ' guest パス
Dim objGuest        ' guest ユーザー

strComputerName = "Comp01"
strGuestPath = "WinNT://" & strComputerName & "/Guest"
Set objGuest = GetObject(strGuestPath)
If Err.Number = 0 Then
    objGuest.AccountDisabled = False
    objGuest.SetInfo
    If Err.Number = 0 Then
        WScript.Echo "Guest ユーザーを有効にしました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objGuest = Nothing

【実行結果】

C:\> cscript //NoLogo tips0194.vbs
Guest ユーザーを有効にしました。