Welcome Guest
コンテンツ
ホームページ
ログイン
ユーザー名:

パスワード:

Google AdSense
靴屋の検索
トップ  >  TIPS  >  Citrix XenApp(Presentarion Server, MetaFrame)の自動作成プリンタのレジストリエントリを削除するvbScript
Set objWshShell = WScript.CreateObject("WScript.Shell")
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
    If Left(subkey,6) = "Client" Then
        StdOut.WriteLine subkey

        strEntry = "HKLM\" & strKeyPath & "\" & subkey

        oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, arrSubsubKeys
        For Each subsubkey In arrSubsubKeys
            strSubsubEntry = strEntry & "\" & subsubkey
            StdOut.WriteLine strSubsubEntry & "\"
            objWshShell.RegDelete strSubsubEntry & "\"
        Next

        objWshShell.RegDelete strEntry & "\"
    End If
Next
投票数:44 平均点:4.55
前
JScript で Excel の全ての Sheet を操作する際の雛型
カテゴリートップ
TIPS
Copyright © 2001-2012 Shoemaker Smith