1

次の VBScript コードを、すべてのユーザーのユーザー プロファイル パスを取得するために使用される JScript に変換するにはどうすればよいですか?

Set oWshNet = CreateObject("Wscript.Network")
sComputer = oWshNet.ComputerName
'For remote computer
'sComputer = "some name or IP"
Const HKLM = &H80000002

sProfileRegBase = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" 
Set oReg = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" _ 
                & sComputer & "/root/default:StdRegProv")
Set oWMI = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" _ 
                & sComputer & "/root/cimv2")
Set colItems = oWMI.ExecQuery _ 
                ("Select Name,SID from Win32_UserAccount WHERE Domain = '" _ 
                & sComputer & "'",,48)
For Each oItem In colItems
  sAddInfo = ""
  Wscript.Echo "User name: " & oItem.Name & sAddInfo
  oReg.GetExpandedStringValue HKLM, sProfileRegBase& "\" & oItem.SID, _ 
                  "ProfileImagePath", sProfilePath
  If IsNull(sProfilePath) Then
    sProfilePath = "(none defined)"
  End If <br>
  Wscript.Echo "Profile path: " & sProfilePath
  Wscript.Echo   ' blank line
Next

変換には部分的に成功しましたが、2 つの点で行き詰まりました。

  1. 私の使用法oReg = GetObject("WinMgmts:\\\\.\\root\\default:StdRegProv");が正しく、コードで指定されたものと同じであるかどうかを確認してください。そうでない場合は、正しい使用法を提案してください。

  2. GetExpandedStringValueJScriptに相当するものは何ですか? 存在しない場合、値を取得する前にレジストリ キーが存在するかどうかを検証するより良い方法は何ですか?

4

3 に答える 3

1

1) 私の使用法が oReg = GetObject("WinMgmts:\.\root\default:StdRegProv"); であることを確認してください。は正しく、コードで指定されたものと同じですか? そうでない場合は、正しい使用法を提案してください。

/この場合、スラッシュ ( ) とバックスラッシュ ( ) の両方\が機能します。ただし、バックスラッシュは JScript の特殊文字であるため、二重にする必要があります。

2) Jscirpt の GetExpandedStringValue の同様の関数は何ですか? 存在しない場合、値を取得する前にレジストリ キーが存在するかどうかを検証するより良い方法は何ですか?

実際にはStdRegProv.GetExpandedStringValue、このメソッドはoutパラメーターを使用し、JScript はネイティブでパラメーターをサポートしていませんが、JScriptで使用outできます。トリックは、 を介して呼び出すことExecMethod_です。説明と例については、 「 JScript での WMI スクリプトの記述」を参照してください。

于 2011-04-05T14:53:05.613 に答える
1

サンプル ソリューションは次のとおりです: ( http://www.windowsitpro.com/content/content/93402/Listing_05.txtから)

// GetSystemPath.js

var HKEY_LOCAL_MACHINE = 0x80000002;
var ENVIRONMENT_SUBKEY = "SYSTEM\\CurrentControlSet\\Control"
  + "\\Session Manager\\Environment";

var computer, regprov, method, inparams, outparams, systempath;

// CALLOUT A
// Step 1: Get an instance of the WMI object.
computer = ".";
regprov = GetObject("winmgmts:{impersonationlevel=impersonate}!//"
  + computer + "/root/default:StdRegProv");
// END CALLOUT A

// CALLOUT B
// Step 2: Create an InParameters object for the method.
method = regprov.Methods_.Item("GetExpandedStringValue");
inparams = method.InParameters.SpawnInstance_();
// END CALLOUT B

// CALLOUT C
// Step 3: Set the InParameters object's properties.
inparams.hDefKey = HKEY_LOCAL_MACHINE;
inparams.sSubKeyName = ENVIRONMENT_SUBKEY;
inparams.sValueName = "Path";
// END CALLOUT C

// CALLOUT D
// Step 4: Call ExecMethod_ to return an OutParameters object.
outparams = regprov.ExecMethod_(method.Name, inparams);
// END CALLOUT D

// CALLOUT E
// Step 5: The OutParameters object contains the method's results.
if (outparams.ReturnValue == 0) {
  systempath = outparams.sValue;
  WScript.Echo(systempath);
}
// END CALLOUT E
于 2011-04-05T14:34:28.097 に答える
0

\ 文字を含む文字列はエスケープする必要があります。

var sProfileRegBase = "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList"

これにはGetObject()通話が含まれます。

GetExpandedStringValue同じです; これは VB 関数ではなく、「Wscript.Network」オブジェクトのメソッドであるため、js で使用できます。

于 2011-04-05T14:34:04.727 に答える