更新的VBScript與Windows工作7

Question

我目前運行的是Windows XP專業版在我的域中的計算機，並在遷移到Windows 7。

我有在登錄該分配運行的VB腳本的計劃任務的過程分區到當前用戶。

下面是設置的擊穿，

-80 GB hard drive 
    -30 GB system partition 
    -10 GB partition (DMW Drive) 
    -10 GB partition (DTH Drive) 
    -10 GB partition (NMW Drive) 
    -10 GB partition (NTH Drive) 

腳本根據登錄的時間分配正確的驅動。我們使用它來爲用戶提供一個存儲空間，讓他們擁有完全訪問權限來保存他們的數據。

這完全運行在XP，但不能在Windows 7

運行下面是腳本。

set wshshell = wscript.CreateObject("Wscript.Shell") 
    iReturn = WshShell.Run("Diskpart.exe /s removeall.txt", 1, True) 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime", , 48) 
For Each objItem In colItems 
    DayOfWeek = objItem.DayOfWeek 
    HourOfDay = objItem.Hour 
Next 
    If DayOfWeek = 1 Or DayOfWeek = 3 Then 
     If HourOfDay >= 6 And HourOfDay <= 13 Then 
      iReturn = WshShell.Run("Diskpart.exe /s Aset.txt", 1, True) 
     End If 
     If HourOfDay >= 15 And HourOfDay <= 22 Then 
      iReturn = WshShell.Run("Diskpart.exe /s Cset.txt", 1, True) 
     End If 
    End If 
    If DayOfWeek = 2 Or DayOfWeek = 4 Then 
     If HourOfDay >= 6 And HourOfDay <= 13 Then 
      iReturn = WshShell.Run("Diskpart.exe /s Bset.txt", 1, True) 
     End If 
     If HourOfDay >= 15 And HourOfDay <= 22 Then 
      iReturn = WshShell.Run("Diskpart.exe /s Dset.txt", 1, True) 
     End If 
    End If 

這是腳本調用的文本文件。

ASet.txt = select volume 2 
     assign 
BSet.txt = select volume 3 
     assign 
CSet.txt = select volume 4 
     assign 
DSet.txt = select volume 5 
     assign 

Removeall.txt = 
       select volume 2 
       remove noerr 
       select volume 3 
       remove noerr 
       select volume 4 
       remove noerr 
       select volume 5 
       remove noerr 

任何輸入將不勝感激。

謝謝。

Answer 1

由於diskpart需要提升，因此您需要將計劃任務配置爲運行提升（在任務屬性的「常規」選項卡上的「以最高權限運行」）。