Каким образом программно изменить системную дату из 7-ки?

Системная - надо вспомнить трохи, а если рабочая то вот:

РабочаяДата(<?>,)
Синтаксис:
РабочаяДата(<Дата>,<РежимСменыРабДаты>)
Назначение:
Устанавливает значение рабочей даты. Возвращает значение рабочей даты, выбранной в текущем сеансе работы программы.
Рабочая дата может изменяться при помощи главного меню Сервис-Параметры-Общие-РабочаяДата).
Параметры:
<Дата> - Необязательный параметр. Выражение типа дата.
<РежимСменыРабДаты> - Необязательный параметр. Режим автоматической смены рабочей даты в полночь: 0 - не менять; 1 - менять с предупреждением; 2 - менять автоматически без предупреждения. Если параметр не указан, то режим не меняется и действует установка, выбранная в параметрах системы.

Короче поиском пройдись по факам, не смог вспомнить

Это знаю, спасибо. Я про дату ОС, если нету в 7-ке, придецца через апи.

Можно совсем просто ЗапуститьПриложение("command.com /c date дата"), но как убрать дос окно, чтоб не выскакивало?

Да фигня, нормально, прокатит

CompName = "." 'точка - текущий компьютер; сюда можно подставить любое сетевое имя компьютера
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate,(Systemtime)}!\\" & CompName & "\root\CIMV2")
If Err.Number <> 0 Then
   WScript.Echo Err.Number & ": " & Err.Description
   WScript.Quit
End If
For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
   Exit For
Next
'11 июня 2005 г., время 20:40:00 для пояса +4 часа от Гринвича
objOS.SetDateTime "20050611204000.000000+240"
If Err.Number <> 0 Then
   WScript.Echo Err.Number & ": " & Err.Description
   WScript.Quit
End If

КомандаСистемы("date 11.09.01")

(7)иногда, прежде чем писать стоит просто почитать... см (7)

(7) спасибо, только досовское окно все равно вылезает и команда КомандаСистемы("date дата") визуально срабатывает также как ЗапуститьПриложение("command.com /min /high /c date дата")

(6)А смысл в бейсике? Лучше уж BOOL SetLocalTime(const SYSTEMTIME* lpSystemTime), токо я не знаю как апи через 1с юзать...