sub iisUser (userName, newpass) Set adminManager = WScript.CreateObject("Microsoft.ApplicationHost.WritableAdminManager") adminManager.CommitPath = "MACHINE/WEBROOT" adminManager.SetMetadata "pathMapper", "AdministrationConfig" Set authenticationSection = adminManager.GetAdminSection("system.webServer/management/authentication", "MACHINE/WEBROOT") Set credentialsCollection = authenticationSection.ChildElements.Item("credentials").Collection Set addElement = credentialsCollection.CreateNewElement("add") addElement.Properties.Item("name").Value = userName addElement.Properties.Item("password").Value = newpass addElement.Properties.Item("enabled").Value = True credentialsCollection.AddElement(addElement) adminManager.CommitChanges() end sub sub iisAuthorization (userName, newpass) Set adminManager = WScript.CreateObject("Microsoft.ApplicationHost.WritableAdminManager") adminManager.CommitPath = "MACHINE/WEBROOT" adminManager.SetMetadata "pathMapper", "AdministrationConfig" Set authorizationSection = adminManager.GetAdminSection("system.webServer/management/authorization", "MACHINE/WEBROOT") Set authorizationRulesCollection = authorizationSection.ChildElements.Item("authorizationRules").Collection scopeElementPos = FindElement(authorizationRulesCollection, "scope", Array("path", "/ISFTP")) If scopeElementPos = -1 Then Set scopeElement = authorizationRulesCollection.CreateNewElement("scope") scopeElement.Properties.Item("path").Value = "/ISFTP" authorizationRulesCollection.AddElement(scopeElement) Else Set scopeElement = authorizationRulesCollection.Item(scopeElementPos) End If Set scopeCollection = scopeElement.Collection Set addElement = scopeCollection.CreateNewElement("add") addElement.Properties.Item("name").Value = userName scopeCollection.AddElement(addElement) adminManager.CommitChanges() end sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)