מישהו כאן יודע VBS? נתקעתי באיזה סקריפט ואני מפספס משהו

[רוני ד]

מישהו כאן יודע VBS? נתקעתי באיזה סקריפט ואני מפספס משהו

 

[אורי גיל]

ברצינות - כולם התקדמו ל-PowerShell (אני מקווה)

ברצינות 2 - תראה כאן את הסקריפט ותספר מה לא עובד לך.
&nbsp
אם תחכה ליחס בלי לדבר תכלס נתקשה לעזור לך

 

[רוני ד]

זה למשהו קטן אז בגלל זה VBS

קוד בפנים

יש לי את הקוד הבא עבור מיפוי כונני רשת.
אני מנסה להוסיף לקוד עוד 2 אפשרויות - ללא הצלחה לצערי:
1. שם משתמש וסיסמא (כי לכונן מסוים אני חייב להתחבר באמצעות פרטים) - אני יודע שזה לא מאובטח בכלל, אבל זה לבדיקה של משהו.
2. שהכוננים ישארו ולא ימחקו בהפעלה הבאה (כלומר להריץ פעם אחת את הסקריפט וזהו).

On Error Resume Next 
 
dim objNetwork, strDrive, objShell, objUNC 
dim strRemotePath, strDriveLetter, strNewName 
set wshNetwork = createObject("Wscript.Network") 
strUsername = wshNetwork.UserName 
 
 
call cleardrives() 'Delete all mapped drives... 
call mapdrive("H:","\\SERVER\APPS","Applications") 
call mapdrive("I:","\\SERVER02\NOTES","Field Notes") 
call mapdrive("P:","\\SERVER03\Public","Public Share") 
call mapdrive("Z:","\\SERVER03\" & strUsername & "$","Home Directory") 
 
function cleardrives() 
    ' This sections creates two objects: 
    ' objShell and objNetwork and counts the drives 
    set objShell = createObject("WScript.Shell")  
    set objNetwork = createObject("WScript.Network")  
    set CheckDrive = objNetwork.EnumNetworkDrives()  
     
    ' This section deletes all mapped network drives 
    on error resume next 
    for intDrive = 0 To CheckDrive.Count - 1 Step 2  
    if CheckDrive.Item(intDrive) <> strDriveLetter _ 
    then objNetwork.RemoveNetworkDrive _ 
    CheckDrive.Item(intDrive), bforce 
    next  
end function 
 
function mapdrive(strDriveLetter,strRemotePath,strNewName) 
    'Map the network drive 
    set objNetwork = createObject("WScript.Network")  
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath  
     
    'Rename the Mapped Drive 
    set objShell = createObject("Shell.Application") 
    objShell.NameSpace(strDriveLetter).Self.name = strNewName 
     
end function

 

[F00D Is G00D]

יאפ

בשורה
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

תשנה ל

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, true, "user", "password"


https://msdn.microsoft.com/en-us/library/8kst88h6(v=vs.84).aspx

ובאמת תמנע מהוספת הסיסמה, זה רק צרות. ותזכור שמשתמש ייכול להתחבר לכל שרת רק עם חשבון אחד. ככה שאם אתה ממפה כמה כוננים מאותו שרת - אתה לא ייכול לשים את המשתמש הזה רק עבור כונן אחד.

בהצלחה

 

[רוני ד]

תודה

חלק מהכוננים הם פתוחים וחלק עם סיסמא ויוזר - לא צריך ליצור הפרדה ולא משהו אחיד?