mirror of
https://github.com/Zagrios/bs-manager.git
synced 2026-07-03 14:08:25 +02:00
MathieuG-P
26 lines
840 B
XML
26 lines
840 B
XML
<job id="test">
|
|
<script language="VBScript" src="util.vbs" />
|
|
<script language="VBScript" src="regUtil.vbs" />
|
|
<script language="VBScript">
|
|
CheckZeroArgs("type A as first arg!!")
|
|
|
|
DetermineOSArchitecture()
|
|
LoadRegistryImplementationByOSArchitecture()
|
|
|
|
'On Error Resume Next
|
|
|
|
Dim key: key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
|
|
Dim value: value = "AppData"
|
|
|
|
ParseHiveAndSubKey key, constHive, strSubKey
|
|
|
|
GetExpandedStringValue constHive, strSubKey, value, exResult
|
|
WriteLine "GetExpandedStringValue: " & exResult
|
|
|
|
GetStringValue constHive, strSubKey, value, nResult
|
|
WriteLine "GetStringValue: " & nResult
|
|
|
|
set ws = createobject("Wscript.shell")
|
|
WriteLine "regread: " & ws.regread(key & "\AppData")
|
|
</script>
|
|
</job> |