Het het volgende probleem en na een half dagje zoeken ben ik er nog niet uit.
Als ik op mijn pc met Vista of vanaf een Win2k3 server het script WshCOntrol opstart gebeurt er helemaal niets.
De Win2k3 server geeft geen enkele fout en op mijn Vista pc krijg ik als foutcode 8000FFFF en dat is alles.
Heb de rechten al goed gezet op de remote server, maar zelfs dat maakt niet uit.
De bedoeling is om op de Exchange server via een script een mailbox aan te maken voor een nieuwe gebruiker. Dit is i.v.m. de applicatie die gebruikt wordt het makkelijkst. Als hij het zou doen.
WshControl.vbs
Mailbox.vbs
Heb alles al een beetje aangepast zodat hij alleen maar een directory hoef aan te maken en zelfs dat lukt niet.
Wie weet raad.
Als ik op mijn pc met Vista of vanaf een Win2k3 server het script WshCOntrol opstart gebeurt er helemaal niets.
De Win2k3 server geeft geen enkele fout en op mijn Vista pc krijg ik als foutcode 8000FFFF en dat is alles.
Heb de rechten al goed gezet op de remote server, maar zelfs dat maakt niet uit.
De bedoeling is om op de Exchange server via een script een mailbox aan te maken voor een nieuwe gebruiker. Dit is i.v.m. de applicatie die gebruikt wordt het makkelijkst. Als hij het zou doen.
WshControl.vbs
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Dim objController, objRemoteScript
Set objController = WScript.CreateObject("WSHController")
Set objRemoteScript = objController.CreateScript("C:\\Scripts\\Mailbox.vbs", "Server")
WScript.ConnectObject objRemoteScript, "mailbox_"
objRemoteScript.Execute
Do While objRemoteScript.Status <> 2
WScript.Sleep 100
Loop |
Mailbox.vbs
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Dim oIADSUser
Dim userAlias
Dim user1Alias
Dim user2Alias
Dim pathAlias
Dim ouPath
'userAlias=WScript.Arguments(0)
'user1Alias=WScript.Arguments(0)
'user2Alias=WScript.Arguments(1)
'userAlias= user1Alias & " " & user2Alias
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\Ruud")
'WScript.echo "Hallo"
'Set oIADS = GetObject("LDAP://RootDSE")
'strDefaultNC = oIADS.Get("defaultnamingcontext")
'ouPath = "LDAP://CN=" & userAlias
'Set oIADSUser = GetObject("LDAP://cn=" & user1Alias)
'oIADSUser.CreateMailbox "LDAP://CN=MailBox Store (Server), CN=First Storage Group,CN=InformationStore,CN=Brussel,CN=Servers,CN=xxxx,CN=Administrative Groups,CN=Famed,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=xxxx,DC=xxx"
'oIADSUser.SetInfo |
Heb alles al een beetje aangepast zodat hij alleen maar een directory hoef aan te maken en zelfs dat lukt niet.
Wie weet raad.
PS5 User ;-) ...