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 ;-) ...