code:

---

REGEDIT /E filename1 [regpath1]
/E filename1 Specifies the file to export the registry to. 
Regpath1 Specifies the starting registry key to export from. (Defaults to exporting the entire registry). 

---

quote:

---

WshScriptExec
Provides status information about a script run with Exec along with access to the StdIn, StdOut, and StdErr streams.

Remarks
The WshScriptExec object is returned by the Exec method of the WshShell object. The Exec method returns the WshScriptExec object either once the script or program has finished executing, or before the script or program begins executing.

---

code:

---

 
break on

$index=Sreg("HKEY_CURRENT_USER\Printers\Connections","servername",1)
if @error
   "error occured: @serror" ?
else
   for each $value in $index
   ? $value
   next
endif
exit 0

Function Sreg($_Subkey, $_String, $_Integer)
if not keyexist("$_Subkey") exit 1010 endif
if not len($_String) exit 24 endif
if $_Integer<0 or $_Integer>2 exit 50 endif
$_I="" $_Chr=chr(29)
$=execute('sk("$_Subkey","$_String",$_Integer)')
$_C=0 $_Is =""
for each $_F in split($_I,$_Chr) if len($_F) $_C=$_C+1 endif next
$_C=$_C-1
$=execute('global $$_IA[$_C]')
$_C=0
for each $_F in split($_I,$_Chr) if len($_F) $=execute('$$_IA[$_C]="$_F"') $_C=$_C+1 endif next
$Sreg=$_IA
$_I="" $_IA=""
EndFunction
Function sk($_key, $_St, $_In)
$_vC=0
$_Vn=enumvalue($_key,$_vC)
while len($_Vn)
 if $_In=0
	if instr($_Vn,$_St) $_I=$_I+$_key+",$_Vn"+$_Chr endif
 else
	if instr(readvalue($_key,$_Vn),$_St) $_I=$_I+$_key+",$_Vn"+$_Chr else if $_In=2 and instr($_Vn,$_St) $_I=$_I+$_key+",$_Vn"+$_Chr endif endif
 endif	
 $_vC=$_vC+1
 $_Vn=enumvalue($_key,$_vC)
loop
$_C=0 $_ID=""
$_Un=enumkey($_key,$_C)
while len($_Un)
 $_ID=$_ID+"$_key\$_Un,"
 $_C=$_C+1
 $_Un=enumkey($_key,$_C)	
loop
for each $_uk in split($_ID,",") if len($_uk) $=execute('sk("$_uk","$_St",$_In)') endif	next
EndFunction
 

---

code:

---

break on
$oldserver = "ServerName"

$array=arrayenumkey(HKEY_CURRENT_USER\Printers\Connections)
for $counter=0 to ubound($array)
  $key = $array[$counter]
  IF INSTR ("$key", "$oldserver")
  DELKEY ("HKEY_CURRENT_USER\Printers\Connections\$key")
  ? 'Deleting $key'
  ENDIF
next

get $
exit 0

function arrayenumkey($regsubkey)
  dim $retcode, $subkeycounter, $currentsubkey, $subkeyarray

  if not keyexist($regsubkey)
    $arrayenumkey=''
    return
  endif

  $subkeycounter=0
  do
    $currentsubkey=enumkey($regsubkey,$subkeycounter)
    if $currentsubkey<>259 and @ERROR=0
      redim preserve $subkeyarray[$subkeycounter]
      $subkeyarray[$subkeycounter]=$currentsubkey
      $subkeycounter=$subkeycounter+1
    endif
  until $currentsubkey=259 or @ERROR

  $arrayenumkey=$subkeyarray
endfunction
 

---