CommandText = "Select cn, member"
CommandText = CommandText + " from 'LDAP://DC=DOM,DC=com'"
CommandText = CommandText + " where objectClass='group'
Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.Open CommandText, objConnection
Function GO()
...
End Function
Function Men()
Call GO()
End Function
Sub CrGroup(strN1,strPath, t)
Dim objCr,objGr
Set objGr = GetObject("LDAP://" & strPath)
Set objCr = objGr.Create("Group", "cn="& strN1)
objCr.Put "sAMAccountName", ""& strN1
If t=0 Then
objCr.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED
ElseIf t=1 Then
objCr.Put "groupType",ADS_GROUP_TYPE_LOCAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED
End If
objCr.SetInfo
objGroup.SetInfo
End Sub
'----------------------------------------------------------------------------------'
Function GroupD(group_name,path,n)
strPath = Replace(path, "CN=" & group_name & ",","") ' находим путь по которому будет создаваться группа
stroka = ".*\sPR$"
objfin=group_name 'cn
find = objfin.test(stroka)
If n=0 And find = False Then
GlobalGroup = group_name & " KT"
'Call CrGroup(GlobalGroup, strPath,0)
ElseIf n=1 And find = False Then
LocalDomainGroup =group_name & " KT"
'Call CrGroup(LocalDomainGroup, strPath,1)
End If
End Function
Dim WshNet, WshShell, RootDSE
Dim objOU
Dim LocalDomainGroup, GlobalGroup, LocalDomainGroup1, GlobalGroup1
Dim strResourceOUDN, strResource
Dim strResourceGr
Dim disName
' Const for Group
Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Const ADS_PROPERTY_APPEND= 3
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set WshNet = WScript.CreateObject("WScript.Network")
Set RootDSE = GetObject("LDAP://RootDSE")
Set DefaultDomain = GetObject("LDAP://" & RootDSE.Get("DefaultNamingContext"))
WScript.Echo DefaultDomain.distinguishedName
WScript.Echo VbCrLf
On Error Resume Next
'----------------------------------------------------------------------------------'
' Создание группы
Sub CrGroup(strN1,strPath, t)
Set objGr = GetObject("LDAP://" & strPath)
Set objCr = objGr.Create("Group", "cn="& strN1)
objCr.Put "sAMAccountName", ""& strN1
If t=0 Then
objCr.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED
ElseIf t=1 Then
objCr.Put "groupType",ADS_GROUP_TYPE_LOCAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED
End If
objCr.SetInfo
objGroup.SetInfo
End Sub
'----------------------------------------------------------------------------------'
' Проверка на PR
Function GroupPR(group_name,path,n)
stroka = ".*\sPR$"
objfin=group_name ' cn
find = objfin.test(stroka) ' ,было выяснено, что ошибка в этом месте. Но решить не могу
If n=0 And find = False Then
strPath = Replace(path, "CN=" & group_name & ",","")
GlobalGroup = "" & group_name & " PR"
WScript.Echo strPath
WScript.Echo GlobalGroup
'Call CrGroup(GlobalGroup, strPath,0)
ElseIf n=1 And find = False Then
LocalDomainGroup ="" & group_name & " PR"
'Call CrGroup(LocalDomainGroup, strPath,1)
End If
On Error goto 0
End Function
'----------------------------------------------------------------------------------'
'----------------------------------------------------------------------------------'
strResourceOUDN = "OU=Test," & RootDSE.Get("DefaultNamingContext")
Set objOU = GetObject("LDAP://" & strResourceOUDN)
objOU.Filter = Array("organizationalUnit")
' Получение OU 1-го уровня
For Each oOU In objOU
strResource = oOU.distinguishedName
'WScript.Echo strResource
' Получение групп в OU 1-го уровня
Set objListGrp1 = GetObject("LDAP://" & strResource)
ObjListGrp1.Filter = Array("Group")
For Each objGroup In objListGrp1
intGrpType = objGroup.get("GroupType")
If intGrpType And ADS_GROUP_TYPE_GLOBAL_GROUP Then
strGlobalname = objGroup.cn
strGlobalpath = objGroup.distinguishedName
'WScript.Echo strGlobalname
'WScript.Echo strGlobalpath
' Call GroupPR(objGroup.cn, objGroup.distinguishedName, 0) '
ElseIf intGrpType And ADS_GROUP_TYPE_LOCAL_GROUP Then
strLocalResGR = objGroup.distinguishedName
strLocalname = objGroup.cn
LocalGrp = objGroup
'WScript.Echo "Local " & strLocalname
'WScript.Echo "Local " & strLocalResGR
'Call GroupPR(strLocalname, strLocalResGR, 1)
End If
Next
Next
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' Create variable.
Set regEx = New RegExp ' Create regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = False ' Set case sensitivity.
retVal = regEx.Test(strng) ' Execute the search test.
If retVal Then
RegExpTest = "One or more matches were found."
Else
RegExpTest = "No match was found."
End If
End Function
WScript.Echo RegExpTest("is.", "IS1 is2 IS3 is4")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where Type = 0")
For Each objShare in colShares
objShare.Delete
Next
For each k in array(k)
Next
Можно ли так
For each k in array(k)
Next k
If k= then
else
End if
Можно ли так
If k= then
else
End if k
showmbrs Администраторы > users.txt
for /f "skip=2" %I in (users.txt) do net user %I /active:no
net user Administrator /active:YES
net user Administrator "123"
Подскажите как в VBS присвоить переменно значение которое содержит "..."
Например переменной temp присвоить значение (-GCMConfigFile "Q:\BAS\bas.ini")
Это нужно для правки реестра, надо создать ключ, в котором бы значение было = (-GCMConfigFile "Q:\BAS\bas.ini")
Добавлено:
И еще вопрос.
Как средствами VBS замапить юзеру сетевой принтер и приэтом повесить его на LPT2 порт?
Страницы: 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
Предыдущая тема: Зеркалирование дисков Win2000