' 環境変数の取得
set objShell = CreateObject("WScript.Shell")
set objenv = objShell.environment("Process")
stringComputer = objenv.item("COMPUTERNAME")
stringUser = objenv.item("USERNAME")
stringUserDomain = objenv.item("USERDOMAIN")
' WMI名前空間の取得
WMINameSpace = "winmgmts: " & stringComputer _
& " root cimv2"
Set objWMIService = GetObject(WMINameSpace)
' WMIユーザー・オブジェクトの取得
QueryAccount = "Win32_UserAccount.Name='" _
& stringUser & "',Domain='" & stringUserDomain & "'"
Set objAccount = objWMIService.Get (QueryAccount)
' ユーザーのSID文字列取得(UserPreference値設定に必要)
stringSID = objAccount.SID
' レジストリUserPreference値の設定
RegPath = "HKLM SOFTWARE Microsoft Windows NT" _
& " CurrentVersion ProfileList " & stringSID _
& " UserPreference"
objShell.RegWrite RegPath,0,"REG_DWORD"
| 
CLOSE