ну я примерно так уже и сделал через case
а если винда англ ?
следующее
данный скрипт назначает сетевой принтер по умолчанию
так вот нужно выделенный фрагмент сделать изменяемым ( до этого пока не до рос )
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter "\TEH2_HPLASERJ"
WshNetwork.SetDefaultPrinter "\TEH2_HPLASERJ"