Тема
|
about FlieSystemObject
|
|
Автор | teodor (Нерегистриран) |
Публикувано | 11.06.03 14:43 |
|
hi all
sblaskah se sys slednoto neshto:
pri registracia na new user iskam da mu se sazdava direktoria na moia IIS(za utochenie 5.0)server oshte s creat-vaneto na user-a
any ideas?
a ako moje da mi pomognete i s primeren code
|
|
Тема
|
Re: about FlieSystemObject
[re: teodor]
|
|
Автор | psy (Нерегистриран) |
Публикувано | 11.06.03 14:49 |
|
zdrasti pich
vij sega :
vzemash si poleto username ot formata i go predavash kato argument na funkcia napr. create_folder("username")
v koiato si vikash Server.CreateObject("Scripting.FileSystemObject)
kadeto puk si izvikvash metoda CreateFolder("username") i si alomost ready
sory che niamam code no tova e samo teoretichno
nadiavam se Pechenia da ti pomogne s nekoi drug red source:)
|
|
Тема
|
Това
[re: psy]
|
|
Автор |
jamie (Bad to the bone) |
Публикувано | 11.06.03 21:30 |
|
по принцип става :-)))
Правил съм и трика да им правя виртуални директории - Печения ме съветваше тогава :-)
UB40 !
|
|
Тема
|
Re: about FlieSystemObject
[re: teodor]
|
|
Автор |
Pechenia (нема лабаво ;-) |
Публикувано | 12.06.03 08:25 |
|
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnserv/html/server022299.asp
ако нещо остава неясно, моля питай пак. успех!
чети и дишай по-леко
|
|
Тема
|
Re: about FlieSystemObject
[re: Pechenia]
|
|
Автор | teodor (Нерегистриран) |
Публикувано | 12.06.03 11:00 |
|
thank u pechen!
psy beshe prav che ti shte helpnesh s nekoi drug red
samo malko me zamotoha permission-ite
az kak moga da zadam avtomatichno odit za dir koiato usera e sazdal tam da ne se execute-vat programi
a i kak tova neshto da go realiziram crez funkcia(tova koeto psy predloji)
|
|
Тема
|
Re: about FlieSystemObject
[re: teodor]
|
|
Автор | asp1O1 (Нерегистриран) |
Публикувано | 12.06.03 11:02 |
|
a kvi sa tia script persmisioni
dai niakvo obiasnenie be pechen
|
|
Тема
|
Re: about FlieSystemObject
[re: teodor]
|
|
Автор |
Pechenia (нема лабаво ;-) |
Публикувано | 12.06.03 13:12 |
|
Аз нарочно дадох пример от M$, та да ви дам тласък да разръчкате IIS метабазата ;-) Там може да се види как с GetObject може да се манипулират не само директориите, а и всички обекти - сайтове и сървъри например ;-) Графично това е отразено в Internet Services Manager конзолата - Cotrol Panel/Administrative Tools. Т.е. метабазата е претворена в дървото на конзолата и в прозорците с опции.
Както и да е, за по-мързеливите тука има "по-приличен" пример:
http://www.eggheadcafe.com/articles/20010609.asp
Относно свойствата на виртуалните директории гордо подавам микрофона на Jammie и други желаещи. Ако те не се справят или не желаят, ще се постарая да намеря време утре.
чети и дишай по-леко
|
|
Тема
|
Re: Object required: 'WScript'
[re: Pechenia]
|
|
Автор | psy (Нерегистриран) |
Публикувано | 12.06.03 14:08 |
|
pri test dade tova saobshtenie
otkade se registrira tozi WScript object
|
|
Тема
|
Re: Object required: 'WScript'
[re: psy]
|
|
Автор |
Pechenia (нема лабаво ;-) |
Публикувано | 12.06.03 14:53 |
|
Кажи с какъв Windows си, и дали ползваш Norton Antibacilicus
чети и дишай по-леко
|
|
Тема
|
Re: Object required: 'WScript' & za teodor
[re: Pechenia]
|
|
Автор | psy (Нерегистриран) |
Публикувано | 12.06.03 16:24 |
|
win2k adv server
bez antivir software
a po interesnoto e che v tut ot M$ pak se polzva samo che WScript.Shell i primera si varvi
a WScript.Network ne go razpoznava
inache eto ia funckiata prerabotena ot men za teodor
Function CreateDir(strParam)
Dim strVirtualDirectoryName 'IIS Virtual Directory Name
Dim bolInProcessApplication 'IIS In Process Application Flag
Dim objIIS 'ADSI IIS Object
Dim strVirtualDirectoryPath 'IIS Virtual Directory Path
Dim objFileSystem 'VBScript FileSystemObject
Dim strOwner 'NT Folder Owner
Dim objVirtualDirectory 'ADSI IIS Virtual Directory Object
Dim bolScriptPermissions 'IIS script permissions flag
Dim strHTTPReferer 'IIS Referrer Page
Dim strServerName 'NT local machine name
Dim objWSH 'Windows Script Host Object
Dim objRTC 'Return
Dim strACLCommand 'Command Line string to set ACLs
'obarni vnimanie na tozi red tuk predavash parametara ot funkciata za ime na virt direktoria
strVirtualDirectoryName = strParam
strHTTPReferer = Request.ServerVariables("HTTP_REFERER")
strServerName = Request.ServerVariables("SERVER_NAME")
' Did we come from our form? If not then deny access
'If strHTTPReferer <> "http://" & strServerName & "/ServineSecure/default.asp" then
' Response.Write("Access Denied")
' Response.End
'End If
'strOwner = Request.Form("selectOwner")
'If Request.Form("checkboxScript") = "on" Then
' bolScriptPermissions = "True"
'Else
' bolScriptPermissions = "False"
'End If
' Does this IIS application already exist in the metabase?
On Error Resume Next
Set objIIS = GetObject("IIS://localhost/W3SVC/1/Root/" & strVirtualDirectoryName)
If Err.Number = 0 Then
Response.Write ("An application with this name already exists. Click ")
Response.Write ("<A HREF=http://" &strServerName & "/dir/>")
Response.Write ("here</A> to choose a different name.")
Response.End
End If
Set objIIS = Nothing
'Create the IIS application
Set objIIS = GetObject("IIS://localhost/W3SVC/1/Root")
strVirtualDirectoryPath = objIIS.Path & "\" & strVirtualDirectoryName
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
'Test to see if the folder exists in the filesystem.
' If not, create it
On Error Resume Next
Set Folder = objFileSystem.GetFolder(strVirtualDirectoryPath)
If Hex(Err.number) = "4C" Then
objFileSystem.CreateFolder strVirtualDirectoryPath
End If
Set objFileSystem = Nothing
'Create the folder in the filesystem
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)
objVirtualDirectory.AccessScript = bolScriptPermissions
objVirtualDirectory.Path = strVirtualDirectoryPath
objVirtualDirectory.SetInfo
objVirtualDirectory.AppCreate bolInProcessApplication
'Set Change Permissions for the developer using CACLS.exe
strACLCommand = "cmd /c echo y| CACLS "
strACLCommand = strACLCommand & strVirtualDirectoryPath
strACLCommand = strACLCommand & " /g " &strOwner & ":C"
Set objWSH = Server.CreateObject("WScript.Shell")
objRTC = objWSH.Run (strACLCommand , 0, True)
Set objWSH = Nothing
Response.Write("<B>Web Application Created Sucessfully</B><BR>")
Response.Write("Path : "& strVirtualDirectoryPath & "<BR>")
'Response.Write("Script Permissions : "& bolScriptPermissions &"<BR>")
'Response.Write( strOwner & " has been granted change permissions<BR>")
End Function
|
|