どのようなツール私はコンピュータを作成する必要がありますか？
Scripting Guys WMICOMADSI 1 1 Scripting Guys "" (Dora the Explorer) (Greg )ISP IIS Sarbanes-Oaxley 1 Windows GUI GUI Windows GUI GUI [ ] []
[] [ ] GUI 1 GUI :"" VBScript WMIADSI COM Windows Active Directory ADSI WMI WMI Active Directory WMI Scriptomatic wbemtest.exe WMI Web Scriptomatic WMI Web Active Directory WMI COM COM COM OLEView WMI Scripting Guy Web "Windows " "" WMI Active Directory MSDN TechNet [ ] [] GUI Win32 API COM () www.sysinternals.com regmon.exe GUI MSDN TechNet Microsoft (Registry Reference ()) GUIWMI regedit.exe HKEY_CLASSES_ROOT 仮想サーバを管理する方法
[] WMI HKEY_CLASSES_ROOT "." HKEY_CLASSES_ROOT "*" "." "*" "." WScript.Quit WMI strComputer |
Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strRootKeyPath = "SOFTWARE\Classes" objReg.EnumKey HKEY_LOCAL_MACHINE, strRootKeyPath, arrSubKeys For Each objSubKey In arrSubKeys If Left(objSubKey,1) = "." Then WScript.Echo objSubKey ElseIf Not Left(objSubKey,1) = "*" Then WScript.Quit End If Nextroot\cimv2 root\default 2 objReg.EnumKey EnumKey 1 arrSubKeys
regedit.exe .acf "Agent.Character.2" .acf "Agent.Character.2"
() cscript.exe cscript.exe WScript.StdOut.Write WScript.Echo
Windowsタスクマネージャを使用する方法Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strRootKeyPath = "SOFTWARE\Classes" objReg.EnumKey HKEY_LOCAL_MACHINE, strRootKeyPath, arrSubKeys For Each objSubKey In arrSubKeys If Left(objSubKey,1) = "." Then WScript.StdOut.Write " " & objSubKey strKeyPath = "SOFTWARE\Classes\" & objSubkey strValueName = "" objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue WScript.StdOut.Write " " & strValue If Not IsNull(strValue) Then strKeyPath = "SOFTWARE\Classes\" & strValue strValueName = "" objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strNewValue WScript.Echo " " & strNewValue Else WScript.Echo End If ElseIf Not Left(objSubKey,1) = "*" Then WScript.Quit End If Next[]
エクセルソフトを使用する目的は何ですか
strKeyPath = "SOFTWARE\Classes\" & objSubkey strValueName = "" objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValueobjSubkey strKeyPath strValueName GetStringValue EnumKey GetStringValue strValue
strValue "Agent.Character.2" HKLM\Software\Classes strValue null WScript.Echo
If Not IsNull(strValue) Then strKeyPath = "SOFTWARE\Classes\" & strValue strValueName = "" objReg.GetStringValue HKEY_LOCAL_MACHINE,_ strKeyPath, strValueName, strNewValue WScript.Echo " " & strNewValue Else WScript.Echo End IfScripting Guy Scripting Eye GUI ()
0 コメント:
コメントを投稿