|
strComputer = "." Set objWMIService = GetObject _ ("winmgmts:{authenticationLevel=pktPrivacy}\\" _ & strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _ ("Select * from IIsNntpVirtualDirSetting")
For Each objItem in colItems objItem.ContentIndexed = True objItem.DontLog = False objItem.Path = "c:\inetpub\nntpfile\root\accounting" objItem.Put_ Next
Proposer un script
|
Notre avis :

Votre avis :

Réactions : 0
Votants : 1
Visites : 8299
|