script som kører langsomt.
HejJeg har et script som skal tælle brugernes data mængde op, alt efter hvilken gruppe de er medlem af, det virker også fint nok, har bare lige 2 problemer......
1. det kører langsomt, pga. måden jeg har bygget det op, kan jeg godt forstå men synes ikke jeg kan få det til at virke som det skal hvis jeg gør det anderledes...
2. det gider ikke skrive 0,00 når jeg beder den om det, det er fordi indholdet skal ud i en tesktfil og senere eksporteres til en database....
men det er nok fordi jeg bruger round() metoden, men kan ikke lige komme på hvordan jeg kan ændre det...
Her er scriptet...
option explicit
dim strDomain, objDomain, network, objGroup, strStartGroup, strNumber, _
objUser, strMB, FSO, objFSO, strFolderSize, strUserGroup, strTotal
Set Network = Wscript.CreateObject("Wscript.Network")
StrDomain = Network.UserDomain
Set fso = CreateObject("Scripting.FileSystemObject")
Set objDomain = GetObject("WinNT://" & StrDomain)
objDomain.Filter = Array("group")
For Each objGroup In objDomain
if Len(objGroup.Name) = 13 then
strStartGroup = ucase(left(objGroup.Name, 10))
strNumber = mid(objGroup.Name, 11)
if strStartGroup = "GGMAG4AZKS" then
on error resume next
if strNumber = 0 then
else
for each objUser in objGroup.members
Set objFSO = fso.GetFolder("\\mag4azkssc1fil2\brugerdata$\" & objUser.Name)
strMB = objFSO.size /1048576
strFolderSize = "\\mag4azkssc1fil2\brugerdata$\" & objFSO.Name & " ; " & Round(strMB, 2) & vbCrLf & strFolderSize
if strMB = 0 then
strMB = "0,00"
else
end if
strTotal = Round(strMB, 2) + strTotal
next
strUserGroup = objGroup.Name & "- " & objGroup.Description & vbCrLf & "------------------- " & vbCrLf & strFolderSize & vbCrLf & "Total = " & Round(strTotal, 2)
wscript.echo strUserGroup
strTotal = 0
end if
err.clear
on error goto 0
else
end if
else
end if
Next
wscript.echo strUserGroup
