リモート コンピュータから現在の情報を読み取って、システムの日付と時刻を設定したいと考えています。そのコンピューターはドメイン内にあります。以下のコードを使用してタイムゾーンにアクセスしました。
Set objWMIService = GetObject("winmgmts:\\" & ServerAddress & "\root\cimv2")
Set oRemoteItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each o In oRemoteItems
ServerTime = o.StandardName
Exit Function
Next
しかし、このコードは機能していません。アクセス拒否エラー (5) が表示されます。どこが間違っているのか教えてください。また、ワークグループにいる間はユーザーになりすます必要があります->両方のマシンのワークグループユーザーは同じです。しかし、ワークグループでは、両方のシステムのドメイン ユーザーが異なります。上記のコードになりすまして使用する方法を提案してください。
また、日付と時刻を設定するために net time コマンドを使用していますが、アクセス拒否エラーのために失敗しています。
よろしく、