
CODE: [Copy to clipboard]2:注意引号中的引号,可以尝试把中间的两个引号用chr(34)来替换。例如:Dim strPath,x,strOut
Dim arrValueNames
Dim oReg
Const HKLM = &H80000002
strPath = "Software\Microsoft\Windows\CurrentVersion\Run"
Set oReg = GetObject("Winmgmts:\root\default:StdRegProv")
oReg.EnumValues HKLM,strPath,arrValueNames
For Each x In arrValueNames
strOut = strOut & x & vbCrLf
Next
WScript.Echo strOut
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |