こんにちは、manabu です。(^^)

おそらく解決済みだとは思いますが、検証しましたのでお知らせします。

１．構造体を定義する。
　　次のような構造体を定義します。

　　s_SystemTime構造体(
　　    uint Year
　　    uint Month
　　    uint DayOfWeek
　　    uint Day
　　    uint Hour
　　    uint Minute
　　    uint Second
　　    uint Milliseconds
　　)

２．外部関数宣言を行う。
　　次のように外部関数を宣言します。

    FUNCTION long SetLocalTime( &
            s_SystemTime lpSystemTime &
    ) LIBRARY \"kernel32\" ALIAS FOR \"SetLocalTime\"

３．スクリプトから関数を呼び出します。
　　次のスクリプトは、コンピュータの日時を1999年12月31日23時59分に設定します。

>    s_SystemTime  lstr_st

    lstr_st.Year        = 1999 // 年
    lstr_st.Month       = 12   // 月
    lstr_st.DayOfWeek   = 0    // 曜日(ただしこの設定は無視されます)
    lstr_st.Day         = 31   // 日
    lstr_st.Hour        = 23   // 時
    lstr_st.Minute      = 59   // 分
    lstr_st.Second      = 0    // 秒
    lstr_st.Millseconds = 0    // ミリ秒

    // SetLocalTime()の戻り値は、
    // 非0で成功、0で失敗をあらわします。
    IF SetLocalTime(lstr_st) = 0 THEN
        MessageBox(\"SetLocalTime() Error!\", \"LocalTimeを設定できませんでした。\")
    END IF

>
　

以上。