不同的隨機數

我有一個VBScript看起來像這樣不同的隨機數

Randomize 
Dim oAPI, oBag 
Set oAPI = CreateObject("MOM.ScriptAPI") 
Set oBag = oAPI.CreatePropertyBag() 
Call oBag.AddValue("Random Performance", Int(Rnd*100)+1) 
Call oAPI.Return(oBag)

現在，這個腳本在同一確切時間運行多個實例，因此他們很可能都在同一時間接種的。結果，他們每次都給出相同的隨機數。有沒有辦法讓他們同時給出不同的隨機值？

來源

2017-07-26 naman1901

通過在腳本中生成2或3次隨機數並添加所有這些隨機數，可以降低跨多個實例獲取相同隨機數的概率。在這種情況下獲得相同隨機數的可能性會小一些。但是，總會有一些概率（儘管比當前情況要小）獲得相同的數字。 – Gurman

將試着讓你知道它是否有效 – naman1901

@Kira不，這似乎沒有工作。我得到了和以前一樣的結果。 – naman1901

我取得了一些成功這一點，雖然我不知道你是如何運行腳本我使用轉載start /b

' create a number from the Guid 
dim g 
g = Mid(CreateObject("Scriptlet.TypeLib").Guid, 2, 36) 

dim i, c, s 
s = 0 
for i = 1 to len(g) 
    c = Mid(g, i, 1) 
    if not IsNumeric(c) then 
     c = Asc(c) 
    end if 
    s = CInt(c) + s 
next 

randomize s 

for i = 0 to 5 
    WScript.Echo(WScript.Arguments(0) & " " & g & " " & CInt(Rnd*100)) 
next

您的問題運行它因此

start /b cscript test.vbs //nologo 1 
start /b cscript test.vbs //nologo 2 
start /b cscript test.vbs //nologo 3 
start /b cscript test.vbs //nologo 4 
start /b cscript test.vbs //nologo 5

樣品輸出

2D1F39B7-6158-4C77-893B-5C749CF5537F 32 1
2D1F39B7-6158-4C77-893B-5C749CF5537F 13 1
2D1F39B7-6158-4C77-893B-5C749CF5537F 49 1
2D1F39B7-6158-4C77-893B-5C749CF5537F 51 1
2D1F39B7-6158-4C77-893B-5C749CF5537F 84 1
2D1F39B7-6158-4C77-893B-5C749CF5537F 59 3
DC29EDBD-9C63-495B-AFB6-A4A18F65C7F8 35 3
DC29EDBD-9C63-495B-AFB6- A4A18F65C7F8 86 3
DC29EDBD-9C63-495B-AFB6-A4A18F65C7F8 80 3
DC29EDBD-9C63-495B-AFB6-A4A18F65C7F8 3 3
DC29EDBD-9C63-495B-AFB6-A4A18F65C7F8 90 3
DC29EDBD-9C63-495B-AFB6-A4A18F65C7F8 49 4
DC7D2269-436F-4053-B008-F9375BA50F30 34 4
DC7D2269-436F-4053-B008-F9375BA50F30 88 4
DC7D2269-436F-4053-B008-F9375BA50F30 85 4
DC7D2269-436F-4053-B008-F9375BA50F30 60 4
DC7D2269-436F-4053-B008-F9375BA50F30 5 4
DC7D2269-436F-4053-B008- F9375BA50F30 52 2
22F2D6A9-CBF4-48D5-919B-05798FC1BFB1 7 2
22F2D6A9-CBF4-48D5-919B-05798FC1BFB1 89 2
22F2D6A9-CBF4-48D5-919B-05798FC1BFB1 14 2
22F2D6A9-CBF4-48D5-919B-05798FC1BFB1 68 2
22F2D6A9-CBF4-48D5-919B-05798FC1BFB1 89 2
22F2D6A9-CBF4-48D5-919B-05798FC1BFB1 73 5
B13E0D1A-1F93-4387-8CFE-70EEF7FB9B4F 60 5
B13E0D1A-1F93-4387-8CFE-70EEF7FB9B4F 71 5
B13E0D1A-1F93-4387-8CFE-70EEF7FB9B4F 48 5
B13E0D1A-1F93-4387-8CFE -70EEF7FB9B4F 31 5
B13E0D1A-1F93-4387-8CFE-70EEF7FB9B4F 3 5
B13E0D1A-1F93-4 387-8CFE-70EEF7FB9B4F 19 5

來源

2017-07-26 09:41:49

我將使用進程ID作爲Randomize的種子（用於確定PID參見例如，來自Kul-Tigin的this answer）。

Function GetMyPID 
    ppid = 0 
    Set sh = CreateObject("WScript.Shell") 
    Set wmi = GetObject("winmgmts://./root/cimv2") 

    cmd = "/k " & Mid(CreateObject("Scriptlet.TypeLib").Guid, 2, 36) 
    sh.Run "%comspec% " & cmd, 0, False 
    WScript.Sleep 100 

    qry = "SELECT * FROM Win32_Process WHERE CommandLine LIKE '%" & cmd & "'" 
    For Each p In wmi.ExecQuery(qry) 
     ppid = p.ParentProcessId 
     p.Terminate 
     Exit For 
    Next 

    GetMyPID = ppid 
End Function 

Randomize GetMyPID 
...

來源

2017-07-26 09:49:15

這看起來有點沉重。你知道這是否會影響我的腳本，因爲它會定期運行一個簡單的小腳本，所以我不想讓它太重。 – naman1901

我已經在問題中發佈了整個腳本。沒有什麼更多。 – naman1901

那麼，你創建並終止了一個額外的過程，所以會有一些次要的性能影響。如果你擔心，我建議你去提供[oracle認證專家]（https://stackoverflow.com/a/45323168/1630171）的答案。 –

不同的隨機數

回答

相關問題