以下、実験君した時のスクリプトです。

＜NT4.0WS(SP3)で確認＞

[インスタンス変数]
tring	is_Printers[]
String	is_ValueNameList[]
String	is_RegistryKey
 
  
[登録されているプリンタの一覧を取得し、ddlbにセットする]
//初期設定
Integer Err
Long    KeyMax,l
 
//レジストリから登録されているプリンタの一覧を取得
is_RegistryKey = \"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Devices\"
Err = RegistryValues(is_RegistryKey , is_ValueNameList)
 
If Err=-1 Then
  //エラー処理
  MessageBox(\"エラー\",\"レジストリ値の取得に失敗しました｡\")
  Return
Else
  //取得したValueの個数を調べる
  KeyMax = UpperBound(is_ValueNameList)
End If
 
//プリンタの一覧をドロップダウンリストボックスにセット
For l=1 To KeyMax
  ddlb_printers.AddItem(is_ValueNameList[l])
Next
 
//レジストリから各プリンタの接続情報を取得
For l=1 To KeyMax
  Err = RegistryGet(is_RegistryKey, is_ValueNameList[l], is_Printers[l])
  If Err=-1 Then
    MessageBox(\"エラー\",\"レジストリ値の取得に失敗しました｡\")
    Return
  End If
Next
 
 
[ddlbで選択したプリンタを出力先に設定]
//初期設定
Integer Err,ItemNo
Long    KeyMax,l
String  PrinterName
 
//プリンタ名からプリンタの接続情報を求める
PrinterName = ddlb_printers.Text
ItemNo      = ddlb_printers.FindItem(PrinterName,0)
 
//レジストリを編集し、出力先のプリンタを変更する
is_RegistryKey = \"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows\"
Err = RegistrySet(is_RegistryKey, \"Device\", is_ValueNamelist[ItemNo]+\",\"+is_Printers[ItemNo]) 
If Err=-1 Then
  MessageBox(\"エラー\",\"レジストリ値の変更に失敗しました｡\")
Else
  MessageBox(\"\",\"プリンタを変更しました。\")
End If