＞こんにちは、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

>
＞　
＞
＞以上。
解決してませんでした。manabuさんありがとうございました。とてもうれしいです(^o^)。